<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0
'Her bliver variabler til inputene fra formen defineret
Dim strName, strEmail, strMessage
'Resten af dokumentet består én stor IF-ELSE sætning som tjekker om formularen allerede
'er blevet udfyldt, hvis den ikke er viser den formularen, ellers sender scriptet form-mailen
'og skriver en lille response på skærmen til brugeren.
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then
' Følgende linier henter dataen fra form-mailen.
strName = Trim(Request.Form("navn"))
strEmail = Trim(Request.Form("email"))
strMessage = Trim(Request.Form("message"))
'Konfiguration: Her skal du angive din JMAIL server, afsenderen (Her skal normalt stå din e-mail),
'Titlen på e-mailen samt modtagerne (Hvis du vil have flere modtagere adskiller du blot modtagernes e-mail addresser med et komma.)
JMail.ServerAddress = "mail.blibler.com"
JMail.sender = "formmail@blibler.com"
JMail.subject = "Formail via. JMAIL"
JMail.AddRecipient "formmail@blibler.com"
JMail.AddRecipientCC "formmail@blibler.com"
JMail.AddRecipientBCC "formmail@blibler.com"
'Her bliver e-mailen til et "ENTER" bliver angivet med: "& VbCrLF"
JMail.Body = "Formmail fra: " & VbCrLf
JMail.Body = JMail.Body & strName & VbCrLf
JMail.Body = JMail.Body & "e-mail: " & strEmail & VbCrLf & VbCrLf
JMail.Body = JMail.Body & "besked: " & strMessage & VbCrLf & VbCrLf
JMail.Body = JMail.Body & strCv
'Her bliver form-mailens prioritet bestemt
' 1 - højeste (Haster / Vigtigt)
' 3 - normal
' 5 - lavest
JMail.Priority = 3
JMail.Execute
%>
Your message has been send. Thank you!
<%
Else
%>
Formmail via. JMAIL
Contact Blibler Software
Company Addresses
Headoffice
Blibler Software
Lyøvej 15
DK-8370 Hadsten
Denmark
|
Development
Blibler Software
Jaguarvej 10
DK-8400 Ebeltoft
Denmark
|
Internet: www.blibler.com
Phone Number
Phone (DK): +45 87 52 04 07
Please call during local business hours.
VAT registration number
DK17388703
You can contact us immediately using the form below
<% End If %>