varför får jag felmeddelanet
Microsoft VBScript compilation error '800a0400'
Expected statement
/Gastbok/default.asp, line 199
with objRs
med
<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from gastbok"
strConString = ("Driver={mySQL};Server=localhost;Port=3306;Option=131072;Stmt=;Database=mydatabase;Uid=myusername;Pwd=xxxxxxxxxx;")
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1
with objRs
.cursorlocation = 3
.open strSQL, strConString
.pagesize = 10
.absolutepage = intPageId
end with
intPages = cint( objRs.pagecount )
intCurrentPost = 0
do while not objRs.eof and intCurrentPost < objRs.pagesize
strContents = strContents &_
"<tr><td>" & objRs( "fält1" ) & "</td>" &_
"<td>" & objRs( "fält2" ) & "</td></tr>"
intCurrentPost = intCurrentPost + 1
objRs.movenext
loop
for i = 1 to objRs.pagecount
strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next
response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>"
%>
det är chilliasp på servern