Codice asp per invio email tramite form vorrei dei consigli

gelova

Potrei utilizzare quel codice per per aggiungere altri campi tipo:
NOME, COGNOME, CITTA' ecc...
e se si come si fà ?
Premetto che di ASP sono zero assoluto sto solo seguendo un libro sul dreamweaver e le pagine dinamiche !
Grazie !

legolas

Si, hai ragione, mi era completamente sfuggito l'ultimo post

Questo è il form:


<form method="post" action="inviomail.asp">
  Nome <input type="text" name="nome" id="nome"/><br/>
  Cognome<input type="text" name="cognome" id="cognome"/><br/>
  Città<input type="text" name="citta" id="citta"/><br/>
  Email<input type="text" name="email" id="email"/><br/>
</form>

Mentre questa è la pagina che invia i dati (inviomail.asp):


 theSchema="http://schemas.microsoft.com/cdo/configuration/" 
 Set cdoConfig=server.CreateObject("CDO.Configuration")   
 cdoConfig.Fields.Item(theSchema & "sendusing")=2 
 cdoConfig.Fields.Item(theSchema & "smtpserver")="server.smtp.com" 
 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.TextBody="Nome:" & request.form("nome") & "Cognome:" & Request.form("cognome") & "Citta:" & request.form("citta")
 cdoMessage.Send 
  
 Set cdoMessage=Nothing 
 Set cdoConfig=Nothing

Ciao

gelova

Scusami se non ti ho risposto, sono tornato ora dalle ferie, provo e ti farò sapere grazie !

gelova

Il codice funziona yahoooooooo
Ancora una cosa...l'arrivo dell'email mi appare con le voci tutte unite così:

Nome:TizioCognome:CaioCittaomodossolaEmail:[email protected]

Come posso fare per mettere dello spazio per essere un pò più ordinata ?
Grazie !

legolas

Il codice che ti ho dato era un po' demo, infatti non ho curato molto l'aspetto :), cmq per separare le voci:


cdomessage.TextBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta")

Ciao

gelova

:bho: C'è qualcosa che non và.....
con l'aggiunta di mi viene questa email...

Nome:Tizio Cognome:Caio Cittaomodossola [email protected] Commenti:yahoooo

siamo sicuri della posizione ?

gelova

Sul libro suggerisce di utilizzare l'espressione ( )
ho provato ma non funziona....:bho:

gelova

Dove sei Legolas

legolas

Ciao, scusami se ti rispondo solo ora ma sono stato tutto il giorno ad un raduno tuning (speriamo che il prox anno riesco a preparare la piccola eclipse:) )

Cmq, si ho sbagliato il codice, ciò che ti ho scritto serve per le mail testuali mentre se vuoi mandare l'email in html devi cambiare questa voce:

cdomessage.TextBody = "testo normale"

con questa:

cdomessage.HtmlBody = "testo html"

Quindi:

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

Ciao

gelova

Yahoooooo !!!!!!! Sei un grande !
Ok così già va benissimo .
Ma se volessi un doppio spazio ? L'email che mi arriva è questa:

Nome:Tizio
Cognome:Caio
Citta: omodossola
Email: [EMAIL="[email protected]"][email protected][/EMAIL]
Commenti:rova

ad esempio così:

Nome: Tizio
Cognome: Caio
Citta: Domodossola
Email: [EMAIL="[email protected]"][email protected][/EMAIL]
Commenti: prova

dovrei aggiungere un doppio
 
Lo sò ti sto rompendo......

legolas

Ma se volessi un doppio spazio ?
dovrei aggiungere un doppio

Esatto

Lo sò ti sto rompendo......

Tranquillo, siamo qui per aiutare

Ah, tanto per la cronaca se un giorno ti capitasse di usare mail testuali e non html "l'accapo" si ottiene così:


cdomessage.TextBody="Nome:" & request.form("nome") & vbcrlf & "Cognome:" & Request.form("cognome") & vbcrlf & "Citta:" & request.form("citta")

Ciao

gelova

Sei un grande !
Ti ringrazio, sicuramente ti chiederò altri consigli per il sito che sto realizzando.

legolas

Sei un grande !

Grazie :D:D

sicuramente ti chiederò altri consigli per il sito che sto realizzando.

Siamo sempre qui e se non ti rispondo io ci sono altre persone pronte a rispondere molto più competenti di me

Ciao

gelova

Sapevo che non sarebbe passato molto tempo.......:bho:

Ho pubblicato il sito per fare la prova.....con IE 6 tutto ok mentre provando ad inviare l'email (sempre tramite quel form) con firefox mi è apparsa questa scritta sopra tutta la pagina:

<% 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("email") cdoMessage.To="[email protected]" cdoMessage.Subject=Request.Form("subject") cdomessage.HtmlBody="Nome:" & request.form("nome") & "
Cognome:" & Request.form("cognome") & "
Citta:" & request.form("citta") & "
Email:" & request.Form("email") & "
Commenti:" & request.Form("commenti") cdoMessage.Send Set cdoMessage=Nothing Set cdoConfig=Nothing %>

Cosa è successo ??????

xx

legolas

potresti scrivere l'url della pag?
Ciao

gelova

Si certo
www.helpdeskinformatica.it
p.s.
on line riempiendo il form dei contatti e inviando il tutto
non mi manda l'email , come mai ?
potresti dargli un'occhiata cos'è che non va ?
Perchè in locale con Dreamweaver configurando il server di prova (con IIS)
funzionava tutto ? :bho:
Se hai la possibilità provalo con entrambi i Browser (IE 6 - Firefox 1.5.0.6)
Grazie ancora !

legolas

ciao, ho dato un'occhiata, ma così è poco chiaro.
Potresti postare tutto il codice della pagina, almeno analizziamo tutto riga per riga?
Praticamente la pag incriminata è grazie.asp, giusto?

Ciao

gelova

Si credo che sia la pagina grazie.asp, cmq io ti posto sia quella dei contatti.asp che quella di grazie.asp

PAGINA CONTATTI.ASP

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Info Hardware</title>
<link rel="stylesheet" href="slat1011.css">
<meta name="Microsoft Theme" content="slate 1011">
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d)&&d.all) x=d.all; for (i=0;!x&&i<d.forms.length;i++) x=d.forms*;
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers*.document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args*);
if (val) { nm=val.name; if ((val=val.value)!="") {
if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
} else if (test!='R') { num = parseFloat(val);
if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
min=test.substring(8,p); max=test.substring(p+1);
if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
} } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
} if (errors) alert('The following error(s) occurred:\n'+errors);
document.MM_returnValue = (errors == '');
}
//-->
</script>
<style type="text/css">

</style></head>

<body>

<table border="0" width="100%">
<tr>
<td width="104"> </td>
<td width="500">
<img border="0" src="Immagineperhome.jpg" width="471" height="205"></td>
<td><a href="index.htm">
Home</a><a href="hardware.htm">
Info Hardware</a>
<a href="software.htm">
Info Software</a>
<a href="notizie.htm">
Notizie</a></td>
</tr>
<tr>
<td width="104" height="57"> </td>
<td width="500" height="57">

<img border="0" src="Contatti.gif" width="190" height="47"></td>
<td height="57"> </td>
</tr>
<tr>
<td width="104"> </td>
<td width="500"> 
 
<form action="grazie.asp" method="post" name="frm_message" id="frm_message">
Nome:
<input name="nome" type="text" id="nome">
Cognome:
<input name="cognome" type="text" id="cognome">

Città:
<input name="citta" type="text" id="citta">
Email:
<input name="email" type="text" id="email">

 
Commenti:
<textarea name="commenti" id="commenti"></textarea>


<input name="Submit" type="submit" onClick="MM_validateForm('nome','','R','cognome','','R','citta','','R','email','','RisEmail');return document.MM_returnValue" value="Invia">
<input type="reset" name="Submit2" value="Cancella">

 
 
</form>
 


 

 
</td>
<td>Nome Cognome
<img border="0" src="Gif/phone2-c.gif" width="41" height="48">numero di cell

 
 
 
 
 
 
 
 
 
</td>
</tr>
</table>

</body>

</html>

PAGINA GRAZIE.ASP

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Info Hardware</title>
<link rel="stylesheet" href="slat1011.css">
<meta name="Microsoft Theme" content="slate 1011">
</head>

<body>
<%
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.tele2.it"
cdoConfig.Fields.Update

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

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

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

<table border="0" width="100%">
<tr>
<td width="104"> </td>
<td width="500">
<img border="0" src="Immagineperhome.jpg" width="471" height="205"></td>
<td><a href="index.htm">
Home</a><a href="hardware.htm">
Info Hardware</a>
<a href="software.htm">
Info Software</a>
<a href="notizie.htm">
Notizie</a></td>
</tr>
<tr>
<td width="104" height="57"> </td>
<td width="500" height="57">

</td>
<td height="57"> </td>
</tr>
<tr>
<td width="104"> </td>
<td width="500">
 
Ringraziandola per l'attenzione,
le risponderemo il più presto possibile. 

</td>
<td> </td>
</tr>
</table>

</body>

</html>

madai

Le pagine asp non vengono interpretate... il web server è Apache... il server lo gestisci tu? E' installato un modulo asp? In caso contrario le asp vengono trattate come normali html.

Ciao

gelova

Per fare le prove in locale (dove funziona tutto) ho solamente installato IIS, il server che ospita il sito avrà sicuramente tutte le applicazioni necessarie per far funzionare le pagine ASP !