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
Annonceindlæg fra Academic Work Denmark A/S
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") %>
22. april 2003 - 21:14
#2
var mit svar
22. april 2003 - 21:21
#3
det samme som før :(
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!!
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") %>
22. april 2003 - 21:33
#6
det samme
27. april 2003 - 09:45
#7
lige meget nu...
Kurser inden for grundlæggende programmering