Hej, jag håller på hjälpa en kompis med ett pagingsystem till en gästbok, men jag får denna felkod när jag går in på sidan:
Microsoft VBScript compilation error '800a0400'
Expected statement
/gastbok.asp, line 204
Wend
^
**Koden för gästboken och pagingen:**
<% If Request.QueryString("get") = "" Then %>
<%
'DATABASEN TILL GÄSTBOKEN
'--------------------------------------------------------------------------------------------------------
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("db/gb.mdb")&";"
Set sebnet = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM gb ORDER BY datum DESC"
sebnet.Open SQL, Connect, 1, 2
Dim sida
sida = Trim(Request.QueryString("sida"))
If sida = "" Then
sida = 1
End If
sebnet.PageSize = 10
sebnet.AbsolutePage = sida
'--------------------------------------------------------------------------------------------------------
%>
<%
Dim rad
rad = 0
While Not sebnet.EOF and rad < sebnet.PageSize
rad = rad + 1
%>
Här skrivs allting ur databasen ut.
<% If sebnet.BOF Then %>
Gästboken är tom!
<% else %>
<% Do until sebnet.EOF %>
<% If sebnet("accepterad") = "nej" Then %>
<TABLE width="100%" cellspacing="0" cellpadding="5" border="0"><TR><td width="55%" valign="top"><%=kantfarg%>
<tr>
<td scope="col"></td></tr>
<tr>
<td scope="col">
Namn: <%=sebnet("namn")%><%=sebnet("enamn")%>
E-postadress:<%=sebnet("email")%>
Sänt:<%=sebnet("datum")%>
<%=sebtext(sebnet("inlagg"))%></td>
</p>
</center></td>
</tr></table>
<table width="100%"><tr><hr size="1">
<% else %>
<TABLE width="500" cellspacing="0" cellpadding="5" border="0"><TR><td width="55%" valign="top">
Namn: <%=sebnet("namn")%><%=sebnet("enamn")%>
E-postadress:
<%=sebnet("email")%>
Sänt:<%=sebnet("datum")%>
<%=sebtext(sebnet("inlagg"))%></td>
</td><td width="10"></td><td valign="top" width="45%" BGCOLOR="#f4f0e0">
<% If sebnet("svar") = "nej" Then %>
<% else %>
<%=sebtext(sebnet("svar"))%>
<% end if %>
</td>
</tr></table>
<table width="100%"><tr><hr size="1"></tr></table>
<% end if %>
<%
sebnet.MoveNext
loop
sebnet.Close
Connect.Close
End if
%>
<%
If Request.QueryString("get") = "admin" Then
If Session("admin") = "ok" Then
Response.Redirect("admin.asp")
else
End if
%>
Admin Login
<form name="admin" method="post" action="gastbok.asp?get=check">
<table border="0" cellspacing="0" cellpadding="2">
<tr>
<td scope="col"><div align="right">
Anvnamn:</div></td>
<td scope="col"><input name="anvnamn" type="text" size="20">
</td>
</tr>
<tr>
<td><div align="right">
Lösenord:</div></td>
<td><input name="password" type="password" size="20">
</td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="loggain" value="Logga in"></td>
</tr>
</table>
</form>
<%
sebnet.MoveNext
Wend
%>
<%
If sebnet.PageCount > 1 Then
For i = 1 to sebnet.PageCount
If i = CLng(sida) Then
Response.Write "[" & i & "]"
Else
Response.Write "
" & i & ""
End If
Next
End If
%>
<%
sebnet.Close : Set sebnet = Nothing
Connect.Close : Set Connect = Nothing
%>
<%
'MEDDELANDE OM UPPGIFTERNA ÄR FEL
If Session("meddelande") <> "" Then
Response.Write Session("meddelande")
Session("meddelande") = ""
End If
%>
<% end if %>
<%
'Kollar så anvnamn och lösenord stämmer!
If Request.QueryString("get") = "check" Then
If Request.Form("anvnamn") = admin1 AND Request.Form("password") = admin2 Then
Session("admin") = "ok"
Session.Timeout = 30
Response.Redirect("admin.asp")
else
'Om inte, skicka tillbaks användaren
Session("meddelande") = "Fel användarnamn eller lösenord, försök igen!"
Response.Redirect("index.asp?get=admin")
End if
End if
%>
Tacksam för all hjälp vi kan få!