form til anbefal
hejsa !Jeg har her en form, jeg ikke kan få til at sende noget som helst ????? - Hvad er der galt. Bruger JMail på hotellet....
---- index.asp -----
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny side 1</title>
</head>
<body>
<form method="POST" action="sendt.asp">
<table align="center">
<tr><td>Anbefal denne side til dine venner her:</td></tr>
<tr><td>
Dit navn:<input type="text" name="afsender">
</td></tr>
<tr><td>
Din vens email adresse:<input type="text" name="modtager">
</td></tr>
<tr><td>
Skriv en hilsen:<textarea rows="3" name="besked" cols="40"></textarea>
</td></tr>
<tr><td>
<input type="submit" value="Send" name="Send"></td></tr>
</table>
</form>
</body>
</html>
----- sendt.asp -----
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny side 2</title>
</head>
<body>
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.web2go.dk"
JMail.Sender = "robot@web2go.dk"
JMail.SenderName = Request.Form("afsender")
JMail.Subject = "Jeg kan anbefale denne hjemmeside tjek den.."
JMail.AddRecipient Request.Form("modtager")
JMail.Body = "Din ven anbefaler at du bør tage et kig på denne side: " & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Link er: http://www.web2go.dk " & vbCrLf & vbCrLf
JMail.Body = JMail.Body & Request.form("besked") & vbCrLf & vbCrLf
JMail.Body = JMail.Body & "Med venlig hilse" & vbCrLf
JMail.Body = JMail.Body & " www.web2go.dk"
JMail.Execute
Set JMail = Nothing
%>
<center>Tak for din støtte en mail er send til din ven.</center>
</body>
</html>
-------------------------------------------
Håber at i kan hjælpe
