Kom ihåg mig?

Paging

 
Ämnesverktyg Visningsalternativ
Oläst 2007-03-13, 20:33 #1
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
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&ouml;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å!
supermrdaniel är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-13, 23:12 #2
MattiasAs avatar
MattiasA MattiasA är inte uppkopplad
Medlem
 
Reg.datum: Dec 2006
Inlägg: 235
MattiasA MattiasA är inte uppkopplad
Medlem
MattiasAs avatar
 
Reg.datum: Dec 2006
Inlägg: 235
vilken är "line 204" då??

off: det är inte så konstigt att det inte fungerar det är ju asp! PHP for the win! :P
MattiasA är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 00:35 #3
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
Citat:
Originally posted by MattiasA@Mar 14 2007, 00:12
vilken är line 204 då??
off: det är inte så konstigt att det inte fungerar det är ju asp PHP for the win *

Hehe

På line 204 ligger denna kod:
<%
sebnet.MoveNext
Wend
%>
supermrdaniel är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 11:14 #4
hnn hnn är inte uppkopplad
Banned
 
Reg.datum: Mar 2004
Inlägg: 2 587
hnn hnn är inte uppkopplad
Banned
 
Reg.datum: Mar 2004
Inlägg: 2 587
Ska inte Wend vara End If istället?
hnn är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 12:39 #5
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
Testade med End If och får denna felkod då:
Microsoft VBScript compilation error '800a0400'

Expected statement

/gastbok.asp, line 234

end if
^
supermrdaniel är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 12:45 #6
jonny jonny är inte uppkopplad
Supermoderator
 
Reg.datum: Sep 2003
Inlägg: 6 941
jonny jonny är inte uppkopplad
Supermoderator
 
Reg.datum: Sep 2003
Inlägg: 6 941
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
Det ser ut som du tror att du har kommit till slutet av en while-loop, men det finns ingen början på den loop du försöker avsluta. Ser mer ut som att du tänkt dig avsluta en if-sats där.
jonny är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 19:23 #7
allstars allstars är inte uppkopplad
Klarade millennium-buggen
 
Reg.datum: Apr 2006
Inlägg: 2 126
allstars allstars är inte uppkopplad
Klarade millennium-buggen
 
Reg.datum: Apr 2006
Inlägg: 2 126
precis som ovanstående säger.
ersätt
sebnet.MoveNext
Wend

med
End If


För att: varför skall du loopa inloggningsrutan?
allstars är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 22:08 #8
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
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
^
supermrdaniel är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-14, 23:02 #9
eg0master eg0master är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Oct 2004
Inlägg: 898
eg0master eg0master är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Oct 2004
Inlägg: 898
Om du ersätter:
Kod:
sebnet.MoveNext
Wend
med:
Kod:
sebnet.MoveNext
end if
Wend
Så slipper du nog kompileringsfel. Sedan om den där skiten gör rätt är väl ditt nästa problem. You're on your own.
eg0master är inte uppkopplad   Svara med citatSvara med citat
Oläst 2007-03-15, 01:01 #10
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
supermrdaniel supermrdaniel är inte uppkopplad
Nykomling
 
Reg.datum: Mar 2006
Inlägg: 14
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.
supermrdaniel är inte uppkopplad   Svara med citatSvara med citat
Svara


Aktiva användare som för närvarande tittar på det här ämnet: 1 (0 medlemmar och 1 gäster)
 
Ämnesverktyg
Visningsalternativ

Regler för att posta
Du får inte posta nya ämnen
Du får inte posta svar
Du får inte posta bifogade filer
Du får inte redigera dina inlägg

BB-kod är
Smilies är
[IMG]-kod är
HTML-kod är av

Forumhopp


Alla tider är GMT +2. Klockan är nu 21:25.

Programvara från: vBulletin® Version 3.8.2
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Svensk översättning av: Anders Pettersson
 
Copyright © 2017