Error Inserting new records

[billy_111]

Hi i am trying to insert new records by using a stored procedure with the following code:

<%
Dim Connection
Dim Command
Dim Records
Dim Count
Dim CurrentService

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Application("conn")

Set Command = Server.CreateObject("ADODB.Command")
Set Command.ActiveConnection = Connection
Command.CommandType = adCmdStoredProc 'Call the stored procedure here

Select Case Request("Action")
    Case "Create"        
        Command.CommandText = "spTaxiBookingCreate" 'Call the type of stored procedure here
        Command.Parameters.Append Command.CreateParameter("@theDate", adDate, adParamInput) 'Append Parameters
        Command.Parameters.Append Command.CreateParameter("@theTime", adDate, adParamInput)
        Command.Parameters.Append Command.CreateParameter("@Location", adVarWChar, adParamInput, 50)
        Command.Parameters.Append Command.CreateParameter("@DropOff", adVarWChar, adParamInput, 50)
        Command.Parameters.Append Command.CreateParameter("@Paid", adInteger, adParamInput)
        Command.Parameters.Append Command.CreateParameter("@Notes", adVarWChar, adParamInput, 3600)
        Command.Parameters("@theDate") = Request("theDate")
        Command.Parameters("@theTime") = Request("theTime")
        Command.Parameters("@Location") = Left(Request("Location"), 50)
        Command.Parameters("@DropOff") = Left(Request("DropOff"), 50)
        Command.Parameters("@Paid") = CInt(Request("Paid"))
        Command.Parameters("@Notes") = Left(Request("Notes"), 3600)
        Command.Execute 
        Command.Parameters.Delete 1 'theDate --- Clear Parameters from memory
        Command.Parameters.Delete 1 'theTime
        Command.Parameters.Delete 1 'Location
        Command.Parameters.Delete 1 'DropOff
        Command.Parameters.Delete 1 'Paid
        Command.Parameters.Delete 1 'Notes
    
    End Select

Command.CommandText = "spTaxiBookings"
Set Records = Server.CreateObject("ADODB.Recordset")
Records.Open Command, , adOpenStatic
%> 

In get the following error:

Microsoft SQL Native Client error '80040e14'

A server cursor cannot be opened on the given statement or statements. Use a default result set or client cursor.

Referring to this line:

Records.Open Command, , adOpenStatic 

Any ideas what the problem might be?

Thanks

[NightStalker-DNS]

Is this classic asp.old? As it does not look like VB.NET.

[billy_111]

Yes it's classic asp

Started a new job as a Software Engineer building web applications for internal systems. So some of the applications are in classic ASP.

What do you think the problem is? I did some research and found that it may be to do with the stored procedure in regards adding "SET NOCOUNT ON" but i have already done this so i am slightly confused..

Any ideas?

[NightStalker-DNS]

hmmm. Sorry. All my knowledge of asp.old has long been forgotten. lol. Good luck though with those applications. Hopefully someone here can assist you

[billy_111]

Thats ok thanks anyway

Will be moving onto ASP.NET MVC next week should be exciting

[imaginekitty]

There is a classic ASP forum here that would most likely be able to help you.

[billy_111]

Thanks, can someone please very kindly move this thread to the classic ASP forum?

Much appreciated

[siteguru]

http://www5.brinkster.com/hiflyer/db/dbtest3.asp

Some info there regarding cursortypes etc. (Not saying it will help, but at least it's somewhere to start).

[webber123456]

this is actually an ADO question, but here is a link to some example code for returning a recordset from a stored procedure.

[google is your friend]

http://www.eggheadcafe.com/PrintSear...asp?LINKID=407