Paging / MYSQL
Er der nogen der kan hjælpe med at smide noget paging i dette her?<%
elseif action = \"search\" then
%>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"25%\" bgcolor=\"#08335A\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#FFFFFF\"><b>Nick:</b></font></td>
<td width=\"25%\" bgcolor=\"#08335A\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#FFFFFF\"><b>Køn:</b></font></td>
<td width=\"25%\" bgcolor=\"#08335A\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#FFFFFF\"><b>Alder:</b></font></td>
<td width=\"25%\" bgcolor=\"#08335A\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#FFFFFF\"><b>Billede:</b></font></td>
</tr>
<%
SQL = \"select * from profil where\"
SQL2 = \"select count(*) as num from profil where\"
if len(request(\"antal\")) = 0 Then
antal = 0
end if
if request(\"kon\") = \"1\" Then
SQL = SQL & \" kon = 1\"
SQL2 = SQL2 & \" kon = 1\"
elseif request(\"kon\") = \"2\" Then
SQL = SQL & \" kon = 2\"
SQL2 = SQL2 & \" kon = 2\"
else
response.redirect(\"search.asp\")
end if
if len(request(\"nick\")) <> 0 Then
SQL = SQL & \" and nick LIKE \'%\" & request(\"nick\") & \"%\'\"
SQL2 = SQL2 & \" and nick LIKE \'%\" & request(\"nick\") & \"%\'\"
end if
if len(request(\"alder\")) <> 0 Then
SQL = SQL & \" and alder = \" & request(\"alder\")
SQL2 = SQL2 & \" and alder = \" & request(\"alder\")
end if
if len(request(\"h\")) <> 0 Then
SQL = SQL & \" and h > \" & request(\"h\")
SQL2 = SQL2 & \" and h > \" & request(\"h\")
end if
if len(request(\"h2\")) <> 0 Then
SQL = SQL & \" and h < \" & request(\"h2\")
SQL2 = SQL2 & \" and h < \" & request(\"h2\")
end if
if len(request(\"v\")) <> 0 Then
SQL = SQL & \" and v > \" & request(\"v\")
SQL2 = SQL2 & \" and v > \" & request(\"v\")
end if
if len(request(\"v2\")) <> 0 Then
SQL = SQL & \" and v < \" & request(\"v2\")
SQL2 = SQL2 & \" and v < \" & request(\"v2\")
end if
if len(request(\"born\")) <> 0 Then
SQL = SQL & \" and born = \" & request(\"born\")
SQL2 = SQL2 & \" and born = \" & request(\"born\")
end if
if len(request(\"ryge\")) <> 0 Then
SQL = SQL & \" and ryge = \" & request(\"ryge\")
SQL2 = SQL2 & \" and ryge = \" & request(\"ryge\")
end if
if len(request(\"bosted\")) <> 0 Then
SQL = SQL & \" and bosted = \" & request(\"bosted\")
SQL2 = SQL2 & \" and bosted = \" & request(\"bosted\")
end if
if len(request(\"job\")) <> 0 Then
SQL = SQL & \" and job = \" & request(\"job\")
SQL2 = SQL2 & \" and job = \" & request(\"job\")
end if
if len(request(\"parstatus\")) <> 0 Then
SQL = SQL & \" and parstatus = \" & request(\"parstatus\")
SQL2 = SQL2 & \" and parstatus = \" & request(\"parstatus\")
end if
if len(request(\"musiksmag\")) <> 0 Then
SQL = SQL & \" and musiksmag = \" & request(\"musiksmag\")
SQL2 = SQL2 & \" and musiksmag = \" & request(\"musiksmag\")
end if
if len(request(\"stjernetegn\")) <> 0 Then
SQL = SQL & \" and stjernetegn = \" & request(\"stjernetegn\")
SQL2 = SQL2 & \" and stjernetegn = \" & request(\"stjernetegn\")
end if
if len(request(\"hear\")) <> 0 Then
SQL = SQL & \" and hear = \" & request(\"hear\")
SQL2 = SQL2 & \" and hear = \" & request(\"hear\")
end if
if len(request(\"eyes\")) <> 0 Then
SQL = SQL & \" and eyes = \" & request(\"eyes\")
SQL2 = SQL2 & \" and eyes = \" & request(\"eyes\")
end if
if len(request(\"body\")) <> 0 Then
SQL = SQL & \" and body = \" & request(\"body\")
SQL2 = SQL2 & \" and body = \" & request(\"body\")
end if
SQL = SQL & \" LIMIT \" & antal & \", 10\"
set rs = conn.execute( SQL )
set rs2 = conn.execute( SQL2 )
num = rs2(\"num\")
if rs.eof Then
%>
</table>
<font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"000000\">Søgningen gav intet resultat</font><br>
<font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"000000\"><a href=\"search.asp\">Prøv igen</a></font>
<%
else
%>
Der blev fundet <%=num%> resultater af din søgning<br>
<%
do until rs.eof
%>
<tr>
<td width=\"25%\"><a href=\"se_profil.asp?uid=<%=rs(\"uid\")%>\"><font face=\"Verdena, Tahoma, arial\" size=\"2\"><%=rs(\"nick\")%></font></a></td>
<td width=\"25%\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#000000\"><% if rs(\"kon\") = 1 Then%>Kvinde<%elseif rs(\"kon\") = 2 then %>Mand<% end if %></font></td>
<td width=\"25%\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#000000\"><%=rs(\"alder\")%></font></td>
<td width=\"25%\"><font face=\"Verdena, Tahoma, arial\" size=\"2\" color=\"#000000\"><%if rs(\"pic\") = 1 Then%>Ja<% else %>Nej<% end if %></font></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs = nothing
set SQL = nothing
%>
</table>
<%
rs2.close
set rs2 = nothing
set SQL2 = nothing
end if
%>
