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 tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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