Continuo a non riuscire a far funzionare la mia form e non capisco proprio dove sia il problema.
Vi spiego la situazione:
Ho creato una form in html al seguente link (www.waltheritalia.it/formprova.html) e con il seguente script:
<form method="POST" action="sendmail.asp">
<input type="text" name="Nome" size="20">nome</p>
<input type="text" name="Cognome" size="20">cognome</p>
<input type="text" name="Indirizzo" size="20">indirizzo</p>
<input type="text" name="email" size="20">email</p>
<input type="text" name="note" size="20">note</p>
<input type="submit" value="Invia" name="B1"><input type="reset" value="Reimposta" name="B2"></p>
</form>
Ho creato il file asp che dovrebbe inviare i dati della form all'indirizzo email specificato:
<%
' dichiaro alcuni variabili
Dim iMsg
Dim iConf
Dim Flds
Dim strTosend
Dim strNome
Dim strCognome
Dim strIndirizzo
Dim strEmail
Dim strNote
Dim strMessage
Dim strOggetto
' strTosend è la variabile che memorizza l’email del destinatario (es. email del nostro cliente)
strTosend="mp@XXXXXX.com"
' l’oggetto del nostra email
strOggetto="Invio informazioni"
' recupero il nome dell’utente con Request(nome_proprietà_oggettoflash)
strNome=Request("nome")
' recuperp il cognome
strCognome= Request("cognome")
' recupero l’email
strEmail= Request("email")
' recupero l’indirizzo
strIndirizzo=Request("indirizzo")
' recupero il messaggio note
strNote= Request("note")
' vado a comporre il messaggio che il destinatario riceverà nella sua casella email
' vbcrlf è il carattere speciale che aggiunge un ritorno a capo
strMessage="Nome: "&strNome&vbcrlf
strMessage=strMessage&"Cognome: "&strCognome&vbcrlf
strMessage=strMessage&"Email: "&strEmail&vbcrlf
strMessage=strMessage&"Messaggio: "&strNote&vbcrlf
' creo gli oggetti necessari per l’invio dell’email
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strTosend
.From = strEmail
.Subject = strOggetto
.TextBody=strMessage
.Send
End With
' alla fine del send recuperiamo la variabile err.number che identifica un numero di errore
' se esiste un numero di errore vuol dire che err.numer è true quindi c’è stato un errore altrimenti ‘error risulterebbe false
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
%>
pubblico tutto sul server ospitante (Windows 2003), provo a testare la form e quando clicco su invia mi da il seguente messaggio di errore:
CDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/sendmail.asp, line 51
Non so proprio che fare, sono due giorni che provo a far funzionare questa form ma nulla... qualcuno può aiutarmi?
grazie mille
Rispondi quotando
