problema con insert

[ThePenguin]

salve ragazzi,

ci sto perdendo la testa...

  Set myConn = Server.CreateObject("ADODB.Connection")
  strConnDb = ""
  strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/clienti.mdb")
  myConn.Open(strConnDb)
			
  dim strSqlInsertSondaggio 
  strSqlInsertSondaggio = ""
  strSqlInsertSondaggio = "insert into Cliente (Userid,Password,TotaleAccessi,DataAccesso,Livello,CodiceCliente,Piva,Cognome,Nome,Telefono1,Telefono2,fax,Cap,Mail,Indirizzo,Cellulare,Localita,TipoCliente,Ditta,Settore,Provincia,CodiceFiscale,NatoA,NatoIl,Ruolo) values (':1:',':2:',':3:',':4:',':5:',':6:',':7:',':8:',':9:',':10:',':11:',':12:',':13:',':14:',':15:',':16:',':17:',':18:',':19:',':20:',':21:',':22:',':23:',':24:',':25:')"
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":1:",replace(cstr(Userid),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":2:",replace(cstr(Password),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":3:",replace(cstr(TotAcc),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":4:",replace(cstr(UltimoAcc),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":5:",replace(cstr(Livello),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":6:",replace(cstr(CodiceSegreto),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":7:",replace(cstr(Piva),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":8:",replace(cstr(Cognome),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":9:",replace(cstr(Nome),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":10:",replace(cstr(Tel1),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":11:",replace(cstr(Tel2),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":12:",replace(cstr(Fax),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":13:",replace(cstr(Cap),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":14:",replace(cstr(Mail),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":15:",replace(cstr(Indirizzo),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":16:",replace(cstr(Cell),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":17:",replace(cstr(Citta),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":18:",replace(cstr(TipoC),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":19:",replace(cstr(Ditta),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":20:",replace(cstr(Settore),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":21:",replace(cstr(Prov),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":22:",replace(cstr(CodiceFiscale),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":23:",replace(cstr(natoa),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":24:",replace(cstr(natoil),"'","''",1,-1))
  strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":25:",replace(cstr(pos),"'","''",1,-1))
  
  myConn.Execute(strSqlInsertSondaggio)
  
  myConn.Close
  set myConn = nothing

mi da l'errore

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/ins_cliente.asp, line 91

è la riga 91 è l'execute.. da cosa può dipendere?

grazie

[Mizushi]

stampati il risultato della query e lo scoprirai!

[DarioN1]

stampa la query e vedi come vien composto il comando SQL

[ThePenguin]

ma è questo il problema...

insert into Cliente (Userid,Password,TotaleAccessi,DataAccesso,Livello ,CodiceCliente,Piva,Cognome,Nome,Telefono1,Telefon o2,Fax,Cap,Mail,Indirizzo,Cellulare,Localita,TipoC liente,Ditta,Settore,Provincia,CodiceFiscale,NatoA ,NatoIl,Ruolo) values ('aa','aa','0','09/08/2006','1','CL446361','aa','aa','aa','aa','aa','aa' ,'aa','aa','aa','aa','aa','aa','aa','aa','aa','aa' ,'aa','aa','aa')

la quesry è corretta...
o almeno è giusto quello che ne esce scritto.. :master:

[Roby_72]

insert into Cliente (Userid,[Password] ,TotaleAccessi.......

Roby

[ThePenguin]

ok facciamo che in alternativa alle parentesi quadre chiamerò il campo psw così ci risolviamo eventuali altre grane..o ra modifico e poi vi dico...

grazie

[ThePenguin]

ok ora va come se non fosse ovvio... quando acess è crucco è crucco...

[ThePenguin]

dunque una volta registrati i dati invio mail al cliente che lo avvisa di avvenuta registrazione e che indichi lui i dati in questione.

l'invio lo farei così:

<%

Dim miaMail, strOggMail,strBodyMail
DIM iMsg, Flds, iConf

strOggMail = "Lettera al Presidente" 

'Corpo del messaggio 
strBodyMail = "" 
strBodyMail = "<html><head><title>Lettera al Presidente</title></head><body bgcolor=#05326f>"
strBodyMail = strBodyMail & "<center><table width=600 border=2 cellpadding=0 cellspacing=0 bordercolor=#feed22 bgcolor=#ffffff><tr><td><center>"
strBodyMail = strBodyMail & "<table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top height=10 bgcolor=#FFFFFF></td></tr>"
strBodyMail = strBodyMail & "<tr><td valign=top bgcolor=#ffffff><center><img src=http://www.aite-italia.com/logomail.jpg border=0></center></td></tr>"
strBodyMail = strBodyMail & "<tr><td valign=top height=40 bgcolor=#FFFFFF></td></tr><tr><td valign=top bgcolor=#ffffff><font face=verdana size=2 color=#000000>"
strBodyMail = strBodyMail & Mittente & "
" & Indirizzo & " - " & localita1 & "
 Tel." & telefono & "
Fax" & Fax & "
e-mail" & EMail
strBodyMail = strBodyMail & "
</font></td></tr></table><table width=550 height=35 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top>"
strBodyMail = strBodyMail & "</td></tr></table>  <table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top>"
strBodyMail = strBodyMail & "<font face=verdana size=2 color=#000000>Oggetto:" & Ogg & "</font></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 height=25 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top></td></tr></table>"  
strBodyMail = strBodyMail & "<table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top><font face=verdana size=2 color=#000000>"
strBodyMail = strBodyMail & "<p align=justify>" & Message & "</p></font></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 height=50 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td valign=top width=320></td><td valign=top width=200>"
strBodyMail = strBodyMail & "<center><font face=verdana size=2 color=#000000>In fede
" & Mittente & "</font></center></td></tr></table>"
strBodyMail = strBodyMail & "<table width=550 height=20 border=0 bordercolor=#000000 cellpadding=0 cellspacing=0><tr><td></td></tr></table>"  
strBodyMail = strBodyMail & "</center></td></tr></table></center></body></html>"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
'indica smtp che usi per l'invio
Flds(cdoSMTPServer) = "smtp.aruba.it"
'indica la porta 
Flds(cdoSMTPServerPort) = 25
'indica eventuale autenticazione o lascia cdoAnonymous 
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = "presidente@aite-italia.com" 
   .From = EMail 
   .Sender = "servizio...quello che vuoi"
   .Subject = strOggMail 
   .HtmlBody = strBodyMail
   .Send
End With

Response.Redirect("invioavvenuto.asp")

%>

il codice funziona, soltanto che in tal senso avevo bisogno di un suggerimento,
Infatti x fare in modo che la mail arrivi con grafica inserisco nella variabile codice html a tutta manetta..

ma io non posso creare una pagina html di defaul da mettere nel mio spazio ftp e che venga richiamata dal browser di posta x poi essere visualizzata in breve un modo x non scrivere tutto sto codice..

grazie

[Roby_72]

A parte il fatto che ormai l'hai scritto...
Ad ogni modo con CDOSYS puoi fare una cosa di questo tipo:

myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"

http://www.w3schools.com/asp/asp_send_email.asp


Roby

[ThePenguin]

Originariamente inviato da Roby_72
A parte il fatto che ormai l'hai scritto...
Ad ogni modo con CDOSYS puoi fare una cosa di questo tipo:

myMail.CreateMHTMLBody "file://c:/mydocuments/test.htm"

http://www.w3schools.com/asp/asp_send_email.asp


Roby

beh il codice l'ho preso da un sito che avevo fatto quindi quello x il sito attualmente in sviluppo non l'ho ancora scritto, nel caso prenderei quello messo qui e lo modificherei second ocaso...

ma con la tua variante quella...

myMail.CreateMHTMLBody "http://www.miodominio.it/inviomail.asp"

a pensarci bene però come farei ad introdurre i valori recuperati dal form, queli appena registrati nel db e poszionarli in una pagina prefatta e poszionata nello spazio web..?