|
 |
asp_databases thread: Microsoft VBScript runtime error '800a01a8'
Message #1 by "big Gav" <crow@o...> on Wed, 11 Sep 2002 08:34:49
|
|
need help on how to fix this , any help would be appraciated :D
i take it this is a popular error message anyways this is what i got:
Microsoft VBScript runtime error '800a01a8'
Object required
/gavind/final/store/cart.asp, line 71
HERES MY CODE :
<% @language="VBScript" %>
<% option explicit %>
<html>
<%
Dim strDBPath,strProvider,conn,rs
'============Path to Database===============
strDBPath = Server.MapPath("/gavind/final/admin/reproducts.mdb")
' ============ ADO Connection ====================
Set conn = Server.CreateObject ("ADODB.Connection")
strProvider="DRIVER={Microsoft Access Driver (*.mdb)};"
strProvider= strProvider & "DBQ=" & Server.MapPath
("/gavind/final/admin/reproducts.mdb")
conn.Open strProvider
%>
<div class=main>
<table border="1" width=90% cellspacing="0" cellpadding="1" align="center">
<tr bgcolor="#000000">
<td><i>Product ID</i></td>
<td><i>Product Name</i></td>
<td><i>Qty</i></td>
<td><i>Item Price</i></td>
<td><i>Total Price</i></td>
<td><i>Edit Product</i></td>
</tr>
<%
Set rs = conn.Execute("SELECT * FROM Cart")
Do While Not rs.EOF %>
<tr>
<td><%= rs.Fields("ProductID").Value %></td>
<td><%= rs.Fields("productname").Value %></td>
<td><%= rs.Fields("qty").Value %></td>
<td><%= rs.Fields("Price").Value %></td>
<td><%= (rs.Fields("qty").value * rs.Fields("Price").Value)%></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
</div>
</body>
</html>
<%
rs.close
Set rs=Nothing
conn.Close
Set conn = Nothing
%>
Message #2 by "big Gav" <crow@o...> on Wed, 11 Sep 2002 08:46:54
|
|
sorry i fixed it stupid me , had an include file where there shouldnt be
one
my bad
|
|
|
View Cart
