Søge problemer
Hejsa er der en her der kan komme med et svar på hvorfor den ikke kan finde et brugernavn der er mellemrum i?Hvis jeg søger efter \"Niels\"
og der kun er én der hedder Niels Peter så viser den den ikke, men er der derimod flere på samme søgning så tager den ogsp Niels Peter med kan bare ikke finde ud af hvorfor? - kan I??
Her er det jeg bruger:
If Trim(request.QueryString(\"amin\")) = \"\" then
stramin = 1
else
stramin = Trim(request.QueryString(\"amin\"))
End if
If Trim(request.QueryString(\"amax\")) = \"\" then
stramax = 99
Else
stramax = Trim(request.QueryString(\"amax\"))
End if
strbruger = request.QueryString(\"FormSeBruger\")
strsex = Trim(request.QueryString(\"sex\"))
strpic = Trim(request.QueryString(\"pic\"))
stramin = Replace(stramin,\"\'\",\"\'\'\")
stramax = Replace(stramax,\"\'\",\"\'\'\")
strsex = Replace(strsex,\"\'\",\"\'\'\")
strpic = Replace(strpic,\"\'\",\"\'\'\")
strbruger = Replace(strbruger,\"\'\",\"\'\'\")
\' Opbygger en dynamisk SQL streng
strSQL = \"SELECT brugernavn, sex, foto, alder, adresse, hjem FROM brugere WHERE\"
strSQL = strSQL & \" (brugernavn LIKE \'\" & strbruger & \" %\')\"
strSQL = strSQL & \" and (sex LIKE \'\" & strsex & \"%\')\"
strSQL = strSQL & \" and (alder BETWEEN \'\" & stramin & \"\' AND \'\" & stramax & \"\')\"
strSQL = strSQL & \" and (foto LIKE \'\" & strpic & \"%\') ORDER BY brugernavn\"
\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & server.mappath(\"../database/profil.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.Open strSQL, myConn, 1
Mvh
Jack!!
