Lille søge script
Hej.Har prøvet at lave et lille 'søge i database' script. Men hvorfor virker det ik?
---------KODEN----------------
<%
If Request.Form("navn") <> Request.Form("alder") <> "" then
Set DB = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("db.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
SQL = "select * from search where Navn like '%" & Request.Form("navn") <> Request.Form("alder") & "%' or Alder like '%" & Request.Form("navn") <> Request.Form("alder") & "%'"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write "<table>"
Response.Write "<tr><td><font face=verdana size=3><b>Navn</b></font></td><td width=30></td><td><font face=verdana size=3><b>URL</b></font></td></tr>"
Do until rs.eof
url = rs("url")
Response.Write "<tr><td><font face=verdana size=2>" & rs("navn") & "</font></td><td width=30></td><td><font face=verdana size=2><a href='http://" & url & "'>" & url & "</a></font></td></tr>"
rs.movenext
Loop
Response.Write "</table>"
Else
Response.Write "<b>Der var intet der matchede din s?gekriterier!</b>"
End if
End if
%>
----------------------------
