Hjælp til søge funktion
Hejsa der ude, hjææææælp kan ikke hitte ud af hvorfor dette ikke virker.Jeg skal kunne søge efter flg.
Alder fra - til
Mand - kvinde - begge
Med billede - uden billede - med og uden billede.
Den skal så hente brugernavn frem indexseret (hvilket den bestemt ikke gør nu)
Har fået det til at funge med at søge efter mand - kvinde
med - uden - med og uden billede
Men KUN hvis jeg ikke har alderen med ?
Håber der er en der kan hjælpe mig her.
Her er kilden:
<%
\' Henter værdien fra soeg.htm
stramin = Trim(Request.Form(\"amin\"))
stramax = Trim(Request.Form(\"amax\"))
strsex = Trim(Request.Form(\"sex\"))
strpic = Trim(Request.Form(\"pic\"))
If Len(strsex) = \"\" Then
\' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect(\"search.htm\")
Else
\' Hvis der er skrevet i feltet
stramin = Replace(stramin,\"\'\",\"\'\'\")
stramax = Replace(stramax,\"\'\",\"\'\'\")
strsex = Replace(strsex,\"\'\",\"\'\'\")
strpic = Replace(strpic,\"\'\",\"\'\'\")
End If
\' Opbygger en dynamisk SQL streng
\'strSQL = \"SELECT brugernavn FROM brugere WHERE\"
strSQL = \"SELECT brugernavn, sex, foto, alder, adresse, hjem FROM users WHERE\"
\'strSQL = \"SELECT * FROM brugere WHERE\"
strSQL = strSQL & \" (sex LIKE \'\" & strsex & \"\')\"
strSQL = strSQL & \" OR (foto LIKE \'\" & strpic & \"\')\"
strSQL = strSQL & \" OR (alder BETWEEN \'\" & stramin & \"\' AND \'\" & stramax & \"\')\"
\'strSQL = strSQL & \" OR (Beskrivelse BETWEEN \'%\" & strKeyword & \"%\')\"
\' Skaber DSNLess forbindelse til DBen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"search.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
\' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
%><table border=\"0\" width=\"100%\" bgcolor=\"#8090C0\" height=\"21\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"29\" height=\"21\" valign=\"top\"><img src=\"images/h1.gif\" border=\"0\" width=\"22\" height=\"21\"></td>
<td width=\"100%\" border=\"0\" height=\"21\" valign=\"top\" align=\"center\" bgcolor=\"#8090C0\"> </td>
<td width=\"29\" height=\"21\" valign=\"top\" align=\"right\"><img src=\"images/h2.gif\" border=\"0\" width=\"22\" height=\"21\"></td>
</tr>
</table>
<table border=\"0\" width=\"100%\" bgcolor=\"#8090C0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100%\" height=\"43\" ><p align=\"center\"><img border=\"0\" src=\"images/Headings/se%20profil.gif\" WIDTH=\"157\" HEIGHT=\"43\"><br></p></td>
</tr>
</table>
<table border=\"0\" width=\"100%\" bgcolor=\"#8090C0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"20%\" colspan=\"6\" bgcolor=\"#8090C0\">
</td>
</tr>
<tr>
<td width=\"20%\" bgcolor=\"#8090C0\"><font face=\"Arial\"><b> Profil / nick</b></font></td>
<td width=\"16%\" bgcolor=\"#8090C0\" align=\"center\"><font face=\"Arial\"><b>Køn</b></font></td>
<td width=\"16%\" bgcolor=\"#8090C0\" align=\"center\"><font face=\"Arial\"><b>Alder</b></font></td>
<td width=\"16%\" bgcolor=\"#8090C0\" align=\"left\"><font face=\"Arial\"><b>Bopæl</b></font></td>
<td width=\"16%\" bgcolor=\"#8090C0\" align=\"center\"><font face=\"Arial\"><b>Billede</b></font></td>
<td width=\"16%\" bgcolor=\"#8090C0\" align=\"center\"><font face=\"Arial\"><b>Hjemmeside</b></font></td>
</tr>
<tr>
<td width=\"16%\" colspan=\"6\" bgcolor=\"#8090C0\">
<%
Do While Not rs.EOF
%>
</td>
</tr>
<%if strpic = \"0\" and rs(\"foto\") = \"1\" then%>
<tr>
<td width=\"16%\" colspan=\"6\" bgcolor=\"#8090C0\"><hr></td>
</tr>
<tr>
<td width=\"20%\"><%\'if strsex = \"1\" and strpic = \"0\" and rs(\"foto\") = \"1\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'> <a onfocus=this.blur() onmouseover=\'window.status\' title=\'Klik her for at se min profil\' href=\'checkbrugeradvse.asp?bruger=\" & rs(\"brugernavn\") & \"\' target=\'window\'>\" & rs(\"brugernavn\") & \"</a>\" & \"</b></font>\") & vbCrLf
%> </td>
<td width=\"16%\" align=\"center\"><% if rs(\"sex\") = \"\" then
Response.Write \" \"
End if
if rs(\"sex\") = \"1\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/male.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\") & vbCrLf
end if
if rs(\"sex\") = \"2\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/female.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\") & vbCrLf
end if%></td>
<td width=\"16%\" align=\"center\"><%If rs(\"alder\") = \"\" then
Response.Write \" \"
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & rs(\"alder\") & \"</b></font>\") & vbCrLf
End if%></td>
<td width=\"16%\" align=\"left\"><%If rs(\"adresse\") = \"\" then
Response.Write \" \"
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & left(rs(\"adresse\"),10) & \"</b></font>\") & vbCrLf
End if%></td>
<td width=\"16%\" align=\"center\"><%
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' alt=\'Billedprofil\' border=\'0\' src=\'images/pic_profil.gif\' WIDTH=\'21\' HEIGHT=\'21\'>\") & vbCrLf
%></td>
<td width=\"16%\" align=\"center\"><%If rs(\"hjem\") <> \"http://\" and rs(\"hjem\") <> \"\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'><a onfocus=this.blur() href=\'\" & rs(\"hjem\") & \"\' target=\'window\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/house.gif\' WIDTH=\'23\' HEIGHT=\'21\' alt=\" & rs(\"hjem\") & \">\" & \"</a>\" & \"</b></font>\") & vbCrLf
else
Response.Write \" \"
end If
%></td>
</tr>
<%elseif strpic = \"1\" and rs(\"foto\") = \"\" then%>
<tr>
<td width=\"16%\" colspan=\"6\" bgcolor=\"#8090C0\"><hr></td>
</tr>
<tr>
<td width=\"20%\"><%
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'> <a onfocus=this.blur() onmouseover=\'window.status\' title=\'Klik her for at se min profil\' href=\'checkbrugeradvse.asp?bruger=\" & rs(\"brugernavn\") & \"\' target=\'window\'>\" & rs(\"brugernavn\") & \"</a>\" & \"</b></font>\") & vbCrLf %>
</td>
<td width=\"16%\" align=\"center\"><% if rs(\"sex\") = \"\" then
Response.Write \" \"
End if
if rs(\"sex\") = \"1\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/male.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\") & vbCrLf
end if
if rs(\"sex\") = \"2\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/female.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\") & vbCrLf
end if%>
</td>
<td width=\"16%\" align=\"center\"><%If rs(\"alder\") = \"\" then
Response.Write \" \"
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & rs(\"alder\") & \"</b></font>\") & vbCrLf
End if%></td>
<td width=\"16%\" align=\"left\"><%If rs(\"adresse\") = \"\" then
Response.Write \" \"
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & left(rs(\"adresse\"),10) & \"</b></font>\") & vbCrLf
End if%></td>
<td width=\"16%\" align=\"center\"><%
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \" \") & vbCrLf %>
</td>
<td width=\"16%\" align=\"center\"><%If rs(\"hjem\") <> \"http://\" and rs(\"hjem\") <> \"\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'><a onfocus=this.blur() href=\'\" & rs(\"hjem\") & \"\' target=\'window\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/house.gif\' WIDTH=\'23\' HEIGHT=\'21\' alt=\" & rs(\"hjem\") & \">\" & \"</a>\" & \"</b></font>\") & vbCrLf
else
Response.Write \" \"
end if
%></td>
</tr>
<%elseif strpic = \"2\" then%>
<tr>
<td width=\"16%\" colspan=\"6\" bgcolor=\"#8090C0\"><hr></td>
</tr>
<tr>
<td width=\"20%\"><%
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'> <a onfocus=this.blur() onmouseover=\'window.status\' title=\'Klik her for at se min profil\' href=\'checkbrugeradvse.asp?bruger=\" & rs(\"brugernavn\") & \"\' target=\'window\'>\" & rs(\"brugernavn\") & \"</a>\" & \"</b></font>\") & vbCrLf %>
</td>
<td width=\"16%\" align=\"center\"><% if rs(\"sex\") = \"\" then
Response.Write \" \"
End if
if rs(\"sex\") = \"1\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/male.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\") & vbCrLf
end if
if rs(\"sex\") = \"2\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/female.gif\' WIDTH=\'13\' HEIGHT=\'21\'>\" & \"</b></font>\") & vbCrLf
end if
%></td>
<td width=\"16%\" align=\"center\"><%If rs(\"alder\") = \"\" then
Response.Write \" \"
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & rs(\"alder\") & \"</b></font>\") & vbCrLf
End if%></td>
<td width=\"16%\" align=\"left\"><%If rs(\"adresse\") = \"\" then
Response.Write \" \"
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & left(rs(\"adresse\"),10) & \"</b></font>\") & vbCrLf
End if%></td>
<td width=\"16%\" align=\"center\"><%
if strpic = \"2\" and rs(\"foto\") = \"1\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \"<img align=\'middle\' alt=\'Billedprofil\' border=\'0\' src=\'images/pic_profil.gif\' WIDTH=\'21\' HEIGHT=\'21\'>\") & vbCrLf
Else
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'>\" & \" \") & vbCrLf
end if%>
</td>
<td width=\"16%\" align=\"center\"><%If rs(\"hjem\") <> \"http://\" and rs(\"hjem\") <> \"\" then
Response.Write(\"<b><font face=\'Arial\' color=\'#FFFFFF\' size=\'-1\'><a onfocus=this.blur() href=\'\" & rs(\"hjem\") & \"\' target=\'window\'>\" & \"<img align=\'middle\' border=\'0\' src=\'images/house.gif\' WIDTH=\'23\' HEIGHT=\'21\' alt=\" & rs(\"hjem\") & \">\" & \"</a>\" & \"</b></font>\") & vbCrLf
else
Response.Write \" \"
end if
end If%></td>
</tr>
<%
rs.MoveNext
Loop
Response.Write \"</table>\"
Else
\' Hvis der ikke er fundet poster på søgningen
Response.Write \"<p>Der er ikke fundet noget på denne søgning</p>\"
End If
\' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
Mvh
Jack!!
