Något fel på denna kod?

5 svar · 259 visningar · startad av sudden 9 nov. 2002

suddenMedlem sedan okt. 2002341 inlägg

Frågan9 nov. 2002 21:37#1

Är det något fel på den här koden?? :

<%@Language = VBScript%>
<%Option Explicit%>

<%
Dim DSNtemp
Dim Connection
Set Connection = Server.CreateObject("ADODB.Connection")
DSNtemp = "driver={MySQL};SERVER=mysql;DATABASE=sudden;UID=sudden;PWD=qwert"

Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tblAnvändare, objConn, , adLockOptimistic, adCmdTable"
objRS.AddNew
objRS("FörNamn") = Request.Form("fornamn")
objRS("EfterNamn") = Request.Form("efternamn")
objRS("E-post") = Request.Form("e-post")
objRS("AnvändarNamn") = Request.Form("anv")
objRS("Lösen") = Request.Form("pass")
objRS.Update
obj.RS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

<html>
<body>
Tack för din medverkan
</body>
</html>

Jag får detta felmeddelande:

Feltyp:
ADODB.Recordset (0x800A0E7D)
Det går inte att använda anslutningen för den här åtgärden. Den är stängd eller ogiltig i det här sammanhanget.
/test2/add.asp, line 14

EitrazMedlem sedan sep. 2002366 inlägg

9 nov. 2002 21:39#2

Du ska nog ta bort fnuppsen på
objRS.Open "tblAnvändare, objConn, , adLockOptimistic, adCmdTable"

-Eitraz

nikoMedlem sedan juni 20022 599 inlägg

9 nov. 2002 21:44#3

Jag skulle tagit bort den felaktiga punkten här:

obj.RS.Close

EitrazMedlem sedan sep. 2002366 inlägg

9 nov. 2002 21:59#4

Hehe, det kan nog oxå vara klokt :)

JosefMedlem sedan mars 20023 561 inlägg

10 nov. 2002 10:51#5

Det är ganska dumt att skapa ett connection-objekt med ett namn och sedan använda ett annat i den resterande koden...
Jag tycker att du skall använda connection överallt istället för att ibland använda connection och ibland objConn.

cupyMedlem sedan apr. 2002299 inlägg

10 nov. 2002 14:33#6

Jag kan ha fel men jag skulle rätta den oxå:

objRS.Open "tblAnvändare, objConn, , adLockOptimistic, adCmdTable"

till

objRS.Open tblAnvändare, objConn, adLockOptimistic, adCmdTable