Salve a tutti, ho copiato uno script sul web, questo è il codice che dovrebbe far funzionare lo script ma nonostante abbia compilato i campi con il mio dominio e la mia e-mail, non funziona. Qualcuno sa dirmi il perchè? Grazie per l'attenzione
__________________________________________________ _______________________________________
<%Response.Buffer=True%>
<html>
<head>
<title>Thank You Page</title><%
Dim t1name,t1,t2name,t2
t1name = "name"
t1 = Request.Form("t1")
t2name = "email"
t2 = Request.Form("t2")
Dim stname,st
stname = "comments"
st = Request.Form("s1")
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
'Change this line to the address of your email server.
'Something like this: mail.tuodominio.com:25
JMail.ServerAddress = "mail.tuodominio.com"
JMail.AddRecipient "mail@tuodominio.com"
'CHANGE THE EMAIL ADDRESS IN QUOTES ABOVE TO THE ADDRESS YOU WANT THIS MAIL SENT
JMail.Sender = t2
'CHANGE THE SUBJECT FIELD TO REMIND YOU WHERE THE FORM COMES FROM ON YOUR SITE
JMail.Subject = "Feedback from Your Site"
JMail.Body = t1name & vbcrlf&_
t1 & vbcrlf&_
t2name & vbcrlf&_
t2 & vbcrlf&_
stname & vbcrlf&_
st
JMail.Execute
Set JMail = Nothing
Response.Write"<center />Thank You, your email has been sent.
This window will self close in 10 seconds..."
%>
<script language="javascript"><!--
var timer = null
function closeWin() {
self.close()
}
//-->
</script>
</head>
<body onLoad="timer=setTimeout('closeWin()',8000)"><form >
<input type="button" value="EXIT" onClick="window.close()"></form>
</body>
</html>
Rispondi quotando
