Ayuda Por Favor ya no puedo mas

[hugoventus]

Tengo el sisguiente codigo en ASP:
<% Option Explicit %>
<!--#include file="comun.inc" -->
<!--#include file="adovbs.inc" -->
<%
'If the session variable is False or does not exsist then redirect the user to the unauthorised user page
If Session("blnIsUserGood") = False or IsNull(Session("blnIsUserGood")) = True then
'Redirect to unathorised user page
Response.Redirect"unauthorised_user_page.htm"
End If

Dim rsPedi
Dim Comando
Dim Params
Dim dtvariable

Set Comando=server.createobject("ADODB.Command")
Set rsPedi=Server.CreateObject("ADODB.Recordset")
'Set Params=Server.CreateObject("ADODB.Parameters")

'sin parametros
'{
'With Comando
'Set .activeconnection=strCon
'.commandtext="dbo.Registro"
'.commandtype=adcmdStoredProc
'.Prepared = true
'Set rsPedi = .Execute()
'End with
'Set Comando=Nothing
'}

'con parametros
'{2003-01-09
dtvariable=DateValue("08/28/03")
With Comando
Set .activeconnection=strCon
.commandtext="dbo.RegistroFecha"
.commandtype=adcmdStoredProc
'Set params = .Parameters
.Parameters.Refresh
''.Parameters.Append .CreateParameter ("@fecha", adDate, adParamInput,8,dtvariable)
''.Parameters.Append .CreateParameter ("@fecha", adVarChar, adParamInput,50,strvariable)
.Parameters(1).value=Cdate("08/28/2003")
'params("@fecha") = DateValue("08/28/2003 00:00:00")
.Prepared = true
(46) Set rsPedi = .Execute()
End with
'rsPedi.Open Comando
'Set rsPedi = Comando.Execute ,,,adCmdStoreProc
Set Comando=Nothing
'}

'''Set rsPedi = strCon.Execute ("RegistroFecha " & "'8/28/2003'" & "")

%>


El Store Procedure es:
CREATE PROCEDURE RegistroFecha @fecha datetime AS
DECLARE @fechabus as datetime
SET DATEFORMAT mdy
Set @fechabus=@fecha
EXEC('Select * from inventarios where fechaped=' + @fechabus + ' order by fechaped ASC')
RETURN
GO


y me marca el siguiente error:
Microsoft OLE DB Provider for SQL Server error '80040e14'

Line 1: Incorrect syntax near '1'.

/control/add_descargo.asp, line 46

La linea 46 viene especificada en el codigo de ASP.... no se si me puedan ayudar..... ya hice de todo lo que he visto publicado en estos foros y no funcionan tengo SQL 2000 server.... no se si tengan alguna sugerencia

[Avelar]

A mi me ha funcionado manejarlo de esta manera, aunque puede depender también de los parámetros que hayas establecido para la conexión:

Código PHP:

      With Comando 
        Set .ActiveConnection = strCon 
        .CommandText = "{call RegistroFecha(?)}" 
         
        .Parameters.Refresh 
        .Parameters(0).Value = CDate("08/28/2003") 
         
        Set rsPedi = .Execute 
    End With  
   

[hugoventus]

Te agradezco tu respuesta Avelar y ya lo hice como dices pero no me funciono....

Este es el codigo para la conneccion a SQL Server
Set strCon = Server.CreateObject("ADODB.Connection")
strCon.ConnectionString = "Provider=SQLOLEDB; Data Source=sql; Initial Catalog=BD; User id=id; Password=Passwordl"
strCon.Open


y me marca el siguiente error:
Microsoft VBScript runtime error '800a01a8'

Object required

/control/add_descargo.asp, line 55


y la linea 55 es una de las que me pasastes....
(55) Set .ActiveConnection = strCon


Alguna otra idea....... o que mas me falta?... Gracias Anticipadamente por sus cometarios....

[Avelar]

Ups... quítale el Set. Se me pasó quitarlo...

.ActiveConnection = strCon

[hugoventus]

me sigue marcando error pero no por como mando llamar el procedimiento mas que todo por el Store Procedure... como quiera muchas gracias. Seguiere checando el Store Procedure.

[Avelar]

El problema en el SP es que estás concatenándole una fecha a una cadena... la variable local @fechabus declárala como varchar y al asignarle el valor del parámetro que enviaste al sp como fecha conviértelo con la función CONVERT.

DECLARE @FechaBus VarChar(23)

SELECT @FechaBus = Convert(VarChar(23), @Fecha)

A la función Convert puedes agregarle el tercer parámetro para indicarle el formato de la fecha (consulta la ayuda para ver los detalles).

Espero que no haya otra cosa escondida por ahí...

Saludos

[hugoventus]

Ya funciono!!!!!!!!!!!!!....... muchas gracias maestro!...... no sabes lo agradecido que estoy....