Codice asp per invio email tramite form vorrei dei consigli

madai

E l'hosting personal supporta il PHP ?
E quale sarebbe il codice da inserire ?
:bho:
ho dato un'occhiata alle caratteristiche dell'hosting in oggetto ma non è specificato il supporto php... non ti rimane che fare una prova, è un web server Apache dovrebbe supportarlo... fai così:

Crea un file di testo, incollaci la seguente stringa:
[php] <?
echo "Supporto php attivo";
?>[/php]
Rinominalo prova.php e mettilo online. Ora richiamalo dal tuo browser e facci sapere.

Ciao

gelova

Niente da fare ho provato, mi appare una pagina bianca x:x

Siamo sicuri che Aruba supporti l' ASP, PHP ecc...anche se scegliessi l'offerta base ?

Quasi..quasi mi creo un'altro dominio, dato che con Register sono limitato alle pagine statiche !

madai

Aruba supporta quasi tutto http://hosting.aruba.it/hosting_con_spazio.asp?offerta=1

Occhio che se ho letto bene il tuo hosting su register dovrebbe avere un "form mail":

Web Site Builder
Free Blog
Wizard per gallerie di immagini
Wizard per ritocco immagini
Wizard per intro in Flash
Form di invio email
Guestbook dinamico
Tell-a-friend dinamico
Ottimizzatore pagine per i motori di ricerca
Indicizzazione del sito su 100 motori di ricerca
Informati bene di cosa si tratta magari fa proprio a caso tuo.

Ciao

gelova

Ok Grazie 1000 !!!!

gelova

Madai e Legolas mi sa tanto che ho ancora bisogno di voi !!!!!
Avendo pubblicato su aruba un'altro sito ho altri problemi con questo m....
di form .
Il messaggio di errore è il seguente:

CDO.Message.1 error '8004020d'
At least one of the From or Sender fields is required, and neither was found.
/grazie2.asp, line 25

Avendo contattato l'assistenza di aruba mi dicono che non sussitono problemi sul server e mi hanno consigliato l'uso del comando "**CDOSYS" **e mi hanno inviato a consultare la seguente pag.
http://vademecum.aruba.it/start/contatto/contatto.htm
ho provato a utilizzare i file da loro consigliati (formcdosys.asp-grazie.asp-contatto.html) ed effettivamente funziona ma perchè devo utilizzare questo che tra l'altro è costituito da 3 pag. e non il mio che sono solo 2 , e dopo il comando CDOSYS non lo conosco come faccio se volessi modificare le singole voci non saprei da dove cominciare e poi perchè il form precedente modificato con il vostro aiuto non funziona ?
Grazie !!!

madai

@gelova said:

Madai e Legolas mi sa tanto che ho ancora bisogno di voi !!!!!
Avendo pubblicato su aruba un'altro sito ho altri problemi con questo m....
di form .
Il messaggio di errore è il seguente:

CDO.Message.1 error '8004020d'
At least one of the From or Sender fields is required, and neither was found.
/grazie2.asp, line 25

Avendo contattato l'assistenza di aruba mi dicono che non sussitono problemi sul server e mi hanno consigliato l'uso del comando "**CDOSYS" **e mi hanno inviato a consultare la seguente pag.
http://vademecum.aruba.it/start/contatto/contatto.htm
ho provato a utilizzare i file da loro consigliati (formcdosys.asp-grazie.asp-contatto.html) ed effettivamente funziona ma perchè devo utilizzare questo che tra l'altro è costituito da 3 pag. e non il mio che sono solo 2 , e dopo il comando CDOSYS non lo conosco come faccio se volessi modificare le singole voci non saprei da dove cominciare e poi perchè il form precedente modificato con il vostro aiuto non funziona ?
Grazie !!!

Il codice di Legolas usa già cdosys.

L'errore ti dice che mancano i campi relativi all'email di chi invia ed all'email del destinatario... controlla che non siano vuoti.

gelova

I campi sono pieni, non capisco......:bho:
Ho nuovamente utilizzato il più semplice e cioè:

<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="mio.smtp.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("emailAddress")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.TextBody=Request.Form("body")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

Inserendo solamente email,oggetto e corpo del messaggio

questo nella pag. grazie.asp

nella pag. contatti.asp ho inserito il seguente form:

<form id="form1" name="form1" method="post" action="grazie.asp">
<p> Tua email:
<input name="emailAddress" type="text" id="emailAddress" />
Soggetto:
<input name="subject" type="text" id="subject" />
</p>
<p>:

</p>

<p> </p>
<p>Message Body :
<textarea name="body" id="body"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Invia" />
<input type="reset" name="Submit2" value="Cancella" />
</p>
<p> </p>
</form>

ma continua a darmi un errore, con Firefox mi appare questo:

error '8004020f' /grazie.asp, line 17

con IE 6 la classica "Impossibile visualizzare la pagina"......la cosa strana è che se provo con IE ad accedere alla pagina incriminata e cioè grazie.asp mi appare impossibile visualizzare.........
:bho::bho::bho::bho::bho::bho:

madai

@gelova said:

ma continua a darmi un errore, con Firefox mi appare questo:

error '8004020f' /grazie.asp, line 17

Che server smtp stai utilizzando? Sei sicuro che sia buono?

@gelova said:

con IE 6 la classica "Impossibile visualizzare la pagina"......la cosa strana è che se provo con IE ad accedere alla pagina incriminata e cioè grazie.asp mi appare impossibile visualizzare........

E' normale... IE, nella scheda avanzate di Opzioni Internet, ha come predefinito la seguente voce spuntata: "Mostra messaggi di errore HTTP brevi". Questa opzione nasconde gli errori di codice all'utente medio. Tu devi deselezionarla per poter leggere gli errori anche da IE.

legolas

@madai said:

Che server smtp stai utilizzando? Sei sicuro che sia buono?
stessa domanda che ti volevo fare io

gelova

smtp.tele2.it
Ma in locale mi funziona benissimo tramite IIS

madai

@gelova said:

smtp.tele2.it
Ma in locale mi funziona benissimo tramite IIS

Non conosco il funzionamento della posta di tele2 ma è probabile che i loro server rifiutino connessioni da ip che non appartengono al loro network. Tu da casa probabilmente hai una connessione tele2... ecco perchè ti funziona.

La soluzione? Cambia email... magari usa quella di aruba.

Ciao fammi sapere.

gelova

Ho provato a cambiare email utilizzando quella di aruba ma l'errore continua....ma la cosa che mi chiedo io è perchè con il modulo fornito da loro (aruba) che avevo precedentemente menzionato l'invio funziona ?

Ecco il modulo fornito da loro:

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "[email protected]"

'* voce da modificare con un indirizzo email che funga da mittente: 
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica

invioDa = "[email protected]"

'------------fine modifiche necessarie------------------

nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>

Inoltre vi è una pag html dove è presente il form e una pag di ringraziamenti in asp.
Questo modulo ho provato a metterlo online e funziona solo che non saprei metterci mano nel senso che se dovessi cambiare le voci del form non saprei le modifiche da fare :bho:

madai

hai impostato l'smtp di aruba? è quella la cosa importante

gelova

Ti scrivo il codice che ho utilizzato:
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.aruba.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("emailAddress")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.TextBody=Request.Form("body")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

madai

ho provato questo codice su un server aruba e mi funziona

Che errore ti da?

gelova

Aspetta ! Aspetta ! Aspetta !.......Funziona.....ho cancellato la cache da IE e Firefox e ora funziona con questo form:
Ti scrivo il codice che ho utilizzato:
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.aruba.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("emailAddress")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.TextBody=Request.Form("body")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

** Quindi ho voluto rimettere quello modificato da Legolas e cioè questo:**

<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.aruba.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("email")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") &
"<br/>Commenti:" & request.Form("commenti")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>

** Ma mi da nuovamente un errore e cioè questo:
**
Microsoft VBScript compilation error '800a03ea'
Syntax error
/grazie.asp, line 16
cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") &
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

madai

Occhio che questo:

cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") &
"<br/>Commenti:" & request.Form("commenti")

va tutto su una riga:


cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") & "<br/>Commenti:" & request.Form("commenti")

gelova

Il Dreamweaver lo porta a capo in automatico, come devo fare ?

madai

@gelova said:

Il Dreamweaver lo porta a capo in automatico, come devo fare ?

L'accapo automatico di dreamweaver non conta... l'importante è che sia tutto su una riga, te ne accorgi perchè la numerazione della riga non avanza quando va accapo solo per opzione di vista codice.

gelova

ma allora così va bene.....fammelo riscrivere e tra 2 minuti ti faccio sapere !