/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
HJÆLP
Fra : Anders


Dato : 14-04-02 22:47

Hej.

Jeg har siddet og fusket med lidt asp, og har fået lavet en
drinks-database, hvor jeg har en formular der sender information
videre til nedenstående scirpt. Det virker fint, men det skal
bare være sådan at hvis man indtaster et navn som ikke findes i
databasen, at man så bliver sendt tilbage til formularen.

<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/drink.mdb")
Conn.Open DSN

keyword = Request.Form("keyword")

' SQL forespørgsel
strSQL = "Select * From T_Drinksdata Where Drinknavn = '"&
keyword &"'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen Indgredienser
Response.Write "<p><H1>Søgeresultat</H1></p>"
Response.Write "<table border=1 table cellpadding=5 table
cellspacing=5>"
Response.Write
"<tr><th>Drinknavn</th><th>Ingredienser</th><th>Beskrivelse</th><
/tr>"
Response.Write "<tr><td width=150 align=center valign=top>"
& rs("Drinknavn") & "</td>"
Response.Write "<td valign=top>" & rs("Ingredienser") &
"</td>"
Response.Write "<td width=300>" & rs("Beskrivelse") &
"</td></tr>"

' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</body>
</html>

--
KONKURRENCE PÅ HTML.dk:
fortæl hvordan din drømmeeditor ser ud
og vind luksus webhoteller fra Wannafind
KLIK HER! => http://www.html.dk/editor

 
 
Martin Kruse (15-04-2002)
Kommentar
Fra : Martin Kruse


Dato : 15-04-02 18:20

"Anders" <al@sundeved-el.dk> skrev i en meddelelse
news:a9ctcn$s87$1@sunsite.dk...
> Hej.
>
> Jeg har siddet og fusket med lidt asp, og har fået lavet en
> drinks-database, hvor jeg har en formular der sender information
> videre til nedenstående scirpt. Det virker fint, men det skal
> bare være sådan at hvis man indtaster et navn som ikke findes i
> databasen, at man så bliver sendt tilbage til formularen.
>
> <html>
> <title>Hente data fra database</title>
> <head>
> </head>
> <body>
> <%
> ' Databaseforbindelse - husk at angive sti til din database
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath("/drink.mdb")
> Conn.Open DSN
>
> keyword = Request.Form("keyword")
>
> ' SQL forespørgsel
> strSQL = "Select * From T_Drinksdata Where Drinknavn = '"&
> keyword &"'"
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set rs = Conn.Execute(strSQL)
>
> ' Gennemløb Recordset (rs) med en løkke
> Do
> ' Udskriv værdien af kolonnen Indgredienser
> Response.Write "<p><H1>Søgeresultat</H1></p>"
> Response.Write "<table border=1 table cellpadding=5 table
> cellspacing=5>"
> Response.Write
> "<tr><th>Drinknavn</th><th>Ingredienser</th><th>Beskrivelse</th><
> /tr>"
> Response.Write "<tr><td width=150 align=center valign=top>"
> & rs("Drinknavn") & "</td>"
> Response.Write "<td valign=top>" & rs("Ingredienser") &
> "</td>"
> Response.Write "<td width=300>" & rs("Beskrivelse") &
> "</td></tr>"
>
> ' Gå til næste Record i rs
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
>
>
> ' Luk databaseforbindelse
> Conn.Close
> Set Conn = Nothing
> %>
>
> </body>
> </html>
>
> --
> KONKURRENCE PÅ HTML.dk:
> fortæl hvordan din drømmeeditor ser ud
> og vind luksus webhoteller fra Wannafind
> KLIK HER! => http://www.html.dk/editor

'Først tæller du om der er 0 eller flere af det valgte
strSQL = "Select Count(*) As antal From T_Drinksdata Where Drinknavn = '"&
keyword &"'"

Set rs = Conn.Execute(strSQL)
'Så sættes en if-sætning op og hvis der er 0 tilfælde sendes man tilbage til
formularen
If rs("antal") = 0 Then
Response.Redirect "formularens_adresse.asp"
End if
'Gå videre, hvis der er flere end 0 tilfælde.

--

MK
http://www.msdesign.dk
Professionelt webdesign til fornuftige priser



Jakob Andersen (16-04-2002)
Kommentar
Fra : Jakob Andersen


Dato : 16-04-02 08:19

"Anders" <al@sundeved-el.dk> skrev i en meddelelse
news:a9ctcn$s87$1@sunsite.dk...
> Jeg har siddet og fusket med lidt asp, og har fået lavet en
> drinks-database, hvor jeg har en formular der sender information
> videre til nedenstående scirpt. Det virker fint, men det skal
> bare være sådan at hvis man indtaster et navn som ikke findes i
> databasen, at man så bliver sendt tilbage til formularen.


Prøv med nedenstående (Pas på knækkede linier):

<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/drink.mdb")
Conn.Open DSN

keyword = Request.Form("keyword")

Dim RedirectMe
RedirectMe = false

' SQL forespørgsel
strSQL = "Select * From T_Drinksdata Where Drinknavn = '"&
keyword &"'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
If rs.BOF Then
RedirectMe = true
End if
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af kolonnen Indgredienser
Response.Write "<p><H1>Søgeresultat</H1></p>"
Response.Write "<table border=1 table cellpadding=5 table
cellspacing=5>"

Response.Write"<tr><th>Drinknavn</th><th>Ingredienser</th><th>Beskrivelse</t
h></tr>"
Response.Write "<tr><td width=150 align=center valign=top>"&
rs("Drinknavn") & "</td>"
Response.Write "<td valign=top>" & rs("Ingredienser") &"</td>"
Response.Write "<td width=300>" & rs("Beskrivelse") &"</td></tr>"
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

''''''''''''''''''''''''''''' Sæt din URL ind her:
If RedirectMe Then
Response.Redirect( "/formular.asp" )
End if
%>

</body>
</html>



Søg
Reklame
Statistik
Spørgsmål : 177559
Tips : 31968
Nyheder : 719565
Indlæg : 6408938
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste