salve ragazzi sono nuovo del forum scusate se nn mi sono presentatyo ma lo farò al più presto, ho questo problema, quando vado ad aggiornare il programma chemi inserisce le informazione da un file di txt mi esce questo errore nel sito
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/impocli.asp, line 50
Dim objFSO, objTextFile
Dim sReadSplitted, sReadLine
Dim strCodice, strDescri, iPrezzo, strNote, strFoto, iPrezzo2, strCodAlt
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath("Public/Dati/artmaster1.txt"), 1)
Do Until objTextFile.AtEndOfStream = True
sReadLine = objTextFile.ReadLine
If Trim(sReadLine) <> "" Then
'Response.write sReadLine
dData=Year(Date) & Right("00" & Month(Date),2) & Right("00" & Day(Date),2)
iSpeseSped = 0
iPSconto = 0
sReadSplitted = Split(sReadLine,"ç")
If trim(sReadSplitted(0)) <> "" Then
strCodice = sReadSplitted(0)
strDescri = Replace(sReadSplitted(1),"ý","")
strDescri = Replace(strDescri,",",".")
strDescri = Replace(strDescri,"'","")
iPrezzo = sReadSplitted(2)
strNote = trim(sReadSplitted(3))
strNote = Replace(strNote,",",".")
strNote = Replace(strNote,"'","")
strFoto = "http://www.dglsrl.com/public/Provaasp/Foto/" & sReadSplitted(4) & ".jpg"
strCodAlt = sReadSplitted(5)
iPrezzo2 = sReadSplitted(6)
iIva= sReadSplitted(7)
iCatego = sReadSplitted(8)
iGiac = sReadSplitted(9)
If trim(iPrezzo2)="" Then iPrezzo2=0
Else
strCodice = ""
strDescri = ""
iPrezzo = 0
strNote = ""
strFoto = ""
strCodAlt = ""
iPrezzo2 = 0
iIva = 0
iGiac = 0
IcATEGO=1
End If
If Trim(strCodice) <> "" Then
CommandText = "Select * from Utenti where codice = '" & trim(strCodice) & "' "
Set DBFile_rs = Conn.Execute (Commandtext)
'Set DBFile_rs = DBConnection.Execute (Commandtext)
iPrezzo = Replace(iPrezzo,".",",")
iPrezzo = iPrezzo * 100
iPrezzo = Int(iPrezzo)
iPrezzo2 = Replace(iPrezzo2,".",",")
iPrezzo2 = iPrezzo2 * 100
iPrezzo2 = Int(iPrezzo2)
If DBFile_rs.EOF Then
response.write "NUOVO" & "
"
CommandText = "INSERT INTO Prodotti (ID,UserID,Password,Nome,Cognome,Via,Civico,Cap,Ci ttà,Provincia,Stato,Telefono,CodiceFiscale,Partita Iva,Mail,Rivenditore,PuntiSconto,Referral,Data,Con fermato,Admin,PagatoReferral,Rivenditore1,Rivendit ore2) VALUES ('" & trim(strCodice) & "','" & trim(strDescri) & "'," & trim(iPrezzo) & ",'" & trim(strNote) & "','" & trim(strFoto) & "','" & trim(strFoto) & "'," & iCatego & "," & dData & "," & iSpeseSped & "," & iIva & "," & iPSconto & "," & iPrezzo2 & ",'" & trim(strDescri) & "'," & trim(iGiac) & ")"
Response.write CommandText
Conn.Execute CommandText
Else
response.write "VARIA" & "
"
CommandText = "UPDATE Prodotti SET Pdescrizione='" & trim(strDescri) & "', Cprezzo=" & trim(iPrezzo) & ", gdescrizione='" & trim(strNote) & "',pfoto='" & trim(strFoto) & "',gfoto='" & trim(strFoto) & "',sCategoria=" & trim(iCatego) & ",Data=" & trim(dData) & ",SpeseSpedizione=" & trim(iSpeseSped) & ",iva=" & trim(iIva) & ",puntisconto=" & trim(iPSconto) & ",rprezzo=" & trim(iPrezzo2) & ",Prodotto='" & trim(strDescri) & "',giacenza=" & trim(iGiac) & " where codice='" & trim(strCodice) & "' "
Response.write CommandText
Conn.Execute CommandText
End If
End If
End If
Loop
ObjTextFile.Close
set ObjFSO=nothing
set DBFile_rs=Nothing
%>
questo è il codice
grz se mi aiutate
Rispondi quotando
