Kun 10 søgeresultater af gangen
Hjælp.Jeg har et problem jeg vil gerne have lavet paging i dette script. jeg har forsøgt på www.activeserverpage.dk men jeg kan stadig ikke finde ud af det.
Sådan ser scriptet ud og jeg vil blive meget meget glad hvis du vil lave det sådan at der kommer 10 søgeresultater af gangen.
<%
strKeyword = Trim(Request.Form(\"Keyword\"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect(\"search.asp\")
Else
strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")
End If
strSQL = \"SELECT LinkID, LinkName, LinkDesc, LinkURL, LinkHits, LinkID, LinkAdded, LinkWord, LinkPlus FROM links WHERE\"
strSQL = strSQL & \" (LinkName LIKE \'%\" & strKeyword & \"%\')\"
strSQL = strSQL & \" OR (LinkWord LIKE \'%\" & strKeyword & \"%\')\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"database.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write \"<p><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"black\"\"><CENTER><A HREF=\"\"default.asp\"\" TARGET=\"\"_top\"\">Hjem</A> : Søgeresultat fra Søg</CENTER></FONT></p>\"
Response.Write \"<center>\"
Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"80%\"\" cellpadding=\"\"3\"\" bgcolor=\"\"#000000\"\">\"
Do While Not rs.EOF
Response.Write \"<tr><td width=100% bgcolor=#006bb6><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"black\"\">\" & rs(\"LinkPlus\") & \"<a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>\"& rs(\"LinkName\") &\"</A> - \" & rs(\"LinkDesc\")&\"<BR></FONT><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"1\"\" color=\"\"black\"\">Besøg fra Søg :</FONT> <FONT face=\"\"Verdana, Times New Roman\"\" Size=\"\"1\"\" Color=\"\"black\"\">\" & rs(\"LinkHits\") & \"</font><BR><font face=\"\"Verdana, Times New Roman\"\" Size=\"\"1\"\" color=\"\"black\"\">Adresse : </font><font face=\"\"Verdana, Times New Roman\"\" Size=\"\"1\"\" color=\"\"black\"\">\" & rs(\"LinkURL\") &\" - <a href=redirect.asp?linkid=\"& rs(\"LinkID\")&\" TARGET=_new>Besøg</a><BR><HR></td></tr>\"
rs.MoveNext
Loop
Response.Write \"</FONT></table>\"
Else
Response.Write \"<center><p><FONT FACE=\"\"Verdana, Times New Roman\"\" SIZE=\"\"+1\"\" COLOR=\"\"black\"\"><A HREF=default.asp>Websøg</a> fandt intet der svarede til dit søgeord<BR><BR>Tilbage til start? <A HREF=default.asp>Klik her</A></p></center>\"
End If
myConn.Close
Set myConn = Nothing
%>