[thelist] ASP Problems again..

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>&nbsp;</font>
   </td>

  </tr>
   <%

    while (not rs.EOF and intCounter < intRecordsPerPage)
   %>

     <tr bgcolor="#FFFBF0">
      <td align=center>&nbsp;<%response.write(rs("Artist")) %>
      </td>
      <td align=center>&nbsp;<%response.write(rs("Title")) %>
      </td>
      <td align=center>&nbsp;
      <%
       if rs("Price")<> "" then
        response.write("£" &rs("Price"))
       else
        response.write("poa")
       end if
      %>
      </td>
      <td align=center>&nbsp;<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. ]
--