WN - Paging

WN (https://www.wn.se/forum/index.php)

- Serversidans teknologier (https://www.wn.se/forum/forumdisplay.php?f=4)

- - Paging (https://www.wn.se/forum/showthread.php?t=19955)

skulle du kunna lägga upp din kod på nån sida t.ex www.nomorepasting.com istället, så man kan se lite lättare hur det är upplagt?

Citat:

Originally posted by melin@Mar 15 2007, 10:07
skulle du kunna lägga upp din kod på nån sida t.ex www.nomorepasting.com istället, så man kan se lite lättare hur det är upplagt?

koden finns nu på:
http://www.nomorepasting.com/paste.php?pasteID=75695

Testa:

**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" ID="Table1"><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%" ID="Table2"><tr><hr size="1">
<% else %>
<TABLE width="500" cellspacing="0" cellpadding="5" border="0" ID="Table3"><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%" ID="Table4"><tr><hr size="1"></tr></table>
<% end if %>
<%sebnet.MoveNext
loop
sebnet.Close
Connect.Close
End if
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" ID="Form1">
<table border="0" cellspacing="0" cellpadding="2" ID="Table5">
<tr>
<td scope="col"><div align="right">Anvnamn:</div></td>
<td scope="col"><input name="anvnamn" type="text" size="20" ID="Text1">
</td>
</tr>
<tr>
<td><div align="right">Lösenord:</div></td>
<td><input name="password" type="password" size="20" ID="Password1">
</td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="loggain" value="Logga in" ID="Submit1"></td>
</tr>
</table>
</form>

<%

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
%>

Denna felkod kommer när jag tog din kod, funcall:
Microsoft VBScript compilation error '800a0400'

Expected statement

/gastbok.asp, line 163

End If
^

Någonstans i scriptet saknas förmodligen en End If.
Antingen får du gå igenom din IF-satser och hitta var det ska vara en End If, alternativt får du återkomma med sidan i sin helhet.
Koden ovan (som funcall hjälpte dig med) har nämligen 149 rader och du får felmeddelande på rad 163.

oj glömde ta bort en grej...
testa denna:

**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
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" ID="Table1"><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%" ID="Table2"><tr><hr size="1">
<%
else
%>
<TABLE width="500" cellspacing="0" cellpadding="5" border="0" ID="Table3"><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
%><%=sebtext(sebnet("svar"))%><%
end if
%>
</td>
</tr></table>
<table width="100%" ID="Table4"><tr><hr size="1"></tr></table>
<%
end if
sebnet.MoveNext
loop
sebnet.Close
Connect.Close
End if
end if

If Request.QueryString("get") = "admin" Then
If Session("admin") = "ok" Then
Response.Redirect("admin.asp")
End if
%>

Admin Login

<form name="admin" method="post" action="gastbok.asp?get=check" ID="Form1">
<table border="0" cellspacing="0" cellpadding="2" ID="Table5">
<tr>
<td scope="col"><div align="right">Anvnamn:</div></td>
<td scope="col"><input name="anvnamn" type="text" size="20" ID="Text1">
</td>
</tr>
<tr>
<td><div align="right">Lösenord:</div></td>
<td><input name="password" type="password" size="20" ID="Password1">
</td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="loggain" value="Logga in" ID="Submit1"></td>
</tr>
</table>
</form>

<%

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
%>

Tack så mkt, funcall!

Men nu har jag såklart ett annat problem och det är att den inte delar upp inläggen i olika sidor utan alla inlägg ligger bara på en sida.

Citat:

Originally posted by eg0master@Mar 15 2007, 00:02
Sedan om den där skiten gör rätt är väl ditt nästa problem. You're on your own.

Som jag skrev tidigare...

Allvarligt talat så hör väl inte "debugginng by forum" hemma här tycker jag. Det måste finnas en plats på planeten där den här typen av "hjälp" kan fås, men den platsen är inte här tycker jag. Nivån är ju inte ens nybörjarnivå, det är innan nybörjare. Typ "jag ska börja lära mig koda om ett år - varför funkar inte den här koden".

Gör en god samhälsgärning moderatorer och lås den här tråden innan jag får en hjärnblödning... Det är verkligen med skräckblandad förtjusning jag följt hur denna tråd "utvecklats"...

Citat:

Ursprungligen postat av eg0master

Citat:

Ursprungligen postat av eg0master

Sedan om den där skiten gör rätt är väl ditt nästa problem. You're on your own.

Jag håller på att lära mig koda och jag har fått problem med kodningen under tiden, så det är inte så att jag inte håller på lära mig att koda eller ska göra det om ett år utan jag håller på göra det nu.

Tips1: Lär dig att indentera koden, så att den går att läsa.
Tips2: Använd "kod"-funktionen för att lägga till din kod.
Tips3: Debugga lite åt gången och skriv inte kod i flera timmar utan att testköra.