Fra ASPMail - Til JMail
Hejsa !Har fundet dette script på nettet. Hvordan laver jeg dette script om til Jmail...Da han jeg laver en side for understøtter Jmail.
----- anbefal.asp -----
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<title>Anbefal min side</title>
</head>
<body>
<%
'// checker om sendmail er = moding - hvis den er udføres mail-scriptet
if Request.Querystring("sendmail") = "moding" then
'// Kalder objektet ASPmail
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.CharSet = 2
Mailer.FromName = "" & Request.Form("friendname") & ""
Mailer.FromAddress= "din@email.adr"
Mailer.RemoteHost = "mail.ditdomain.dk"
Mailer.AddRecipient "" & Request.Form("friendname") & "", "" & Request.Form("friendmail") & ""
Mailer.Subject = "" & Request.Form("myname") & " vil gerne anbefale dig www.dinside.dk"
Mailer.BodyText = "Hej " & Request.Form("friendname") & ""
Mailer.BodyText = "" & vbCrLf & ""
Mailer.BodyText = "" & Request.Form("myname") & " vil gerne anbefale dig www.sinside.dk - han/hun tror at det er en side der vil interessere dig!"
'// Hvis scriptet udføres fejlfrit, responses succesbesked
If Mailer.SendMail Then
Response.Write "Din anbefaling er sendt til: " & Request.Form("friendmail") & ""
'// Hvis ikke returneres fejlmeddelelse
Else
Response.Write "Der opstod en fejl: " & Mailer.Response
End If
'// Lukker mail-objektet
Set Mailer = Nothing
else
%>
<h2 align="center">Anbefal min side til en ven!</h2>
<form method="POST" action="anbefal.asp?sendmail=moding">
<p>Dit navn: <input type="text" name="myname" size="20"></p>
<p>Modtagers navn: <input type="text" name="friendname" size="20"></p>
<p>Modtagers e-mail: <input type="text" name="friendmail" size="20"></p>
<p><input type="submit" value="Anbefal"></p>
</form>
<%
end if
%>
</body>
