Hvad er det lige der går galt?
Jeg har et lille problem med at få paging til at virke i min kode. Jeg fandt en artikel om paging men når jeg sætter det ind i mit script vil det ikke som jeg vil, er der en der vil hjælpe mig med at få det til at virke?mit scripts kommer ud med denne fejl:
Microsoft VBScript compilation error '800a0400'
Expected statement
/showall.asp, line 90
Wend
^
mit script sersåledes ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<style>
td { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
body { font-size : 8pt; font-family : Verdana, Arial; text-decoration : none; }
</style>
</head>
<link rel="stylesheet" type="text/css" href="css.asp">
<body>
<%
'Opretter Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"
'Først skal vi have antallet af poster
Set objRs = Conn.Execute("SELECT COUNT(*) AS records FROM users;")
intRecords = int(objRs("records"))
objRs.Close
Set objRs = Nothing
'Variabler til query´et
intPage = Request.QueryString("page")
if intPage = "" OR not isNumeric(intPage) then
intPage = int(1)
else
intPage = int(intPage)
end if
intPageSize = int(5)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = int(intRecords/intPageSize)+1
Set objRs = Conn.Execute("SELECT * FROM users LIMIT " & intStart & ", " & intPageSize & ";")
if objRs.EOF or objRs.BOF then
Response.Write "Ingen poster"
else
Response.Write "<table border=""1"" cellpadding=""3"">"
Response.Write "<tr>"
Response.Write "<td>id</td>"
Response.Write "<td>Site</td>"
Response.Write "</tr>"
Do until objRs.EOF
Response.Write "<tr>"
Response.Write "<td>" & objRs("id") & "</td>"
Response.Write "<td><a href=""" & objRs("url") & """>" & objRs("navn") & "</a></td>"
Response.Write "</tr>"
objRs.MoveNext
Loop
Response.Write "</table>"
end if
objRs.Close
Set objRs = Nothing
'Udskriver en "sideliste"
For i = 1 to intPages
if i = intPage then
Response.Write "" & i & " "
else
Response.Write "<a href=""paging.asp?page=" & i & """>"
Response.Write i
Response.Write "</a> "
end if
next
Conn.Close
Set Conn = Nothing
%>
<style>
<!--
fieldset { border: 1px solid #990000 }
-->
</style>
<fieldset style='padding: 2'>
<legend><FONT FACE="VERDANA" SIZE="2" COLOR="BLACK"><a href='mailto:" <%=rs("email") %>"'><%=rs("name") %></a> - <%=rs("dato") %></FONT>
</legend>
<FONT FACE='VERDANA' SIZE='2'>
<%=rs("comments") %><br>
</FONT></div>
</fieldset>
<br>
<%
no = no + 1
rs.MoveNext
Wend
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>
</body>
</html>
