Microsoft VBScript runtime Error 800a01fb

er der noget kode?

/Søren Søndergård

Koden er som følger:
-------------------------------
dim Cmd, Conn, RS
   
set Conn = Server.CreateObject("ADODB.Connection")
set Cmd = Server.CreateObject("ADODB.Command")
set RS = Server.CreateObject("ADODB.Recordset")
   
Conn.Open Application("ConnectionString")
set Cmd.ActiveConnection = Conn
with Cmd
  .CommandText = "sp_XXXXXXXXX"
  .CommandType = 4 'adCmdStoredProc
  .Parameters.Append .CreateParameter("xxx", 203, 1, 32, trim(Request.QueryString("xxx")))
  .Parameters.Append .CreateParameter("yyy", 203, 1, 24, trim(Request.QueryString("yyy")))
  .Parameters.Append .CreateParameter("zzz", 203, 1, 256, trim(Request.QueryString("zzz")))

end with
set    RS = Cmd.Execute

do while not RS.EOF
....
Session("xxx") = RS.Fields("xxx")
Session("yyy") = RS.Fields("yyy")
....
RS.MoveNext
loop
set Conn = nothing
set Cmd = nothing
set RS = nothing
-------------------------------

Selve fejlen (se ovenstående spørgsmål) kommer kun en gang i mellem. Som regel hjælper det hvis jeg genstarter serveren.

Jeg TROR at det msåke kunne ha' noget med nogle objecter, der ikke bliver "lukket" korrekt ned i forhold til hinanden....!?

Jeg synes ikke rigtig jeg kan finde noget ordenligt hjælp eller fejlkode oversigt hos microsoft..  :-(

Håber I kan hjælpe

hvad er lige formålet med scriptet?

Formål:
Udfra brugernavn, brugernavn2, password at logge brugeren ind.
Brugerens rettigheder placeres i forskellige sessions.