9 svar · 268 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?
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
...
Ey Pace, det är bara Set RecSet = nothing han ska ta bort...
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.
Vad finns i variablen Connect?
Hur ser man det?
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.
Kolla vad du tilldelar Connect längre upp...
Jag har fixat det nu 
