invio mail tramite form

[pyotrex]

Premetto che non so nulla di ASP perchè lavoro in PHP, ma mi trovo
nella spiacevole situazione in cui devo fare delle modifiche a una
pagina che sfrutta un form per inviare una mail, il tutto lavora sotto W2000
e funzionava ora su W2003 non funziona, ho provato a metterci le manacce ma mi potreste dare una mano?

PS:Gli indirizzi del mittente e destinatario li ho omessi io

<%
Dim posta 
'*********************************** FUNZIONE PER INVIO MAIL *********************

messaggio= messaggio & "Cognome: " & request.form("cognome") & "
"
messaggio= messaggio & "Nome: " & request.form("nome") & "
"
messaggio= messaggio & "Azienda: " & request.form("indirizzo") & "
"
messaggio= messaggio & "Indirizzo: " & request.form("cap") & "
"
messaggio= messaggio & "Città: " & request.form("citta") & "
"
messaggio= messaggio & "Provincia: " & request.form("provincia") & "
"
messaggio= messaggio & "Telefono: " & request.form("telefono") & "
"
messaggio= messaggio & "Fax: " & request.form("fax") & "
"
messaggio= messaggio & "E-mail: " & request.form("mail") & "
"
messaggio= messaggio & "Professione: " & request.form("professione") & "
"
messaggio= messaggio & "Motivo: " & request.form("motivo_contatto") & "
"
				
Set posta = CreateObject("CDO.Message")
						
'mando una mail 
posta.From = "amministratore"				
posta.To = "destinatario"
posta.bcc = "destinatario di controllo"
posta.Subject = "Richiesta Informazioni da form Internet" 
					
posta.BodyFormat = 0
posta.MailFormat = 0
posta.Body = messaggio
posta.Send 					
Set posta = Nothing 
								
%>

[wegawhite]

Se utilizzi win2000 dei utilizzare il componente CDONTS fai una ricerca sul forum.

[pyotrex]

Utilizzavo W2000 ora ho W2003

[gennaro12]

Nella prima pagina trovi le differenze da win2k,e troverai anche il tuo caso,prima il "motore" che serviva per inviare mail era:CDONTS ora si chiama: CDOSYS, spulcia e troverai la descrizione di come si fanno le modifiche.

http://forum.html.it/forum/showthrea...hreadid=682557

[pyotrex]

Ho letto in giro nel forum, il mio vero problema è che non ho mai utilizzato ASP e non ho un ambiente di test in locale quindi faccio le modifiche e poi le pubblico, ma l'errore è sempre:

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.


comunque grazie a tutti per le dritte.... se qualcuno avesse tempo...

[Roby_72]

Hai mischiato lo script di CDONTS con quello di CDOSYS.
Scegli quello ceh ti serve e lavoriamo con uno solo.
Nei campi .to, .from e .bcc ci vanno degli indirizzi reali...

Roby

[pyotrex]

Sono su W2003 suppongo di dover utilizzare CDOSYS ma come dici tu ci ho messo le manacce e ho incasinato il tutto

[Roby_72]

http://www.weppos.com/asp/script/scr....asp?script=17
http://www.weppos.com/asp/script/scr....asp?script=15

Roby

[pyotrex]

Pranzo, li guardo e ti so dire intanto grazie

[pyotrex]

Adesso è cosi:

<%
'*********************************** FUNZIONE PER INVIO MAIL *********************
Cognome=  request.form("cognome")
messaggio= messaggio & "Nome: " & request.form("nome") & "
"
messaggio= messaggio & "Azienda: " & request.form("indirizzo") & "
"
messaggio= messaggio & "Indirizzo: " & request.form("cap") & "
"
messaggio= messaggio & "Città: " & request.form("citta") & "
"
messaggio= messaggio & "Provincia: " & request.form("provincia") & "
"
messaggio= messaggio & "Telefono: " & request.form("telefono") & "
"
messaggio= messaggio & "Fax: " & request.form("fax") & "
"
messaggio= messaggio & "E-mail: " & request.form("mail") & "
"
messaggio= messaggio & "Professione: " & request.form("professione") & "
"
messaggio= messaggio & "Motivo: " & request.form("motivo_contatto") & "
"

' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig

' Dimensiona l'oggetto email
Set objMail = createObject("CDO.Message")


' ====================================
'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig

' Server SMTP di uscita
' Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.sismo.it"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

.Fields.update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' ====================================


' Assegna all'oggetto le proprietà necessarie

' Mittente dell'email (indirizzo)
objMail.From = "sito@sismo.it"

' Destinatario dell'email (indirizzo)
objMail.To = "info@sismo.it"

' Cc e Bcc (opzionale)
' objMail.Cc = "altroindirizzo@dominio.xx; ancora@dominio.xx"
' objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx"

' Oggetto dell'email
objMail.Subject = "Richiesta Informazioni da form Internet"

' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()

' Allegare un file
'objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zip")

' Corpo del messaggio
objMail.TextBody = "messaggio" 'Formato Testo
'objMail.HTMLBody = "Testo della mail" 'Formato HTML

' Invia l'email
objMail.Send()

' Distruggi l'oggetto
Set objMail = Nothing

%>

ma ricevo sempre lo stesso errore che ho indicato qualche post + in su