Ho sempre il seguente problema e non so dove sbattere la testa![]()
![]()
:
Tipo di errore:
Provider (0x80020005)
Incompatibilità tra tipi.
/sinetlab/Asp/creaForm.asp, line 8
Ecco il codice
<%
if Session("user") = "" then
Response.Redirect("logonForm.asp")
end if
Dim rs
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open, "tblCommesse",Application("aConnSito"),3,3
Dim vNamber
Dim vDesc
Dim vRIAC
Dim vCliente
Dim vContratto
Dim vDataCon
Dim vDataOrd
Dim vAvanza
Dim vDdT
Dim vUser
Dim vPass
vNamber = LCase(Trim(Replace(Request.Form("fNum"), "'", "''")))
vDesc = LCase(Trim(Replace(Request.Form("fRIAC"), "'", "''")))
vRIAC = LCase(Trim(Replace( Request.Form("fdesCom"), "'", "''")))
vCliente = LCase(Trim(Replace(Request.Form("fCliente"), "'", "''")))
vContratto = LCase(Trim(Replace( Request.Form("fRifCon"), "'", "''")))
vDataCon = LCase(Trim(Replace( Request.Form("fDataC"), "'", "''")))
vDataOrd = LCase(Trim(Replace(Request.Form("fDataO"), "'", "''")))
vDdT = LCase(Trim(Replace( Request.Form("fDDT"), "'", "''")))
vAvanza = LCase(Trim(Replace(Request.Form("favanzamento"), "'", "''")))
vUser = LCase(Trim(Replace( Request.Form("fUserN"), "'", "''")))
vPass = LCase(Trim(Replace(Request.Form("fUserP"), "'", "''")))
rs.AddNew()
rs("NumCommessa") = vNamber
rs("RIAC") = vRIAC
rs("DesCommessa") = vDesc
rs("RifCliente") = vCliente
rs("RifContratto") = vContratto
rs("DataContratto") = vDataCon
rs("DataOrdine") = vDataOrd
rs("DDT") = vDdT
rs("StatoAvanzamento") = vAvanza
rs("UserName") = vUser
rs("Password") =vPass
rs.UpDate()
rs.Close()
Set rs = Nothing
%>
Ovviamente c'è una parte html e dello script(vbscript che controlla l'immissione e poi fa un document.nameform.submit)
P.s La riga 8 è
rs.open, "tblCommesse",Application("aConnSito"),3,3
![]()
![]()
![]()
![]()
help...help

Rispondi quotando
