[thelist] ASP Problems again..
Giles Carey | Element Design
giles at elementdesign.fsnet.co.uk
Thu Oct 31 07:54:01 CST 2002
--
--
[ Picked text/plain from multipart/alternative ]
Help needed urgently.. i have struggled over this ofr hours...
This is the error:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/laurenceoxley/imagedetail.asp, line 85
This is the code:
<HTML>
<HEAD>
</HEAD>
<base href = "http://www.elementdesign.dc-hosting.co.uk/laurenceoxley">
<!--<base href = "http://localhost/aspproject/">-->
<script language="javascript">
</script>
<BODY leftmargin=0 topmargin=0 marginwidth=0 marginheight=0 bgcolor= "#FFFBF0">
<TABLE WIDTH=100% HEIGHT=100% cellspacing=0 cellpadding=0 >
<TR>
<TD height=40px align=center >
<TABLE WIDTH=90% HEIGHT=100% cellspacing=0 cellpadding=0 >
<TR>
<TD height=40px width=80% align=right >
</TD>
</TR>
</table>
</TD>
</TR>
<TR>
<TD WIDTH= valign=top align=center width=100%>
<%
Dim strSql
Dim objconn, strprovider
Dim intRecordsPerPage
Dim intCounter
Dim iPage
Dim intTotalPages
'retrieving page number
iPage=request.querystring ("iPage")
if iPage = "" then
iPage =1
end if
Set rs = Server.CreateObject("ADODB.Recordset")
Set objconn = Server.CreateObject("ADODB.Connection")
'server
strprovider = "Driver=Microsoft Access Driver (*.mdb); DBQ=e:\domains\elementdesign.dc-hosting.co.uk\user\private\prices.mdb;"
'local
'strprovider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\RameshPersist\prices.mdb;Persist Security Info=False"
objconn.Open(strprovider)
strSQL = " SELECT " & _
" * " & _
" FROM " & _
" priceTable ;"
rs.Open strSQL, objconn, 3
if rs.recordcount > 0 then
intRecordsPerPage = 250
intCounter=0
intTotalPages = cint(rs.RecordCount/intRecordsPerPage)
if (rs.RecordCount mod intRecordsPerPage) > 0 then
intTotalPages=intTotalPages+1
end if
while not rs.eof and iCounter < (iPage-1)*intRecordsPerPage
rs.movenext
iCounter = iCounter + 1
wend
iCounter = 0
%>
<!--BeginPaging-->
<table align=center width=90% bgcolor= "#FFFBF0">
<tr>
<td align="right" colspan=4>
<% If iPage <> 1 then %>
<a href="showimage.asp?ipage=<% = (iPage-1) %>">
<font face="verdana" size=2>Previous</font>
</a>
<% end if %>
[ Page Number<%response.write iPage %> out of <% response.write intTotalPages%>]
<% if cint(iPage) <> cint(intTotalPages) then %>
<a href="showimage.asp?ipage=<% = (iPage+1) %>">
<font face="verdana" size=2>Next</font>
</a>
<% end if %>
</td>
</tr>
</table>
<!--EndPaging-->
<TABLE WIDTH=90% border=1 bordercolor="navy" cellspacing=0 align=center bgcolor= "#FFFBF0">
<FORM name="frmShowImage" method="Post" action="{FileName}" onsubmit="return(fnValidateForm())">
<tr bgcolor="#80A0C0">
<td width=35% align=center><font size=5>Author</font>
</td>
<td width=35% align=center><font size=5>Title</font>
</td>
<td width=15% align=center><font size=5>Price</font>
</td>
<td width=15% align=center><font size=5> </font>
</td>
</tr>
<%
while (not rs.EOF and intCounter < intRecordsPerPage)
%>
<tr bgcolor="#FFFBF0">
<td align=center> <%response.write(rs("Artist")) %>
</td>
<td align=center> <%response.write(rs("Title")) %>
</td>
<td align=center>
<%
if rs("Price")<> "" then
response.write("£" &rs("Price"))
else
response.write("poa")
end if
%>
</td>
<td align=center> <a href="http://www.elementdesign.dc-hosting.co.uk/laurenceoxley/imagedetail.asp?ID=<%=rs("ID") %>">Further Information</a>
</td>
</tr>
<%
rs.movenext
intCounter = intCounter + 1
wend
%>
<!--BeginPaging-->
<table align=center width=90% bgcolor= "#FFFBF0">
<tr>
<td align="right" colspan=4>
<% If iPage <> 1 then %>
<a href="showimage.asp?ipage=<% = (iPage-1) %>">
<font face="verdana" size=2>Previous</font>
</a>
<% end if %>
[ Page Number<%response.write iPage %> out of <% response.write intTotalPages%>]
<% if cint(iPage) <> cint(intTotalPages) then %>
<a href="showimage.asp?ipage=<% = (iPage+1) %>">
<font face="verdana" size=2>Next</font>
</a>
<% end if %>
</td>
</tr>
</table>
<!--EndPaging-->
<% else
objconn.close
%>
<tr bgcolor="#FFFBF0">
<td colspan=4 align=center><Font color=red size=5> No Records Found</font>
</td>
</tr>
<% end if %>
<!-***********************************************HIDDEN FIELDS****************************-->
<input type="hidden" name=iPage value = "<%=iPage%>">
</FORM>
<TABLE>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Please help as this one is driving me mad!
TIA
Giles Carey
giles at elementdesign.biz
--
[ top.gif was deleted, please don't send attachments with your message. ]
--
More information about the thelist
mailing list