Kommer med en fejl i min ASP News system :\
Der er tale om scipted:http://www.friserverplads.dk/goauld/crap/news.asp
Når du åbner siden der, kan du sagtens se gå til side 2.
Men hvis den kommer i en frame http://www.adminz.dk/Goauld/ .. kommer den med en fejl:
Microsoft VBScript runtime error '800a01a8'
Object required: 'Session(...)'
/goauld/crap/news.asp, line 90 ..
Koden til siden hedder sådan her:
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN
strSQL = "Select * from jwnews"
set rscount = conn.execute("select count(id) as antal from jwnews")
antal = rscount("antal")
set rscount = nothing
%>
<html>
<head>
<title>JWNews 1.0 ASP</title>
<link rel="stylesheet" href="http://adminz.dk/Goauld/Goauld.css" type="text/css">
<base target="I3">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#006699" vlink="#006699" alink="#006699">
<tr>
<td width="61%" height="11"></td>
<td width="39%" height="11"></td>
</tr>
<tr>
<td><font color="#FFFFFF" face="Verdana" size="1"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
</font>
<div align="center">
<center>
<table border='0' cellspacing='0' cellpadding='0' width='580' height="19" style="border-collapse: collapse; ">
<tr>
<td width='1' valign='top' style="border-left-style: solid; border-left-width: 1; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#505050">
<font color="#FFFFFF" face="Verdana" size="1"><img src="images/intet.gif" width='1'></font></td>
<td width='642' valign='top' style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#505050">
<table width="100%" border="0" cellspacing="4" cellpadding="0" style="border-top-width: 0">
<tr>
<td width="50%" style="border-top-style: none; border-top-width: medium">
<div align="right"><font color="#FFFFFF"><b>
<font size="2" face="Verdana">Skrevet
Nyheder: <%=antal%> </font> </b></font></div>
</td>
</tr>
</table>
</td>
<td width='3' valign='top' style="border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#505050">
<font color="#FFFFFF" face="Verdana" size="1"><img src="intet.gif" width='1'></font></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<div align="center">
<center>
<table border="0" width="580" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" colspan="2" bordercolor="#505050" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1; border-right-style:solid; border-right-width:1" width="578">
<div align="center">
<p>
<p>
<p><font color="#FFFFFF" face="Verdana" size="1"><br>
</font>
<p>
<font color="#FFFFFF" face="Verdana" size="1">
<%
PageSize = 4
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
If Request("PageTo") <> "" Then
strPageTo = Request("PageTo")
If strPageTo <> "" Then
nPageTo = int(strPageTo)
If nPageTo < 1 Then
nPageTo = 1
End If
Else
nPageTo = 1
End If
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
else
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionTimeout=15
Conn.CommandTimeout=30
Conn.Open Conn_String
Set Cmd=Server.CreateObject("ADODB.Command")
Set RS=Server.CreateObject("ADODB.Recordset")
Cmd.CommandType = 1
Set Cmd.ActiveConnection = Conn
Cmd.CommandText="SELECT * From jwnews order by ID desc;"
RS.Open Cmd, , 1, 1
RS.PageSize = PageSize
Set Session("ListingRS") = RS
nPageTo = 1
If not (RS.BOF and RS.EOF) Then
Set RS = Session("ListingRS")
RS.AbsolutePage = nPageTo
End If
end if
If RS.EOF Then
Response.Write(" <br><br><font size=4 color='red'<b>No Script were found <br></b></font><br>")
Else
nRowCount = RS.PageSize
While not RS.EOF and nRowCount > 0
Count = 0
for i = 1 to Count
next
dagar=DateDiff("d", Dato, RS("Dato"))+2
if dagar >= 0 then
%> </font>
<div align="center">
<center>
<table border="0" width="100" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td valign="top" class="menuoverskrift" colspan="2" bordercolor="#505050" style="border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1; border-top-style:solid; border-top-width:1; border-bottom-style:none; border-bottom-width:medium">
<table width="100%" border="0">
<tr>
<td height="14" width="44%"><font size="1" face="Verdana"><b>
<font color="#FFFFFF">Tilføjet
af: </font> <a href="mailto:<% = rs("email") %>">
<font color="#FFFFFF">
<% = rs("navn") %> </font>
</a> </b></font></td>
<td height="14" width="56%">
<div align="right">
<font size="1" face="Verdana" color="#FFFFFF"><b>Tilføjet
Kl.
<% = rs("kl") %> D.
<% = rs("dato") %>
</b></font></div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top" class="menuoverskrift" colspan="2" style="border-top-style: none; border-top-width: medium">
<table width="400" border="0" cellspacing="0" cellpadding="0" height="17">
<tr>
<td>
<table width="400" border="0" cellspacing="0" cellpadding="3" class="1px_ganz" height="8">
<tr>
<td height="13" bordercolor="#505050" style="border-style: solid; border-width: 1">
<font color="#FFFFFF"> <b>
<font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <% = rs("kommetare") %></font><font color="#FFFFFF" face="Verdana" size="1"> </font>
</b></font> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<font face="Verdana" size="1">
<br>
<%
end if
nRowCount = nRowCount - 1
RS.MoveNext
Wend
'Display Paging Buttons
Response.Write("<center><table border=0 cellpadding=4 cellspacing=4><tr>")
' Display <<
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form1>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' << Første ' style='{font-weight:bold}' DISABLED id=submit2 name=submit2><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' << Første ' style='{font-weight:bold}' id=submit1 name=submit1><input type=hidden name=PageTo value=1>")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display <
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form2>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = 1 Then
Response.Write(vbcr & "<input type=submit value=' < Tilbage ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=1>")
Else
Response.Write(vbcr & "<input type=submit value=' < Tilbage ' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo-1 & ">")
End If
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form3>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Næste > ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Næste >' id=submit1 name=submit1 style='{font-weight:bold}'>")
Response.Write(vbcr & "<input type=hidden name=PageTo value=" & nPageTo+1 & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
' Display >>
Response.Write(vbcr & "<form action=" & Request.ServerVariables("SCRIPT_NAME") & " method=post id=form4>")
Response.Write(vbcr & "<td align=center><font face=arial size=3><b>")
If int(nPageTo) = int(RS.PageCount) Then
Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}' DISABLED><input type=hidden name=PageTo value=" & nPageTo & ">")
Else
Response.Write(vbcr & "<input type=submit value=' Sidste >> ' id=submit1 name=submit1 style='{font-weight:bold}'><input type=hidden name=PageTo value=" & RS.PageCount & ">")
End IF
Response.Write(vbcr & "</td>")
Response.Write(vbcr & "</form>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td colspan=4 align=center><font face='Verdana' size=2 color='white'><b>Side </font><font face='Verdana' size=2 color='red'><b>" & nPageTo & "</font><font face='Verdana' size=2 color='white'><b>/</font><font face='Verdana' size=2 color='red'><b>" & RS.PageCount & "</font></b>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("</table>")
end if
%><font color="#FFFFFF">
<br>
</font></font> </div>
</td>
</tr>
</table>
</center>
</div>
<p> </p>
<p> </p>
</body>
</html>
Linie 90 ser således ud:
Set RS = Session("ListingRS")
Nogle der kan se fejlen ? :D
