modulo asp per ordine non funziona

[mari-87]

Salve,
ho creato un semplice modulo Asp per l'ordine di alcuni prodotti per un sito che sto sviluppando.
Mi sono creata uno account su jabry.com (spazio free host per asp) e poi ho caricato i miei due file .asp ma non funzionano e non capisco dove sbaglio.
Qualcuno mi può aiutare?
Ecco qui di seguito l'indirizzo dove è il modulo:
http://users3.jabry.com/ordine/preventivi-gratuiti.asp

Una volta compilato il modulo, la pagina mi da questo errore:
CDO.Message.1 error '80040220'

The "SendUsing" configuration value is invalid.

/ordine/invia_contatto.asp, line 19

 

[Majinbu]

Ciao..posta codice cdo che invia la mail.:byebye::byebye:

 

[mari-87]

Ecco il codice che invia l'email:

<%
nome = Request.Form("nome")
cognome = Request.Form("cognome")
indirizzo = Request.Form("indirizzo")
comune = Request.Form("comune")
provincia = Request.Form("provincia")
cap = Request.Form("cap")
telefono = Request.Form("telefono")
email = Request.Form("email")
richiesta = Request.Form("richiesta")

corpo="<strong>Richiesta contatto da:</strong> "&nome&" "&cognome&"<br> <strong>Indirizzo: </strong> "&indirizzo&" "&comune&" "&provincia&" "&cap&"<b> <strong>Telefono: </strong>" &telefono&"<br><strong> Email: </strong>"&email&"<br> <strong>Note: </strong>"&richiesta

Set mail2 = Server.CreateObject("CDO.Message")
mail2.From = "[email protected]"
mail2.To = "[email protected]"
mail2.Subject = "Richiesta preventivo"
mail2.HtmlBody = corpo
mail2.Send
Set mail2 = Nothing

response.redirect("preventivi-gratuiti.asp?msk=ok")%>

 

[Majinbu]

Prova con questo...

Dim  iMsg, iConf, Flds
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
'IMPORATNTE : Inserisci smtp del server su cui gira la pagina
Flds ("smtp.prova.com") = True
mittente= "[email protected]"
destinatario = "[email protected]"
oggetto = "Prova"
messaggio = "ciao"

With iMsg
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.HTMLBody = messaggio
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

A meno che sul web server non sia installato CDO ( ma anche se free, non credo) dovrebbe andare...prova anche con CDONTS (cerca su google) o mal che va fammi sapere se e che errore eventuale ti restituisce.

 

[mari-87]

niente da fare...errore....

Sto pensando di pagare qualcuno per farmelo sviluppare in php... qualcuno è disposto a farlo?

 

[Majinbu]

Posta sempre codice e che errore ti restituisce?

Cmq in php il processo è analogo.. se proprio non riesci prova su altervista, non credo ci sia bisogno di pagare :book::book::book:

 

[mari-87]

mi restituisce il codice stesso come errore!
assurdo...