Ciao a tutti, ho un problema con un inserimento dati tramite un Stored Procedure che sembra funzioni visto che eseguendola con queryanalyzer fa il suo dovere, temo che il problema sia nel codice asp ma non riesco a capire dove sbaglio mi potreste aiutare?
ASP
<%
IdClientePromo = Request.Form("IdClientePromo")
CodiceUtente = Request.Form("codice")
Matricola = Request.Form("matricola")
Cap = Request.Form("Cap")
SCap = Request.Form("SCap")
Ulm = request.Form("Ulm")
AmbitoCliente = Request.Form("Ambito")
DataFrom = Request.Form("DataFrom")
DataTo = Request.Form("DataTo")
myfrom=Split(DataFrom,"/")
mydFrom = myfrom(0)
mymFrom = myfrom(1)
myyFrom = myfrom(2)
myTo=Split(DataTo,"/")
mydTo = myTo(0)
mymTo = myTo(1)
myyTo = myTo(2)
DataFrom = int(myyFrom&mymFrom&mydFrom)
DataTo = int(myyTo&mymTo&mydTo)
dim p0, p1, p2, p3, p4, p5, p6, p7, p8, p9
set RsCon = Server.CreateObject("ADODB.Connection")
set objcomm = Server.CreateObject("ADODB.Command")
RsCon.open strConn
with objcomm
.ActiveConnection = RsCon
.CommandText = "SAL_UPDATEUSERPROMO"
.CommandType = adCmdStoredProc
set p0= .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)
Set p1= .CreateParameter("@IdClienteProm", adInteger, adParamInput,,IdClientePromo)
Set p2= .CreateParameter("@CodiceUtente", adNumeric, adParamInput,,Matricola)
Set p3= .CreateParameter("@Matricola", adNumeric, adParamInput,,Matricola)
Set p4= .CreateParameter("@Cap", adVarchar, adParamInput,5,Cap)
Set p5= .CreateParameter("@SCap", adVarchar, adParamInput,2,SCap)
Set p6= .CreateParameter("@Ulm", adNumeric, adParamInput,,Ulm)
Set p7= .CreateParameter("@AmbitoCliente", adInteger, adParamInput,,AmbitoCliente)
Set p8= .CreateParameter("@DataFrom", adInteger, adParamInput,,DataFrom)
Set p9= .CreateParameter("@DataTo", adInteger, adParamInput,,DataTo)
p2.NumericScale=0
p2.Precision=7
p3.NumericScale=0
p3.Precision=8
p6.NumericScale=0
p6.Precision=18
.Parameters.Append p0
.Parameters.Append p1
.Parameters.Append p2
.Parameters.Append p3
.Parameters.Append p4
.Parameters.Append p5
.Parameters.Append p6
.Parameters.Append p7
.Parameters.Append p8
.Parameters.Append p9
.Execute
theResult = .parameters("RETURN_VALUE")
end with
set objcomm = nothing
RsCon.close
set RsCon = nothing
Rispondi quotando
