- og her kommer koden...:
'
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Antal = Request.Form("Telefon")
Navn = Request.Form("Navn")
mailfrom = Request.Form("mailfrom")
Firmanavn = Request.Form("Firmanavn")
Adresse = Request.Form("Adresse")
Postnummer = Request.Form("Postnummer")
By = Request.Form("By")
body = "Post fra website " & vbCrLf
body = body & "Telefon : " & Telefon & vbCrLf
body = body & "Navn : " & Navn & vbCrLf
body = body & "Email : " & mailfrom & vbCrLf
body = body & "Firmanavn : " & Firmanavn & vbCrLf
body = body & "Adresse : " & Adresse & vbCrLf
body = body & "Postnummer : " & Postnummer & vbCrLf
body = body & "By : " & By & vbCrLf
Set JMail = Server.CreateObject("JMail.Message")
JMail.ServerAddress = "smtp.ader.dk"
JMail.Sender = mailfrom
JMail.Subject = "Mailform"
JMail.AddRecipient "freelance@ader.dk"
JMail.Body = body
JMail.Execute
Set JMail = Nothing
Response.Redirect(Request.ServerVariables("SCRIPT_NAME")&"?cmd=tak")
end if
%>
<html>
<head><TITLE>freelance.ADer</TITLE>
<SCRIPT LANGUAGE=javascript>
<!--
function validate(theform) {
if (theform.Telefon.value=='') {
alert("Alle markerede felter skal udfyldes, telefonnummer mangler.");
return false;
}
if (theform.Navn.value=='') {
alert("Alle markerede felter skal udfyldes, navn mangler.");
return false;
}
if (theform.mailfrom.value=='') {
alert("Alle markerede felter skal udfyldes, e-mail mangler.");
return false;
}
return true;
}
//-->
</script>
</HEAD>
<% if Request.QueryString("cmd") = "tak" then %><TABLE WIDTH="314" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD BGCOLOR="eeeeee"><B>Tak
for din besked</B><br>Jeg vil vende tilbage til dig hurtigst muligt!<br><IMG SRC="shim.gif" WIDTH="1" HEIGHT="6"><TABLE WIDTH="314" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD BACKGROUND="stip3.gif"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="1"></TD></TR></TABLE><IMG SRC="shim.gif" WIDTH="1" HEIGHT="5"><BR><B><FONT COLOR="#666666"></FONT></B><A HREF="default.htm" TARGET="_top">Start
forfra </A></TD></TR><TR><TD></TD></TR></TABLE><% else %>
<form method="POST" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return validate(this);"><TABLE WIDTH="314" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR BGCOLOR="eeeeee"><TD BGCOLOR="eeeeee" WIDTH="100"><B>Navn</B></TD><TD ALIGN="LEFT"><INPUT TYPE="text" NAME="Navn" SIZE="25">
<FONT COLOR="ff0000">*</FONT></TD><TD ALIGN="LEFT" WIDTH="1"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR><TR BGCOLOR="eeeeee"><TD><B>Mailadresse</B></TD><TD ALIGN="LEFT"><INPUT TYPE="text" NAME="mailfrom" SIZE="25">
<FONT COLOR="ff0000">*</FONT></TD><TD ALIGN="LEFT"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR><TR BGCOLOR="eeeeee"><TD><B>Firmanavn
</B></TD><TD ALIGN="LEFT"><INPUT TYPE="text" NAME="Firmanavn" SIZE="25"></TD><TD ALIGN="LEFT"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR><TR BGCOLOR="eeeeee"><TD><B>Adresse</B></TD><TD ALIGN="LEFT"><INPUT TYPE="text" NAME="Adresse" SIZE="25">
</TD><TD ALIGN="LEFT"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR><TR BGCOLOR="eeeeee"><TD><B>Postnr./By</B></TD><TD ALIGN="LEFT"><INPUT TYPE="text" NAME="Postnummer" SIZE="4" MAXLENGTH="4">
<INPUT TYPE="text" NAME="By" SIZE="17"> </TD><TD ALIGN="LEFT"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR><TR BGCOLOR="eeeeee"><TD><B>Telefon</B></TD><TD WIDTH="250" ALIGN="LEFT"><INPUT TYPE="text" NAME="Telefon" SIZE="12">
<FONT COLOR="ff0000">*</FONT></TD><TD WIDTH="250" ALIGN="LEFT"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR><TR BGCOLOR="eeeeee"><TD> </TD><TD ALIGN="LEFT"><INPUT TYPE="reset" NAME="nulstil" VALUE="Nulstil">
<INPUT TYPE="submit" VALUE="Send" NAME="submit"></TD><TD ALIGN="LEFT"><IMG SRC="shim.gif" WIDTH="1" HEIGHT="35"></TD></TR></TABLE></form><% end if %>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
