9 svar · 253 visningar · startad av ampy
Jag förstår inte vad felet är på denna kod:
<%
' ÖPPNAR DATABASEN
SQL = "SELECT * FROM LinkCounter ORDER BY ID DESC"
Set RecSet = Server.Createobject("ADODB.Recordset")
RecSet.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veckanslank/linkcounter.mdb")
%>
<font face="Verdana" size="1">
<a href="veckanslank/linkcounter.asp?action=in&id=<%=RecSet("id")%>" target="_blank"><%=RecSet("Namn")%></a>
<br>
<%=RecSet("Beskrivning")%>
<br><br>Vi väljer själva ut Veckans länk och vi väljer ut de sajter som vi tycker har snygg design och bra innehåll. <br><br>
Senaste "Veckans länk" var det <b><%
RecSet.Close
Set RecSet = nothing
Addera = "Select TOP 2 * From LinkCounter ORDER BY id desc"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<br>
<%
RecSet.MoveNext
do until RecSet.EOF %>
<br> <% response.write RecSet("Klick")
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%></b> som besökte.
Felmeddelande:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.
/Ampy/main.asp, line 658
Någon som kan se vad felet är?
------------------
Ampy.cjb.net
Du stänger RecSet och precis efter kör du objektet igen. Låt det vara öppet! Ta bort:
...Senaste "Veckans länk" var det <b><%
[b]RecSet.Close
Set RecSet = nothing[/b]
Addera = "Select TOP 2 * From LinkCounter ORDER BY id desc"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
...
------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."
Ey Pace, det är bara Set RecSet = nothing han ska ta bort...
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
Det blir dettta felmeddelande nu:
Feltyp:
ADODB.Recordset (0x800A0E7D)
Åtgärden är inte tillåten på ett objekt som refererar till en stängd eller en ogiltig anslutning.
/Ampy/main.asp, line 658
Jag tog bort Set RecSet = nothing bara.
------------------
Ampy.cjb.net
Ett tips är att skriva:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veckanslank/linkcounter.mdb")
Microsoft Jet drivrutinen ska vara mycket snabbare än gamla Microsoft Access Driver.
När du sen öppnar databasen kan du skriva:
RecSet.open SQL, objConn
Sen ett annat tips är ju att lägga din databas så den inte ligger åtkomlig för allmänheten. Så som den ligger nu så kan ju vem som helst ladda ner den.
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
Kolla vad du tilldelar Connect längre upp...
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/
Bra!
Ser lite läskigt ut att du har över 600 rader kod. Borde kanske fundera på Com-objekt..? ;) :)
------------------
/Erik
www.juhlin.nu /sk8files/ /mp2d/