<%
response.Buffer = TRUE
response.expires = 0
mode = request.querystring(\"mode\")
%>
<html>
<head>
<title>tittel</title>
<LINK REL=STYLESHEET HREF=\"style.css\">
<script language=\"JavaScript1.2\" SRC=\"formcheck.js\">
</script>
<SCRIPT LANGUAGE=JAVASCRIPT>
function afsendelse(form) {
if (!gyldigEmail(form.your_email.value)) {
alert(\"Ugyldig e-mail-adresse !\")
form.your_email.focus()
form.your_email.select()
return false}
if (!tom(form.from.value)){
alert(\"Indtast venligst et navn\")
form.from.focus()
return false}
if (!tom(form.emne.value)){
alert(\"Skriv venligst et emne\")
form.emne.focus()
return false}
if (!tom(form.besked.value)){
alert(\"Udfyld venligst feltet besked.\")
form.besked.focus()
return false}
}
</SCRIPT>
</head>
<body>
<div align=\"center\">
<% if mode = \"\" then %>
<div align=\"center\">
<table>
<tr>
<td class=\"td\">
<form METHOD=\"post\" ACTION=\"contact.asp?mode=sendmail\" onSubmit=\"return afsendelse(this)\">
Emne:<BR>
<input type=\"text\" name=\"emne\" value=\"\" class=\"input\"><BR><BR>
Dit Navn: <BR>
<input type=\"text\" name=\"from\" value=\"\" class=\"input\"><BR><BR>
Din e-mail:<BR>
<input type=\"text\" name=\"your_email\" value=\"\" class=\"input\"><BR><BR>
Spørgsmål/kommentar:<BR>
<textarea cols=40 rows=10 name=\"besked\" class=\"input\"></textarea><BR><BR>
<div align=\"center\">
<INPUT TYPE=\"submit\" VALUE=\"Send E-mail\" class=\"button\"></form>
</div>
</td>
</tr>
</table>
</div>
<% end if %>
<% if mode = \"sendmail\" then %>
<% Response.Buffer = True
Dim redirect_to, send_to, subject, Mail, StrMsg
from = Request.Form(\"from\")
emne = Request.Form(\"emne\")
your_email = Request.Form(\"your_email\")
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.domæne.dk\"
JMail.Sender = your_email
JMail.Subject = emne
JMail.AddRecipient \"mail@domæne.dk\"
JMail.Body = Request.Form(\"besked\")
JMail.Priority = 3
JMail.AddHeader \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Execute
%>
<b>Email modtaget:</b>
<br>
<br>
<div align=\"center\">
Der er nu sendt en email til mig med følgende indhold:<br>
<br>
<table>
<tr>
<td class=\"td\" width=\"100\"><b>Emne:</b></td>
<td class=\"td\"><%=emne%></td>
</tr>
<tr>
<td class=\"td\"><b>Afsender:</b></td>
<td class=\"td\"><%=from%></td>
</tr>
<tr>
<td class=\"td\"><b>Din Email:</b></td>
<td class=\"td\"><%=your_email%></td>
</tr>
<tr>
<td class=\"td\" valign=\"top\"><b>Spørgsmål/<br>kommentar:</b></td>
<td class=\"td\" valign=\"top\"><br><%=request.form(\"besked\")%></td>
</tr>
</table>
<br>
Jeg vil hurtigst muligt komme med en kommentar/svar på din email.
</div>
<% end if %>
</div>
</body>
</html>
Her er contact.asp
Ny bruger
Nybegynder
Opret
Preview
