<!-- Made by ZooM design I/S \"URL:
www.zoomdesign.dk\" \"Allan Stegelmann Laustsen\" -->
<%
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
Response.Expires = 0
\'Her bliver variabler til inputene fra formen defineret
Dim strName, strAddresse, strPostnummer, strBy, strTlf, strEmail
\'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\"))
strAddresse = Trim(Request.Form(\"addresse\"))
strPostnummer = Trim(Request.Form(\"postnummer\"))
strBy = Trim(Request.Form(\"by\"))
strTlf = Trim(Request.Form(\"tlf\"))
strEmail = Trim(Request.Form(\"email\"))
\'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.yourdomain.com\"
JMail.sender = \"yourname@yourdomain.com\"
JMail.subject = \"Formail via. JMAIL\"
JMail.AddRecipient \"yourname@yourdomain.com\"
JMail.AddRecipientCC \"yourname@yourdomain.com\"
JMail.AddRecipientBCC \"yourname@yourdomain.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 & strAddresse & VbCrLf
JMail.Body = JMail.Body & strPostnummer& \" \" & strBy & VbCrLf
JMail.Body = JMail.Body & \"Telefon nummer: \" & strTlf & VbCrLf
JMail.Body = JMail.Body & \"e-mail: \" & strEmail & 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
%>
<!-- Her kommer responsen til brugeren efter at form-mailen er sendt -->
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"
http://www.w3.org/TR/html4/loose.dtd\"><HTML>
<HEAD>
<TITLE>Formmail via. JMAIL</TITLE>
<META NAME=\"Description\" CONTENT=\"\">
<META NAME=\"Keywords\" CONTENT=\"\">
<META NAME=\"Author\" CONTENT=\"ZooM design I/S, Allan Stegelmann Laustsen\">
<META NAME=\"Generator\" CONTENT=\"\">
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=ISO-8859-1\">
<STYLE TYPE=\"text/css\">
<!--
BODY {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Table {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Td {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Tr {
font-family: Arial; font-size: 9pt; font-style: normal;
}
SELECT {
font-family: Arial; font-size: 10pt; font-style: normal;
}
INPUT {
font-family: Arial; font-size: 10pt; font-style: normal;
}
INPUT.submit {
font-family: Arial; font-size: 10pt; font-style: normal; TEXT-DECORATION: none;
}
INPUT.reset {
font-family: Arial; font-size: 10pt; font-style: normal; TEXT-DECORATION: none;
}
TEXTAREA {
font-family: Arial; font-size: 10pt; font-style: normal;
}
-->
</STYLE>
</HEAD>
<BODY>
<TABLE WIDTH=400 HEIGHT=450 BORDER=0 ALIGN=\"CENTER\" CELLPADDING=0 CELLSPACING=0 RULES=\"NONE\" FRAME=\"VOID\">
<TR>
<TD WIDTH=100% HEIGHT=15 ALIGN=\"CENTER\" VALIGN=\"TOP\">
<CENTER>
...Form-mailen er sendt...
</CENTER>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
Else
%>
<!-- Her kommer form-mailen -->
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"
http://www.w3.org/TR/html4/loose.dtd\"><HTML>
<HEAD>
<TITLE>Formmail via. JMAIL</TITLE>
<META NAME=\"Description\" CONTENT=\"\">
<META NAME=\"Keywords\" CONTENT=\"\">
<META NAME=\"Author\" CONTENT=\"ZooM design I/S, Allan Stegelmann Laustsen\">
<META NAME=\"Generator\" CONTENT=\"\">
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=ISO-8859-1\">
<STYLE TYPE=\"text/css\">
<!--
BODY {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Table {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Td {
font-family: Arial; font-size: 9pt; font-style: normal;
}
Tr {
font-family: Arial; font-size: 9pt; font-style: normal;
}
SELECT {
font-family: Arial; font-size: 10pt; font-style: normal;
}
INPUT {
font-family: Arial; font-size: 10pt; font-style: normal;
}
INPUT.submit {
font-family: Arial; font-size: 10pt; font-style: normal; TEXT-DECORATION: none;
}
INPUT.reset {
font-family: Arial; font-size: 10pt; font-style: normal; TEXT-DECORATION: none;
}
TEXTAREA {
font-family: Arial; font-size: 10pt; font-style: normal;
}
-->
</STYLE>
<!-- Følgende script tjekker om alle felterne i form-mailen er udfyldt. -->
<SCRIPT LANGUAGE=\"JavaScript\" TYPE=\"text/javascript\">
function validate(form1) {
//Navn-feltet
if (form1.navn.value == \"\") {
alert(\"Husk at angive dit navn!\");
document.form1.navn.focus();
return false;
}
else {
//Addresse-feltet
if (form1.addresse.value == \"\") {
alert(\"Husk at angive din addresse!\");
document.form1.addresse.focus();
return false;
}
else {
//Pstnummer-feltet
if (form1.postnummer.value == \"\") {
alert(\"Husk at angive dit postnummer!\");
document.form1.postnummer.focus();
return false;
}
else {
//By-feltet
if (form1.by.value == \"\") {
alert(\"Husk at angive hvilken by du bor i!\");
document.form1.by.focus();
return false;
}
else {
//Telefonnummer-feltet
if (form1.tlf.value == \"\") {
alert(\"Husk at angive et !\");
document.form1.tlf.focus();
return false;
}
else {
//e-mail-feltet
if (document.form1.email.value.indexOf(\"@\")==-1 || document.form1.email.value.indexOf(\".\")==-1) {
alert(\"Du har ikke udfyldt e-mail feltet korrekt\");
document.form1.email.focus();
return false;
}
}
}
}
}
}
return true;
}
//Følgende sørger for cursoren står i første felt (navn)
function start() {
document.form1.navn.focus();
return false;
}
</SCRIPT>
</HEAD>
<BODY BGCOLOR=\"#000000\" TEXT=\"#FFFFFF\" LINK=\"#FF3399\" VLINK=\"#3366FF\" ALINK=\"#FF0000\" SCROLL=AUTO LEFTMARGIN=0 MARGINWIDTH=0 TOPMARGIN=0 MARGINHEIGHT=0 ONLOAD=\"return start()\">
<TABLE WIDTH=400 HEIGHT=450 BORDER=0 ALIGN=\"CENTER\" CELLPADDING=0 CELLSPACING=0 RULES=\"NONE\" FRAME=\"VOID\">
<TR>
<TD WIDTH=100% HEIGHT=15 ALIGN=\"CENTER\" VALIGN=\"TOP\">
<CENTER>
...Formmail...
</CENTER>
</TD>
</TR>
<TR>
<HR WIDTH=80% SIZE=1>
</TR>
<TR>
<TD ALIGN=\"CENTER\" VALIGN=\"TOP\">
<FORM NAME=\"form1\" ACTION=\"jmail.asp\" METHOD=POST ONSUBMIT=\"return validate(this)\">
<TABLE WIDTH=310 HEIGHT=70% BORDER=0 ALIGN=\"CENTER\" CELLPADDING=0 CELLSPACING=0>
<TR>
<TD WIDTH=110 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\">Navn:</TD>
<TD WIDTH=200 ALIGN=\"RIGHT\" VALIGN=\"BOTTOM\"><INPUT TYPE=\"text\" NAME=\"navn\" SIZE=25 MAXLENGTH=100></TD>
</TR>
<TR>
<TD WIDTH=110 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\">Addresse:</TD>
<TD WIDTH=200 ALIGN=\"RIGHT\" VALIGN=\"BOTTOM\"><INPUT TYPE=\"text\" NAME=\"addresse\" SIZE=25 MAXLENGTH=100></TD>
</TR>
<TR>
<TD WIDTH=110 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\">Postnummer:</TD>
<TD WIDTH=200 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\"> <INPUT TYPE=\"text\" NAME=\"postnummer\" SIZE=4 MAXLENGTH=4></TD>
</TR>
<TR>
<TD WIDTH=110 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\">By:</TD>
<TD WIDTH=200 ALIGN=\"RIGHT\" VALIGN=\"BOTTOM\"><INPUT TYPE=\"text\" NAME=\"by\" SIZE=25 MAXLENGTH=100></TD>
</TR>
<TR>
<TD WIDTH=110 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\">Telefonnummer:</TD>
<TD WIDTH=200 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\"> <INPUT TYPE=\"text\" NAME=\"tlf\" SIZE=8 MAXLENGTH=8></TD>
</TR>
<TR>
<TD WIDTH=110 ALIGN=\"LEFT\" VALIGN=\"BOTTOM\">e-mail:</TD>
<TD WIDTH=200 ALIGN=\"RIGHT\" VALIGN=\"BOTTOM\"><INPUT TYPE=\"text\" NAME=\"email\" SIZE=25 MAXLENGTH=100></TD>
</TR>
<TR>
<TD VALIGN=\"BOTTOM\" COLSPAN=2><BR>
<CENTER>
<INPUT TYPE=\"submit\" NAME=\"submit\" VALUE=\" Indsend \">
<INPUT TYPE=\"reset\" NAME=\"reset\" VALUE=\" Nulstil \" name=\"Reset\" onclick=\"java script:document.form1.navn.focus();\">
</CENTER></TD>
</TR>
</TABLE>
</FORM>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
<% End If %>
Ny bruger
Nybegynder
Opret
Preview
