Pageing og parameter
HejJeg har følgende kode, som jeg gerne vil lave pageing på, men kan ikke få det til at virke. Nogen der kan hjælpe?
Set rs = server.createobject("ADODB.recordset")
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "dbo.Search"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("@SearchFrase", 200, 1, 255, keywords)
Set rs = cmd.Execute
If rs.EOF then
Response.Write("<span class=""Fejl"" style=""font-size:14px;"">Der er ingen resultater der passer til din søgning<br><b>(""" & Keywords & """)</b></span>")
else
rs.PageSize = 15
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.write("<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""Text"">")
Do while not rs.EOF
Response.write("<tr onMouseOver=""this.style.background='#eeeeee'"" onMouseOut=""this.style.background='none'"" onclick=""location.href='" & rs("link") & "'"" style=""cursor:pointer"">")
Response.write("<td>")
Response.write("<b>" & rs("SearchTitle") & "</b><br>")
Response.write(rs("SearchDescription") & "<br>")
Response.write("</td>")
Response.write("</tr>")
Response.write("<tr><td><hr noshade color=""#d5d5d7"" align=""left"" size=""1""></td></tr>")
intRecCount = intRecCount - 1
rs.MoveNext
loop
End if