Flere søgefelter
HejDet har lykkedes mig at få stablet en søgemaskine på benene, som kan søge i min database, men indtil videre har der kun været ét felt, og nu ville jeg gerne have den til at søge på flere felter ad gangen. Her er min kode:
<%
' Henter værdien fra sog.htm
strFritekst = Trim(Request.Form("fritekst"))
' Opbygger en dynamisk SQL streng
strSQL = "SELECT id, brugernavn, [navn], email, alder, amt, kommune, job, ansogning FROM ansogning WHERE"
strSQL = strSQL & " ([navn] LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (alder LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (email LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (kon LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (amt LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (kommune LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (job LIKE '%" & strFritekst & "%')"
strSQL = strSQL & " OR (ansogning LIKE '%" & strFritekst & "%')"
' Skaber DSNLess forbindelse til DBen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/ansogning.mdb")
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<font face='Verdana' size='2pt.'><b>Alle job-ansøgere<br></b><hr color='#000000' size='1'><br></font>"
Response.Write "<table border=1 cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#000000'>"
Response.Write "<tr><th><font color='#000000' face='Verdana' size=2>Fuld ansøgning</font></th><th><font color='#000000' face='Verdana' size=2>Navn</font></th><th><font color='#000000' face='Verdana' size=2>Alder</font></th><th><font color='#000000' face='Verdana' size=2>Amt</font></th><th><font color='#000000' face='Verdana' size=2>Kommune</font></th><th><font color='#000000' face='Verdana' size=2>Jobønske</font></th></tr>"
Do While Not rs.EOF
%>
<tr><td><font color="#000000" face="Verdana" size=2><p align=center><a href="#" onclick="popup('profil.asp?id=<%=rs("id")%>','Ansøgning','220','480');">Læs hel profil</a></p></font></td>
<%
Response.Write "<td><a href='mailto:" & rs("email") & "?subject=Angående job-ansøgning på Søg.dk'><font color='#000000' face='Verdana' size=2> " & rs("navn") & " </font></a></td>"
Response.Write "<td><font color='#000000' face='Verdana' size=2> " & rs("alder") & " </font></td>"
Response.Write "<td><font color='#000000' face='Verdana' size=2> " & rs("amt") & " </font></td>"
Response.Write "<td><font color='#000000' face='Verdana' size=2> " & rs("kommune") & " </font></td>"
Response.Write "<td><font color='#000000' face='Verdana' size=2> " & rs("job") & " </font></td>"
rs.MoveNext
Loop
Response.Write "</table><br><hr color='#000000' size='1'>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p><font color='#000000' face='Verdana' size=2>Der er ikke fundet noget på denne søgning!</font><br><br><font color='#000000' face='Verdana' size=1><a href='#' onClick='history.go(-1)'><-Tilbage</a></font></p>"
End If
' Rydder op efter os
'myConn.Close
'Set myConn = Nothing
%>
_____________________________
Et andet problem er også, at hvis man efterlader nogle felter blanke søger viser den alle fra databasen. Og hvis jeg fik lavet flere søgefelter SKULLE nogle af dem jo netop kunne efterlades blanke!
Nogen som mener, de kan hjælpe?
Venlig hilsen
W13
