11 svar · 240 visningar · startad av cgi
När jag använder mig av nedanstående kod,
så får jag upp :
Microsoft VBScript runtime error '800a01a8'
Object required: 'RS'
<%
' ==========================================================================
' Kontrollerar om webbläsaren kan hantera cookies.
' Hämtar cookien som planterades på sidan index.asp och kontrollerar om den
' har korrekt värde.
' ==========================================================================
If Request.Cookies("Validate") = "" Then
Response.redirect("nocookie.asp")
End If
' ==========================================================================
' Öppna databasen och hämtar alla kategorier.
' ==========================================================================
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("shop.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
%>
<html>
<head>
<title>ASP Shop</title>
<link rel="stylesheet" type="text/css" href="styles/shop.css">
</head>
<body background="images/rodbakgrund.gif" bgcolor="#FFFFFF" text="#000000" vlink="#0000FF">
<table border="0" width="600">
<tr>
<td width="150"><img src="images/div.gif" alt="div.gif (51 bytes)" WIDTH="149" HEIGHT="1"></td>
<td align="center"><img src="images/shoplogga.gif" alt="shoplogga.gif (5801 bytes)"
WIDTH="349" HEIGHT="90"></td>
</tr>
<tr>
<td width="150" valign="top"><a href="index.asp"><img src="images/home.gif" border="0"
WIDTH="120" HEIGHT="15"></a><p><a href="enter.asp"><img src="images/categories.gif"
border="0" WIDTH="120" HEIGHT="15"></a></p>
<p><a href="basket.asp"><img src="images/basket.gif" border="0" WIDTH="120" HEIGHT="15"></a></p>
<p><a href="cashier.asp"><img src="images/cashier.gif" border="0" WIDTH="120" HEIGHT="15"></a></td>
<td align="left"> <p><font face="Arial"><small>Först ska du välja<font color="#808080">
vilken kategori du är intresserad av. Klicka på någon av nedanstående kategorier för
att gå vidare.</font></small></font></p>
<div align="center"><center><table border="0" width="80%" cellpadding="2">
<tr>
<td width="100%" bgcolor="#FFE1C4"><strong><small><font face="Arial">Kategorier:</font></small></strong></td>
</tr>
<% DO UNTIL RS.EOF %>
<tr>
<td width="100%" bgcolor="#F5F5F5"><a href="produkter.asp?KatId=<%= RS("KatId") %>"><small><font
face="Arial"><%= RS("Kategori") %></font></small></a></td>
</tr>
<%
RS.MoveNext
Loop
%>
</table>
</center></div><p> </p>
<p> </p>
<p> </p>
</tr>
</table>
</body>
</html>
<%
' ==========================================================================
' Stäng databasen och RS.
' ==========================================================================
RS.Close
Connection.Close
%>
Vad sjutton är fel.???
Ändra topp asp koden, innan <html>, till förljande:
<%
If Request.Cookies("Validate") = "" Then
Response.redirect("nocookie.asp")
End If
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\shop.mdb")
SQL = "SELECT * FROM tabell"
SET RS = Connection.Execute(SQL)
%>
Ändra tabell mot din tabell.
Borde fungera smärtfritt nu.
Andreas
[Redigerat av AG den 15 maj 2000]
Nej du, jag får fortfarande samma fel.!!
På rad (42).
Det är den här raden som spökar:
<% DO UNTIL RS.EOF %>
AGs kod funkade inte alls, fick byta ut den mot denna:
<%
If Request.Cookies("Validate") = "" Then
Response.redirect("nocookie.asp")
End If
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("shop.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
%>
Vad menar du med att kommentera ut hela lopen.??
OK, då ser jag... du har inte skapat en fråga till databasen... skriv det här:
<%
If Request.Cookies("Validate") = "" Then
Response.redirect("nocookie.asp")
End If
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("shop.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
SQL = "Select * from tabell"
Set RS = databas.execute(SQL)
%>
... och byt ut tabell mot den tabell du vill hämta data ur...
------------------
)|(
(o o)
-oo0-(_)-0oo-----
webeye.nu
Nu funkar det bättre, jag fick byta ut
SQL = "Select * from tabell"
till
SQL = "Select * from Kat"