ciao a tutti, da qualche giorno non mi funziona più il form contatti del sito...
Posto il codice...qualcuno mi può aiutare???
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>GraziePerAverciContattato</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#663333">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="center">
<object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="500" height="300">
<param name=movie value="Ringraziamento.swf">
<param name=quality value=high>
<embed src="Ringraziamento.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="500" height="300">
</embed>
</object></p>
</div>
</td>
</tr>
</table>
<%
'msg = "Società: " & request("txtSocieta") & "
Settore: " & request("txtSettore") & "
Nome: " & request("txtNome")
' apice per commentare (prova)
'qui creo la variabile del corpo del testo della mail
dim msg
msg = "<font face=""Garamond"" size=""4""><font color=""ECE9D8"">[b]<table width=""100%"" border=""0"" cellpadding=""0"" bgcolor=""#663333"" cellspacing=""0""dwcopytype=""CopyTableRow""><tr> "
msg = msg & "<td height=""18"" colspan=""6"" valign=""top""><div align=""center""><font face=""Garamond""><font size=""3"" color=""#CCCCCC""><u>Modulo "
msg = msg & "per contatti</u></font></font></div></td></tr><tr><td height=""12""></td><td></td><td></td><td></td><td></td>"
msg = msg & "<td></td></tr><tr><td height=""24"" colspan=""6"" valign=""top""><div align=""center""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4"">[b]<font color=""ECE9D8"">"
msg = msg & "Tipo contatto: " & request("rdAzPriv") & "</font></font></font></div></td></tr><tr><td height=""7""></td><td></td><td></td><td></td><td></td><td></td>"
msg = msg & "</tr><tr><td height=""28"" colspan=""2"" valign=""top""><p align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">società "
msg = msg & "<font size=""2"">(se azienda)</font></font></font></font></font></p></td><td></td><td></td><td></td><td valign=""top""> "
msg = msg & request("txtSocieta") & "</td></tr><tr><td height=""28"" colspan=""2"" valign=""top""> "
msg = msg & "<div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">settore "
msg = msg & "di attività <font size=""2"">(se azienda)</font></font></font></font></font></div></td><td></td>"
msg = msg & "<td></td><td></td><td valign=""top"">" & request("txtSettore")
msg = msg & "</td></tr><tr><td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">cognome</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td> <td></td><td valign=""top"">" & request("txtCognome") & "</td></tr>"
msg = msg & "<tr><td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">nome</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtNome") & "</td></tr><tr> "
msg = msg & "<td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">indirizzo</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtIndirizzo") & "</td></tr>"
msg = msg & "<tr><td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">cap</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtCap") & "</td></tr><tr> "
msg = msg & "<td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">città</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtCitta") & "</td></tr><tr> "
msg = msg & "<td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">prov.</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtProv") & "</td></tr><tr> "
msg = msg & "<td height=""29"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">telefono</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtTel") & "</td></tr><tr> "
msg = msg & "<td height=""28"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">fax</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td valign=""top"">" & request("txtFax") & "</td></tr><tr> "
msg = msg & "<td height=""25"" colspan=""2"" valign=""top""><div align=""right""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">e-mail</font></font></font></font></div>"
msg = msg & "</td><td></td><td></td><td></td><td rowspan=""2"" valign=""top"">" & request("txtEmail")
msg = msg & "</td></tr><tr> <td height=""3""></td><td colspan=""4"" rowspan=""2"" valign=""top""> "
msg = msg & "<div align=""left""><font face=""Helvetica""><font size=""3"" face=""Times New Roman, Times, serif""><font face=""Garamond"" size=""4""><font color=""ECE9D8"">richiesta "
msg = msg & "informazioni </font></font></font></font></div></td></tr><tr><td height=""18""></td><td></td></tr><tr> "
msg = msg & "<td height=""3""></td><td></td><td></td><td></td><td></td><td></td></tr><tr><td height=""106""></td><td colspan=""5"" valign=""top""> "
msg = msg & request("txtRichiesta") & "</td></tr></table></font></font>"
'per scrivere la variabile per controllo
'response.write(msg)
' invio della mail
' to = destinatario principale della mail: se è vuoto, la mail non parte (a meno che non sia valorizzato un altro campo TO)
' BCC = copia per conoscenza NASCOSTA: il destinatario principale non vede questo indirizzo
' subject: Oggetto della mail (solo qui puoi mettere tutto il testo che vuoi), mentre from, to e bcc sono solo indirizzi email
' bodyformat: 1 è solo testo, 0 è html
' importance: priorità
' Mail.body: il corpo del testo
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = request("txtEmail")
Mail.To = request("txtEmail")
Mail.Bcc = "xxx"
Mail.Bcc = "xxx"
Mail.subject = "Modulo di contatto da sito web fattoriarossi.it"
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Importance = 0
Mail.Body = msg
Mail.Send
' inviata la mail
Set Mail = Nothing
Set msg = Nothing
' svuoti il contenuto
%>
</body>
</html>
Rispondi quotando
