[thelist] ASP Problems again..

Thu Oct 31 08:02:01 CST 2002

I will be glad to help you if you would identify which line of code is line
85.  If possible, provide the imagedetail.asp as an attachment to an eMail
so I can check it out.

Jerry

----- Original Message -----
From: "Giles Carey | Element Design" <giles at elementdesign.fsnet.co.uk>
To: <thelist at lists.evolt.org>
Sent: Thursday, October 31, 2002 5:51 AM
Subject: [thelist] ASP Problems again..

> --
> --
> [ 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.as
p?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. ]
> --
>
> --
> For unsubscribe and other options, including
> the Tip Harvester and archive of thelist go to:
> http://lists.evolt.org Workers of the Web, evolt !
>