Lav denne fil om til at kunne søge på brugere!
Hejsa!Jeg vil gerne have denne kode lavet om så jeg kan søge på profiler istedet for at søge på hjemmesider, hvordan gør man det?
<%
If Request.Form("soeg") <> "" then
Set DB = Server.CreateObject("ADODB.Connection")
DBSti = "DBQ=" & Server.Mappath("soeg.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
SQL = "select * from Soeg where url like '%" & Request.Form("soeg") & "%' or Navn like '%" & Request.Form("soeg") & "%'"
Set rs = db.Execute (SQL)
If not rs.eof then
Response.Write "<table>"
Response.Write "<tr><td><font face=verdana size=1><b>Navn</b></font></td><td width=30></td><td><font face=verdana size=1><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=1><a href='http://" & url & "'>" & url & "</a></font></td></tr>"
rs.movenext
Loop
Response.Write "</table>"
Else
Response.Write "<b>Der var ingen poster der matchede på: " & Request("soeg") & "</b>"
End if
End if
%>
« min db hedder "database" og i databasen er dette felter:
brugernavn / adgangskode !
