Her er koden for kontakt.asp:
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE> U n i q u e w e b . d k - Professionelle Webløsninger </TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3.5\">
<STYLE type=\"text/css\">
input, select, textarea { border:1px solid #000000; background-color:#f7f7ef; color:#000000 }
</STYLE>
<script language=\"JavaScript\">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf(\"#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</HEAD>
<BODY BGCOLOR=\"#65809A\" TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#000000\" ALINK=\"#000000\" onLoad=\"MM_preloadImages(\'menupunkt-support-lys.gif\',\'menupunkt-profil-lys.gif\',\'menupunkt-proces-lys.gif\',\'menupunkt-priser-lys.gif\',\'menupunkt-kontakt-lys.gif\')\">
<%
Dim strName, strEmail, strTlf, strQuery, JMail
strName = Trim(Request.Form(\"ClientName\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strTlf = Trim(Request.Form(\"ClientTlf\"))
strQuery = Trim(Request.Form(\"ClientQry\"))
If (strName <> \"\" And strEmail <> \"\" And strQuery <> \"\") Then
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ContentType = \"text/html\"
JMail.ServerAddress = \"websmtp.uniqueweb.dk\"
JMail.Priority = 1
JMail.Sender = strEmail
JMail.AddRecipient \"admin@uniqueweb.dk\"
JMail.Subject = \"Nyt spg. fra \" & strName
JMail.AppendText \"Spørgsmål.: \" & strQuery
JMail.AppendText \"<BR><BR><BR><BR><BR>\"
JMail.AppendText \"Navn.: \" & strName
JMail.AppendText \"<BR><BR>\"
JMail.AppendText \"E-mail.: \" & strEmail
JMail.AppendText \"<BR><BR>\"
JMail.AppendText \"Telefon nummer: \" & strTlf
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
Set JMail = Nothing
Response.Redirect \"tak.asp\"
Else
%>
<TABLE WIDTH=\"100%\" HEIGHT=\"100%\" BORDER=\"0\" CELLSPACING=\"0\" BACKGROUND=\"*\">
<TR ALIGN=\"center\">
<TD>
<TABLE WIDTH=\"750\" HEIGHT=\"500\" BACKGROUND=\"menu-bevel-bag.gif\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">
<TR>
<TD>
<BR><BR><BR><BR><BR>
<TABLE BORDER=\"0\" WIDTH=\"500\" HEIGHT=\"30\" CELLSPACING=\"0\" CELLPADDING=\"0\" BACKGROUND=\"*\" ALIGN=\"right\">
<TR ALIGN=\"right\" VALIGN=\"top\">
<TD> <a href=\"index.HTM\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Profil\',\'\',\'menupunkt-profil-lys.gif\',1)\"><img name=\"Profil\" border=\"0\" src=\"menupunkt-profil.gif\" width=\"85\" height=\"30\"></a>
<a href=\"proces.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Proces\',\'\',\'menupunkt-proces-lys.gif\',1)\"><img name=\"Proces\" border=\"0\" src=\"menupunkt-proces.gif\" width=\"85\" height=\"30\"></a>
<a href=\"priser.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Priser\',\'\',\'menupunkt-priser-lys.gif\',1)\"><img name=\"Priser\" border=\"0\" src=\"menupunkt-priser.gif\" width=\"85\" height=\"30\"></a>
<a href=\"referencer.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Support\',\'\',\'menupunkt-support-lys.gif\',1)\"><img name=\"Support\" border=\"0\" src=\"menupunkt-support.gif\" width=\"85\" height=\"30\"></a>
<a href=\"kontakt.asp\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage(\'Kontakt\',\'\',\'menupunkt-kontakt-lys.gif\',1)\"><img name=\"Kontakt\" border=\"0\" src=\"menupunkt-kontakt.gif\" width=\"85\" height=\"30\"></a>
</TD>
</TR>
</TABLE>
<BR><BR><BR><BR>
<TABLE WIDTH=\"690\" HEIGHT=\"320\" BORDER=\"0\" ALIGN=\"center\" BACKGROUND=\"*\">
<TR VALIGN>
<TD>
<TABLE WIDTH=\"500\" HEIGHT=\"250\" BORDER=\"0\" ALIGN=\"right\" BACKGROUND=\"*\">
<TR VALIGN=\"top\">
<TD WIDTH=\"100%\"><FONT SIZE=\"1\" FACE=\"\'verdana\'\">
Christian Birk<BR><BR>
<I>Leder / Webdesigner</I><BR><BR><BR>
Thomas Bjørk<BR><BR>
<I>Rådgiver i marketing og kommunikation</I><BR><BR><BR>
Unique Webdesigns<BR>
Højtoften 20<BR>
4050 Skibby<BR><BR><BR>
e-mail: kontakt@uniqueweb.dk<BR><BR>
tlf: 22 46 40 90<BR>
</FONT>
</TD>
<TD>
<TD WIDTH=\"330\">
<FORM ACTION=\"/kontakt.asp\" METHOD=POST>
<FONT FACE=\"Verdana\" SIZE=\"1\" COLOR=\"#000000\">
<B>Navn:</B><BR><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40><BR><BR>
<B>E-mail:</B><BR><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40><BR><BR>
<B>Tlf:</B><BR><INPUT TYPE=TEXT NAME=\"ClientTlf\" VALUE=\"\" MAXLENGTH=\"8\" SIZE=8><BR><BR>
<B>Spørgsmål:</B><BR><TEXTAREA NAME=\"ClientQry\" COLS=30 ROWS=5></TEXTAREA><BR><BR>
<INPUT TYPE=SUBMIT VALUE=\"Send\"></FONT>
</FORM>
</TD>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
<TABLE WIDTH=\"750\" HEIGHT=\"25\" BORDER=\"0\" CELLSPACING=\"0\">
<TR>
<TD>
<IMG SRC=\"kontaktlinie.gif\" BORDER=\"0\" WIDTH=\"752\" HEIGHT=\"27\" ALIGN=\"bottom\" ALT=\"\">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<% End If %>
</BODY>
</HTML>
//htmlkrede
