Feltyp:
ADODB.Recordset (0x800A0BB9)
Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.
/projekt/kolli.asp, line 10
If Request.QueryString("status") = "spara" Then
<!-- #include file="Include/dbconnect.asp" -->
arrRMA = Split(Request.Form("rma"), VBCrLf)
For Each x in arrRMA
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT ArendeKommentar FROM Arenden where ArendeID = "&Trim(x)
[b]RS.Open strSQL, objConn, 3, 3[/b]
If NOT RS.EOF Then
OldKommentar = RS("ArendeKommentar")
RS("ArendeKommentar") = OldKommentar & vbcrlf & Trim(Request.Form("rma"))
RS.Update
Else
Response.Write "RMA " &x & "finns ej i databasen"
Response.End
End If
RS.Close : Set RS = Nothing
Next
' Response.Redirect "default.asp"
End If
Include/dbconnect.asp
strConn = "Driver={SQL Server};Server=xxx;Database=xxx;Uid=xxx;Pwd=xxx;"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.CursorLocation = 3