<%
option explicit
dim Alert, adresse, Mailer
%>
<html>
<head>
<title>Mail-sender</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<%
response.write "<script language='JavaScript'>"
response.write "<!--"
response.write "function MM_reloadPage(init) { //reloads the window if Nav4 resized"
response.write "if (init==true) with (navigator) {if ((appName=='Netscape')&&(parseInt(appVersion)==4)) {"
response.write "document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}"
response.write "else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();"
response.write "}"
response.write "MM_reloadPage(true);"
response.write "// -->"
response.write "</script>"
response.write "<style TYPE='text/css'>"
response.write "<!--"
response.write ".box {"
response.write "BACKGROUND-COLOR: #ffffff;"
response.write "COLOR: #003366;"
response.write "FONT-FAMILY: Tahoma;"
response.write "FONT-SIZE: 10pt;"
response.write "BORDER-BOTTOM: #003366 1px solid;"
response.write "BORDER-LEFT: #003366 1px solid;"
response.write "BORDER-RIGHT: #003366 1px solid;"
response.write "BORDER-TOP: #003366 1px solid;}"
response.write "-->"
response.write "<style TYPE='text/css'>"
response.write "</style>"
response.write "</head>"
' Hvis formen er submittet vises formular
If Request.Form("to") <> "" Then
' sendes mailen
adresse = request.form("to")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Request.Form("sender")
Mailer.FromAddress= "jens"
Mailer.RemoteHost = "mail.zix.dk"
Mailer.AddRecipient adresse, adresse
Mailer.Subject = ""
Mailer.BodyText = Request.Form("message")
if Mailer.SendMail then
Alert = "Mailen er afsendt til " & adresse
else
Alert = "Der skete en fejl: " & Mailer.Response
end if
Set Mailer = Nothing
End If
response.write "<body leftmargin='30' topmargin='30' bgcolor='#FFFFFF' text='#000000' link='#000000'>"
response.write "<form method='post' action='mail.asp'>"
response.write "<table border='0' height='299' width='175'>"
response.write "<tr>"
response.write "<td height='299'>"
response.write "<font size='4' color='#000066'>-</font>"
response.write "<BR>"
response.write "<input style='position:absolute; left:47px; top:80px' type='text' CLASS='box' name='to'><br>"
response.write "<font size='4' color='#000066'>-</font><br>"
response.write "<input style='position:absolute; left:47px; top:125px' CLASS='box' type='text' name='sender'>"
response.write "<br>"
response.write "<br>"
response.write "<textarea style='position:absolute; left:47px; top:172px' class='box' name='message' rows='5'></textarea>"
response.write "<br>"
response.write "</p>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<INPUT TYPE='submit'>"
response.write "<br><br>"
response.write "</div>"
response.write "</form>"
response.write Alert
response.write "<br>" & adresse
response.write "</body>"
response.write "</html>"
%>
sådan--- den skal hedde mail.asp
