Recordset Error!!!! [Archive]

Calmaris

04-02-2003, 02:55 PM

THIS IS THE SITE LOGIN IN AS SMARTY WITH PASS PANTS
CLICK ON VIEW CALENDAR
http://nsadvenventures.brinkster.net/

that's the error i get
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/View_Calendar.asp, line 25

<% @Language = VBScript %>
<% Option Explicit %>
<%

Dim dbConn, dbQuery, recordsetDB, strQueryString1,strUser_Id
Dim Hunt_Id, Hunt_Password,StrDate_start, strDate_End,StrCalendar_Comments,CurPage,NumPages

Hunt_Id = request.form("OldHunt_Id")
Hunt_Password = request.form("Hunt_Password")

Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\\premfs7\sites\premium2\nsadvenventures\Database\Calendar.mdb")

strquerystring1 = "SELECT Calendar.Date_Start,Date_End,Calendar_Comment FROM Calendar "

Set RecordsetDB = server.createObject("ADODB.Recordset")
recordsetDB.CursorLocation =3
recordsetDB.PageSize = 10
recordsetDB.Open strquerystring1, dbconn
numpages = recordsetDB.PageCount

CurPage = CInt(request.querystring("Page"))
If CurPage < 1 Then CurPage = 1
If CurPage > NumPages Then CurPage = NumPages
THIS LINE UNDERNEATH IT DOESN'T LIKE
RecordsetDB.AbsolutePage = CurPage
%>

<html>

<head>
<title>View Calendar</title>
</head>

<body background="grback.jpg">
<p align="center"><img border="0" src="CALENDAROFEVENTS.gif">
<p>
Page <%=CurPage%> OF <%=NumPages%>

<% Do While recordsetDB.AbsolutePage = Curpage AND NOT recordsetDB.EOF%>

</p>

<table border="3" width="504" height="100" bordercolordark ="darkGreen" bordercolorlight="lightgreen" wrap="Virtual">
<tr>
<td>
<%
strCalendar_Comments = recordsetDB("Calendar_Comment").VALUE
strDate_start = recordsetDB("Date_Start").Value
strDate_End = recordsetDB("Date_End").Value
%>
Unavailable <% response.write ""& strDate_Start & "" %> Until
<%response.write ""& strDate_End &"" %><Br>
<%response.write "" & strCalendar_Comments & "" %>
</td>
</tr>
</table>
<%
recordsetDB.MoveNext

Loop
recordsetDB.close
%>

<form Name ="Navigate" onSubmit="return false;">

<input type="button" value="First Page" onClick="
self.location.href = '<%=Session("Page")%>?OldHunt_Id =<%=Hunt_Id%>&Hunt_Password =<%=Hunt_Password%>&Page=1';
return true;">
<input type="button" value="Prev Page" onClick="
self.location.href = '<%=Session("Page")%>?OldHunt_Id =<%=Hunt_Id%>&Hunt_Password =<%=Hunt_Password%>&Page=<%=(curPage-1)%>';
return true;">
<input type="button" value="Next Page" onClick="self.location.href =
'<%=Session("Page")%>?OldHunt_Id = <%=Hunt_Id%>&Hunt_Password =<%=Hunt_Password%>&Page=<%=(curPage+1)%>';
return true;">
<input type="button" value="Last Page" onClick="
self.location.href = '<%=Session("Page")%>?OldHunt_Id =<%=Hunt_Id%>&Hunt_Password =<%=Hunt_Password%>&Page=<%=numPages%>';return true;">
</form>

<form NAME="Back_TO_Main" METHOD="POST" ACTION="LoggedMainPics.asp">
 GO BACK
TO THE MAIN MENU <input type="submit" value="GO" name="backview">
</form>