Hjælp til fejl i mit script
HejsaJeg har mit nyheds script men den skriver fejl når jeg føre musen hen over endten ned eller op knappen.
koden over siden.
<html>
<head>
<title>start</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" marginwidth="0" marginheight="0" scroll="no" onLoad="init();" onResize="window.history.go(0)">
<%
PageSize = 30
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.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 news 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("date"))+2
if dagar >= 0 then
%>
<table border="0" width="490" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" height="35"><span class="news-title"><% = rs("title") %></span><br><span class="news-date"><% = rs("date") %> | kl. <% = rs("time") %></span></td>
</tr>
<tr>
<td valign="top"><span class="news-txt"><%
strNews = rs("news")
If strNews <> "" Then strNews = Replace(strNews,VbCrlf,"<BR>")
Response.Write strNews
%><br><br><br></span></td>
</tr>
</table>
<%
end if
nRowCount = nRowCount - 1
RS.MoveNext
Wend
end if
%>
<p> <span id="scrollMeUp"><a href="#" onMouseOver="scrollIt('',1); chgImg('13','scrollup'); return true;" onMouseout="scrollIt('',0); chgImg('12','scrollup'); return true;"><img name="scrollup" src="scroll-up.gif" border="0" width="109" height="30"></a></span><span id="scrollMeDown"><a href="#" onMouseOver="scrollIt('',2); chgImg('15','scrolldown'); return true;" onMouseOut="scrollIt('',0); chgImg('14','scrolldown'); return true;"><img name="scrolldown" src="scroll-down.gif" border="0" width="109" height="30"></a></span>
</body>
</html>
