6 svar · 191 visningar · startad av FIgg3
Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.
vad är fel????
här är koden
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("stat.mdb")
SQL = "SELECT * FROM stat ORDER BY ID "
Set RecSet = Connect.Execute(SQL)
Set RecSet2 = Connect.Execute(SQL)
%>
<%
total = 0
DO UNTIL Recset2.EOF
total = Int(total) + Int(RecSet2("klick"))
Recset2.MOVENEXT
LOOP
RecSet.Close
Set RecSet = Nothing
%>
</b></font></p>
<table border="0" cellspacing="0" cellpadding="0" width="278" height="10">
<tr>
<td width="93"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Namn
</font></td>
<td width="141"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Senast
besökt </font></td>
<td width="44">
<div align="right"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Klickat
</font></div>
</td>
</tr>
<p>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="276" height="10">
<%
DO UNTIL Recset.EOF
klick = Int(RecSet("klick"))
klick2 = Round((klick/total)*100)
nummer = nummer + 1
If nummer Mod 2 = 0 then
color = ""
Else
color = "#999933"
End If
%>
<tr>
<td bgcolor="<%=color%>" width="99"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?vidare=intern&ID=<%=Recset("ID")%>"><%=Recset("namn")%></a></font></td>
<td bgcolor="<%=color%>" width="167"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("senaste")%>
</font></td>
<td bgcolor="<%=color%>" width="34">
<div align="right"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<b><%=klick2%>% </b> </font></div>
</td>
</tr>
<%
Recset.MOVENEXT
LOOP
%>
Hej!
Du skapar 2 Recset till samma SQL-fråga.
Sedan försöker du använda ett Recset som redan är stängt och "dödat".
r: stavfel
mvh Jörgen :)
------------------
"Ett väl utfört arbete ger en inre tillfredsställelse och är den grund varpå samhället vilar."
[Redigerat av jorgen den 24 sep 2001]
Hur tänker du allså hur ska ja göra för att få det att fungera och skipper fel medelandet
Du stänger och förstör RecSet innan du är klar, dessutom.
RecSet.Close
Set RecSet = Nothing
Felplacerat alltså.
Men du, välkommen till webForum i alla fall!
Mvh,
------------------
All your base are belong to me.
tack för välkommandet ska testa det du sa kommer till baka om någon minut eller så skulle inte tro jag får rät tpå det :)
tack jag löste det tack igen och tack för välkommandet
Korvfarbrorn hälsar dig välkommen :) , hoppas du kommer att trivas för att goöra det enkelt för dig kommer hör lite tips :)
kolla in denna länk den ger dig lite tips hur du kan skriva olika koder :)
Sen kan du alltid söka på olika ämnen i wF´s eminenta söksystem där de flesta frågor redan varit uppe :h
Hittar du inte vad du söker där kommer det alltid att finnas folk som svarar på dina frågor här :)
------------------
Korvfarbror