Følgende eks. er inkl. vedhæft af fil...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>JMail kontakt form</title>
</head>
<%id = request("id")%>
<body>
<form name="form1" enctype="multipart/form-data" method="post" action="contact.asp?mode=send">
Dit navn <br>
<input style="background:Transperent; border-color:#000000; border-style:solid; border-width:1px; " AUTOCOMPLETE="OFF" name="name" type="text" id="name">
<br>
Din email <br>
<input style="background:Transperent; border-color:#000000; border-style:solid; border-width:1px; " AUTOCOMPLETE="OFF" name="email" type="text" id="email">
<br>
Evt. telefonnummer <br>
<input style="background:Transperent; border-color:#000000; border-style:solid; border-width:1px; " AUTOCOMPLETE="OFF" name="phone" type="text" id="phone">
<br>
Må vi kontakte dig ??<br>
<input name="allow" type="radio" value="Ja" checked>
Ja
<input name="allow" type="radio" value="Nej">
Nej<br>
Overskrift<br>
<input style="background:Transperent; border-color:#000000; border-style:solid; border-width:1px; " AUTOCOMPLETE="OFF" name="headline" type="text" id="headline">
<br>
Besked<br>
<textarea style="background:Transperent; border-color:#000000; border-style:solid; border-width:1px; " name="body" cols="25" rows="4" id="body"></textarea>
<br>
Evt. vedhæft en fil<br>
<input style="background:Transperent; border-color:#000000; border-style:solid; border-width:1px; " AUTOCOMPLETE="OFF" name="sti" type="file" size="10" width="50">
<br>
<input style="border-color:#000000; border-style:solid; border-width:1px; " type="submit" name="Submit"<%if mode = "send_ok" or mode = "file_error" then%>disabled<%end if%> value="Send">
<input style="border-color:#000000; border-style:solid; border-width:1px; " type="reset" name="Reset" value="Fortryd">
<br>
<%
if mode = "send_ok" then
response.Write("<span style=font-weight: bold; color: #FF0000>Tak for din henvendelse<br>Din meddelse er nu sendt til os</span>")
end if
if mode = "file_error" then
response.Write("span style=font-weight: bold; color: #FF0000>Forkert type fil er valgt !!!<br><a href=/>Klik her for at nulstille</a></span>")
end if%>
</form>
</body>
</html>
<%if mode = "send" then
Set JMail = Server.CreateObject("JMail.Message")
Set Upload = Server.CreateObject("Persits.Upload")
JMail.logging = true
JMail.silent = true
Upload.SetMaxSize 120000, True
On Error Resume Next
Upload.save
Set File = Upload.Files(1)
file.saveAs server.MapPath("upload")&"\"&File.FileName
JMail.AddAttachment(server.MapPath("upload")&"\"&file.filename)
JMail.From = upload.form("email")
JMail.FromName = upload.form("name")
JMail.Subject = upload.form("headline")
JMail.AddRecipient "din@email.dk","Dit Navn"
JMail.HTMLBody = "<html><head><style type=text/css>BODY {FONT-SIZE: 12px; FONT-FAMILY: Verdana, sans-serif}A:link {COLOR: #6b8aa7; TEXT-DECORATION: none}A:active {COLOR: #6b8aa7; TEXT-DECORATION: none}A:visited {COLOR: #6b8aa7; TEXT-DECORATION: none}A:hover {COLOR: #000000; TEXT-DECORATION: underline</style></head>"
JMail.HTMLBody = JMail.HTMLBody&"<body><strong>Navn: </strong>"&Upload.form("name")&"<br><strong>Telefonnummer: </strong>"&Upload.form("phone")&"<br>Må vi kontakte dig?? "&Upload.form("allow")&"<br><strong>Besked:<br></strong>"&replace(upload.form("body"), vbcrlf, "<br>")&"</body></html>"
JMail.Priority = 1
JMail.send("localhost")
response.Redirect("?mode=send_ok")
end if
Ny bruger
Nybegynder
Opret
Preview
