ADODB.Recordset error \'800a0e78\'

Jeg tror du har glemt at lave en connection til din database.

//Claus

Nej den er længere oppe i scribtet, men selvom jeg lægger connectionen ind i proceduren kommer samme fejl i denne line

Do While Not objRS.EOF

Hvad indeholder objRS.EOF ?

Ok her er koden til dennne site



<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
%>
<!-- #INCLUDE FILE= \"adovbs.inc\" -->
<%

Dim objConn, objRS, strQ
Dim strConnection
Dim i,j
Dim varSql

Set objConn = Server.CreateObject(\"ADODB.Connection\")
strConnection = \"Data Source=XXXXXX;\"
strConnection = strConnection & \"User ID=XXXXXXXXXX;Password=XXXXXXXX;\"
objConn.Open strConnection

Set objRS = Server.CreateObject(\"ADODB.Recordset\")
Set objRS.ActiveConnection = objConn
objRS.LockType = adLockPessimistic

Sub Procedure_RetKeyGeneral()

Do Until objRS Is Nothing

Do While Not objRS.EOF

For i =1 to 17
strQ = \"UPDATE TKeyGeneral\"
strQ = strQ & \" SET \"& objRS(i).Name &\" =\'\" & Request.Form(\"Key\"&(i)&\"\") & \"\'\"
strQ = strQ & \" WHERE Afdeling =\'\" & Request.Form(\"afNavn\") & \"\'\"
objConn.Execute strQ
Next
objRS.MoveNext
Loop
Set objRS = objRS.NextRecordset
Loop
objConn.Close
Set objConn = Nothing
End Sub

Sub Procedure_TilfoejKeyGeneral()

Do Until objRS Is Nothing
Do While Not objRS.EOF

Response.Write\"Tilfoej er nu aktiv\"

strQ = \"INSERT INTO TKeyGeneral\"
For i = 1 to 17
Select Case i
  Case \"1\"
  strQ = StrQ =\"(\'\" & objRs(i).Name &\"\'\"
  Case \"17\"
  strQ = StrQ =\",\'\" & objRs(i).Name & \"\') VALUES\"
  Case else
    strQ = StrQ =\",\'\" & objRs(i).Name & \"\'\"
  End Select
Next
objRS.MoveNext
Loop
Set objRS = objRS.NextRecordset
Loop

For j = 1 to 17
Select Case i
  Case \"1\"
  strQ = StrQ =\"(\'\" & Request.Form(\"Key\"&(j)&\"\") &\"\'\"
  Case \"17\"
  strQ = StrQ =\",\'\" & Request.Form(\"Key\"&(j)&\"\") & \"\')\"
  Case else
    strQ = StrQ =\",\'\" & Request.Form(\"Key\"&(j)&\"\") & \"\'\"
  End Select
NEXT
objConn.Execute strQ
objConn.Close
Set objConn = Nothing
End Sub

Sub Procedure_SletKeyGeneral()
Response.Write\"Du har nu slettet \" & Request.Form(\"afNavn\") & \" afdelingen fra landkortet\"
strQ = \"DELETE FROM TKeyGeneral\"
strQ = strQ & \" WHERE Afdeling =\'\" & Request.Form(\"afNavn\") & \"\'\"
objConn.Execute strQ
End Sub

varSql=Request.form(\"Rette\")
  Select Case varSql
  Case \"Ret\"
  Procedure_RetKeyGeneral()
  Case \"Tilføj\"
  Procedure_TilfoejKeyGeneral()
  Case \"Slet\"
  Procedure_SletKeyGeneral()
  Case else
  Response.Write\"Er ikke kommet ind \"
  End Select
  %>