[thelist] ASP Problems again..
Jerry Scannell
JerryScannell at cox.net
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> </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.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 !
>
More information about the thelist
mailing list