Avatar billede fun22 Nybegynder
22. april 2003 - 21:04 Der er 6 kommentarer og
1 løsning

Hvad er der galt her?

Jeg har denne kode på min side:

<%
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\WEB\ZIG-SOFTWARE.DK_I5Z5ER\db\data.mdb"
Set rs2 = Server.CreateObject("ADODB.Connection")
sql2 = "update * from projekter WHERE Id = " & request.Querystring("ID")
rs2.open sql2, conn2, 1, 3
                                    rs2.update <--
                                    rs2("titel") = Server.HTMLEncode(Request("titel"))
                                    rs2("projekt") = Server.HTMLEncode(Request("nyhed"))
                                    rs2("skrevet_af") = rs2("skrevet_af")
                                    if request.form("arkiv") <> "" then
                                    rs2("arkiv") = true
                                    end if
                                    rs2.update   


   
Response.Redirect ("projekt.asp")
%>

Men den siger:

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

i den markeret linie
Avatar billede mini-me Nybegynder
22. april 2003 - 21:14 #1
her

<%
Set conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\WEB\ZIG-SOFTWARE.DK_I5Z5ER\db\data.mdb"

set rs2 = Server.CreateObject("ADODB.Connection")
sql2 = "update * from projekter WHERE Id = " & request.Querystring("ID")

rs2.open sql2, conn2, 1, 3
                                    rs2.update <--
                                    rs2("titel") = Server.HTMLEncode(Request("titel"))
                                    rs2("projekt") = Server.HTMLEncode(Request("nyhed"))
                                    rs2("skrevet_af") = rs2("skrevet_af")
                                    if request.form("arkiv") <> "" then
                                    rs2("arkiv") = true
                                    end if
                                    rs2.update   


   
Response.Redirect ("projekt.asp")
%>
Avatar billede mini-me Nybegynder
22. april 2003 - 21:14 #2
var mit svar
Avatar billede fun22 Nybegynder
22. april 2003 - 21:21 #3
det samme som før :(
Avatar billede mini-me Nybegynder
22. april 2003 - 21:28 #4
<%

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\WEB\ZIG-SOFTWARE.DK_I5Z5ER\db\data.mdb"

set rs = Server.CreateObject("ADODB.Connection")
sql = "update * from projekter WHERE Id = " & request.Querystring("ID")

rs.open sql, conn, 1, 3

                                    rs.update
                                    rs("titel") = Server.HTMLEncode(Request("titel"))
                                    rs("projekt") = Server.HTMLEncode(Request("nyhed"))
                                    rs("skrevet_af") = rs("skrevet_af")
                                    if request.form("arkiv") <> "" then
                                    rs("arkiv") = true
                                    end if
                                    rs.update   

set conn = nothing
rs.close

   
Response.Redirect ("projekt.asp")
%>


Skal virke!!
Avatar billede mini-me Nybegynder
22. april 2003 - 21:29 #5
Ahh såen her.. var lidt for hurtig...

<%

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\WEB\ZIG-SOFTWARE.DK_I5Z5ER\db\data.mdb"

set rs = Server.CreateObject("ADODB.Connection")
sql = "select * from projekter WHERE Id = " & request.Querystring("ID")

rs.open sql, conn, 1, 3

                                    rs.update
                                    rs("titel") = Server.HTMLEncode(Request("titel"))
                                    rs("projekt") = Server.HTMLEncode(Request("nyhed"))
                                    rs("skrevet_af") = rs("skrevet_af")
                                    if request.form("arkiv") <> "" then
                                    rs("arkiv") = true
                                    end if
                                    rs.update   

set conn = nothing
rs.close

   
Response.Redirect ("projekt.asp")
%>
Avatar billede fun22 Nybegynder
22. april 2003 - 21:33 #6
det samme
Avatar billede fun22 Nybegynder
27. april 2003 - 09:45 #7
lige meget nu...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester