Hur jag en försöker med paging får jag bara upp:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/olle91091/gratisgb/lgastbok.asp, line #linjen#
Snälla hjälp mig min nuvarande kod är:
<%
If Request.Querystring("id") = "" Then
Response.Redirect "default.asp"
Else
End if
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastbok.mdb")&";pwd=*******"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select * From medlemmarT Where ID = "&Request.QueryString("id") &" Order By Datum DESC"
RecSet.Open Addera2, Connect, adOpenStatic, adLockOptimistic
if RecSet("Sprak") = "en" then
Session("titel22") = "Welcome to " & RecSet("Titel")
Session("titel33") = "Write in the guestbook"
Session("namn") = "Name:"
Session("epost") = "E-mail:"
Session("hemsida") = "Homepage:"
Session("land") = "Country:"
Session("stad") = "City:"
Session("skicka") = "Send"
Session("tillbaka") = "Back"
end if
if RecSet("Sprak") = "se" then
Session("titel22") = "Välkommen till " & RecSet("Titel")
Session("titel33") = "Skriv i gästboken"
Session("namn") = "Namn:"
Session("epost") = "E-post:"
Session("hemsida") = "Hemsida:"
Session("land") = "Land:"
Session("stad") = "Stad:"
Session("skicka") = "Skicka"
Session("tillbaka") = "Tillbaka"
end if
%>
<html>
<head>
<title><%=RecSet("Titel")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body background="<%=RecSet("bild")%>" bgColor="<%=RecSet("Bg")%>" text="<%=RecSet("Txtcolor")%>" >
<center><h2><%=Session("titel22")%></h2></center>
<table width="501" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td valign="top" colspan="3"></td>
</tr>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=RecSet("Txtcolor")%>"><b><%=Session("titel33")%></b> <a href="<%=RecSet("Hemsida")%>">Till hemsidan</A><br>
</font>
<form name="form1" method="post" action="gastbok2.asp?id=<%=Request.QueryString("id")%>">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="<%=RecSet("Txtcolor")%>">
<%=Session("namn")%> <input type="text" name="namn" value="" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)">
<br><%=Session("epost")%> <input type="text" name="epost" value="" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)">
<br><%=Session("hemsida")%> <input type="text" name="hemsida" value="http://" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)">
<br><%=Session("land")%> <input type="text" name="land" value="" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)">
<br><%=Session("stad")%> <input type="text" name="stad" value="" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)">
<br>Humör: <img src="glad.gif"> <img src="ledsen.gif"> <img src="arg.gif">
<br><input type="radio" name="smil" checked value="glad.gif"><input type="radio" name="smil" value="ledsen.gif"><input type="radio" name="smil" value="arg.gif">
<br> <textarea name="txt" cols="45" rows="4" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)"></textarea>
<br>
<input type="submit" name="Submit" value="<%=Session("skicka")%>" style="background-color: rgb(255,255,255); color: rgb(0,0,0); font-family: Verdana; font-size: 8pt; border: 1px solid rgb(0,0,0)">
</font>
</form>
Smileys:
<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':)';"><img src="bilder/glad.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':D';"><img src="bilder/D.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':(';"><img src="bilder/ledsen.gif" border="0"></a>
<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':arg1:';"><img src="bilder/arg.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':arg2:';"><img src="bilder/arg2.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':bira:';"><img src="bilder/bira.gif" border="0"></a>
<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':finger:';"><img src="bilder/fingret.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':ler:';"><img src="bilder/ler.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':love:';"><img src="bilder/love.gif" border="0"></a>
<a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':skrattar:';"><img src="bilder/skrattar.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':slurk:';"><img src="bilder/slurk.gif" border="0"></a><a href="#" onclick="document.form1.txt.value=document.form1.txt.value+':tunga:';"><img src="bilder/tunga.gif" border="0"></a><BR>
\</td\>
</tr>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="javascript:history.go(-1);"><%=Session("tillbaka")%></a>
</font> </p>
<hr>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("gastbok.mdb")&";pwd=*******"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gastbokT Where mID = "&Request.QueryString("id") &" Order By Datum DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<tr>
<td valign="top" colspan="3">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<% Do Until RecSet.EOF %>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><img src="<%=RecSet("Smil")%>"> <b><font color="#000000"><%=RecSet("Namn")%> - <%=RecSet("Datum")%></font></b></font> |
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b><a href="mailto:<%=RecSet("Epost")%>"><%=Session("epost")%></a> - <a href="<%=RecSet("Hemsida")%>"><%=Session("hemsida")%></a> - <%=RecSet("Stad")%> <%=RecSet("Land")%></B></font>
</td>
<tr>
<td>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><% =bildtext(RecSet("Txt")) %></font>
</td>
</tr>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td>
<hr width="100%" size="1">
</td>
</tr>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
%>
\</table\>
<br>
<center>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">En Gratis gästbok från
<a target="_blank" href="http://hem.passagen.se/olle91091/index.htm" style="text-decoration: none">olle.cooling.nu</a></font>
<center>
<br>
</table><Center> </center>
</body>
</html>