FAQ |
Kalender |
![]() |
#1 | ||
|
|||
Nykomling
|
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å! |
||
![]() |
![]() |
![]() |
#2 | |||
|
||||
Medlem
|
vilken är "line 204" då??
off: det är inte så konstigt att det inte fungerar det är ju asp! PHP for the win! :P |
|||
![]() |
![]() |
![]() |
#3 | ||
|
|||
Nykomling
|
Citat:
![]() På line 204 ligger denna kod: <% sebnet.MoveNext Wend %> |
||
![]() |
![]() |
![]() |
#4 | ||
|
|||
Banned
|
Ska inte Wend vara End If istället?
|
||
![]() |
![]() |
![]() |
#5 | ||
|
|||
Nykomling
|
Testade med End If och får denna felkod då:
Microsoft VBScript compilation error '800a0400' Expected statement /gastbok.asp, line 234 end if ^ |
||
![]() |
![]() |
![]() |
#6 | ||
|
|||
Supermoderator
|
Se till att indentera koden så att man ser vad som börjar och slutar var.
wend avslutar en while Din kod ser ok ut fram till Kod:
sebnet.MoveNext Wend
__________________
Jonny Zetterström se.linkedin.com/in/jonnyz | bjz.se | sajthotellet.com | kalsongkungen.se | zretail.se | zetterstromnetworks.se | webbhotellsguide.se | ekonominyheter24.se | nyamobiltelefoner.se | gapskratt.se | antivirusguiden.se | jonny.nu |
||
![]() |
![]() |
![]() |
#7 | ||
|
|||
Klarade millennium-buggen
|
precis som ovanstående säger.
ersätt sebnet.MoveNext Wend med End If För att: varför skall du loopa inloggningsrutan? |
||
![]() |
![]() |
![]() |
#8 | ||
|
|||
Nykomling
|
Får detta felmeddelande när jag kör med End If istället på den raden:
Microsoft VBScript compilation error '800a0400' Expected statement /gastbok.asp, line 233 end if ^ |
||
![]() |
![]() |
![]() |
#9 | ||
|
|||
Mycket flitig postare
|
Om du ersätter:
Kod:
sebnet.MoveNext Wend Kod:
sebnet.MoveNext end if Wend |
||
![]() |
![]() |
![]() |
#10 | ||
|
|||
Nykomling
|
Funkade inte heller :/ ,får denna felkod:
Microsoft VBScript compilation error '800a0400' Expected statement /gastbok.asp, line 235 End If ^ Ingen som kanske kan hjälpa till med ett helt nytt paging script? Det jag använder nu läste jag i en artikel på aspsidan. |
||
![]() |
![]() |
Svara |
Ämnesverktyg | |
Visningsalternativ | |
|
|