Varför får jag invalid operation on closed object Gör istället såhär När ovanstående kod skrivs om så får jag Om du inte får något fel beror det kanske på att de förutsättningar du har i din where-sats aldrig matchas och därmed inte heller utför några ändringar.update-sats
<code>
Dim SQL, conn, RS
SQL = "SELECT * FROM Mainsite"
Set RS = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.connection")
conn.Open connstr
Start = Request.Form("start")
InfoTopRight = Request.Form("infotop")
InfoBottom = Request.Form("infobottom")
conn.Execute(SQL)
RS.Update
RS.Close
conn.Close
Response.Redirect "../main.asp"
</code>Sv: update-sats
Set conn = Server.CreateObject("ADODB.connection")
conn.Open connstr
Start = Request.Form("start")
InfoTopRight = Request.Form("infotop")
InfoBottom = Request.Form("infobottom")
sql = "update mainsite set " & _
"InfoTopRight = '" & InfoTopRight & "', " & _
"InfoBottom = '" & InfoBottom & "' " & _
"where start = " & start
conn.Execute(SQL)
conn.Close
set conn = nothing
Response.Redirect "../main.asp"Sv: update-sats
SQL = "UPDATE Mainsite SET colStart='" & TextAreaStart & "', colTopRight='" & TextAreaTopRight & "', colBottom='" & TextAreaBottom & "' "
SQL = SQL & " WHERE colStart ='" & TextAreaStart & "', colTopRight ='" & TextAreaTopRight & "', colBottom ='" & TextAreaBottom & "' "
conn.Execute(SQL) 'Kör sql-satsen, response.write(sql) om man vill se vilka värden som finns i strängen
problemet är bara att infon inte uppdateras, bara återgår till det förra inskrivnaSv: update-sats