"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