Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

SEND E-MAIL

Autore Messaggio
soffiodivento

Principiante
Principiante
19 Discussioni



Profilo - soffiodivento
04 marzo 2004 alle 12:09:20 Profilo - soffiodiventoInvia un messaggio privato Rispondi quotando
Un altro problema....ho inserito correttamente nel menù principale la voce "Contattaci" e l'ho linkata a cont.asp, il modulo di contatto che ho scaricato da voi.
Il form appare, ma quando lo spedisco mi da un errore strano. Lo potete vedere su www.soffiodivento.it

Mi potete aiutare? Grazie!
joshua

Esperto
Esperto
255 Discussioni



Profilo - joshua
04 marzo 2004 alle 13:01:02 Profilo - joshuaInvia un messaggio privato Rispondi quotando
eh si, c'è un problema nella pagina http://www.soffiodivento.it/send_email.asp
ma che modifiche hai apportato??
forse hai fatto qualche radicale variazione che genera l'errore, per correggerlo bisognerebbe vedere il codice che hai in quella pagina
ciauz
---------------
Quarta legge di Finagle: Una volta che si e' pasticciato qualcosa, qualsiasi intervento teso a migliorare la situazione non fara' altro che peggiorarla.
http://www.goonet.it
http://www.exclusivelondonlife.com
---------------
soffiodivento

Principiante
Principiante
19 Discussioni



Profilo - soffiodivento
04 marzo 2004 alle 14:17:37 Profilo - soffiodiventoInvia un messaggio privato Rispondi quotando
Questa è la pagina:

<!-- #include file='includes/includes-inc.asp' -->
<%
sTitlePage = " Messaggio inviato correttamente "
%>
<%
Response.Buffer = True

Dim strBody
Dim objCDOMail
Dim strMyEmailAddress
Dim strCCEmailAddress
Dim strBCCEmailAddress
Dim strReturnEmailAddress


strMyEmailAddress = "soffiodivento@soffiodivento.it"


strCCEmailAddress = ""


strBCCEmailAddress = ""


strReturnEmailAddress = Request.Form("email")


strBody = "<h2>E-mail spedita dal form di richiesta</h2>"
strBody = strBody & "<br><b>Name: </b>" & Request.Form("firstName") & " " & Request.Form("lastName")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Enquiry: - </b><br>" & Replace(Request.Form("enquiry"), vbCrLf, "<br>")


If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then


strReturnEmailAddress = strMyEmailAddress
End If



Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"

objCDOMail.To = strMyEmailAddress

objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

objCDOMail.BodyFormat = 0

objCDOMail.MailFormat = 0

objCDOMail.Subject = "Richiesta informazioni dal sito"

objCDOMail.Body = strBody

objCDOMail.Importance = 1


objCDOMail.Send


Set objCDOMail = Nothing
%>



<!-- #include file='includes/toppage-inc.asp' -->

<html>
<head>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<title>Contact Us</title>


<link href="themes/default/default.css" rel="stylesheet" type="text/css">
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#990099" alink="#FF0000">
<table width="390" border="0" align="center" cellpadding="0" cellspacing="0" class="infoPage">

<tr>
<td width="390" height="19" valign="top"> <div align="center"><strong>il messaggio
e' stato inviato correttamente</strong></div></td>
</tr>
</table>
<br>
<br>
<table width="432" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000" class="myTable">
<tr>
<td width="428" height="76" align="center" valign="top"> <p><br>
Grazie,
<% = Request.Form("firstName") %>
 
<% = Request.Form("lastName") %>
, per averci contattato<br>
<strong>Riceverai una risposta alle tue domande al piu' presto</strong><br>
puoi trovare informazioni su come contattarci in maniera differente<br>
in <a href="dove.asp">questa pagina</a></p></td>
</tr>
</table>
<div align="center"><br>
</div>
</body>
</html>
<!-- #include file='includes/bottompage-inc.asp' -->
<!-- #include file='includes/clearitall-inc.asp' -->

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 198
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5684792 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi