Her kommer ris_ros_form.htm:
<html>
<head>
<title>Send ris og ros</title>
</head>
<body>
<form name="form2" method="post" action="ris_ros_sent.asp">
Hvilken slags kommentar vil du sende?
<div align="center" class="filmmenu-teskt">
<input type="radio" name="Meddelelsestype" value="Klage">
Klage
<input type="radio" name="Meddelelsestype" value="Problem">
Problem
<input type="radio" checked name="Meddelelsestype" value="Forslag">
Forslag
<input type="radio" name="Meddelelsestype" value="Ros">
Ros </div>
<p align="center" class="filmmenu-teskt">Hvad vil du kommentere?</p>
<div align="center"> <font face="Times New Roman, Times, serif" color="#FFFFFF">
<select name="Emne" size="1">
<option value="Web-sted" selected>Web-sted</option>
<option value="Service">Service</option>
<option value="Medarbejder">Medarbejder</option>
<option value="Andet">Andet</option>
<option value="Leverandør">Leverandør</option>
</select>
<input type="text" size="26" maxlength="256" name="Andet">
</font></div>
<p align="center" class="filmmenu-teskt">Indtast dine kommentarer i dette felt:</p>
<div align="center"> <font face="Times New Roman, Times, serif" color="#FFFFFF">
<textarea name="Kommentarer" rows="5" cols="42"></textarea>
</font></div>
<p align="center" class="filmmenu-teskt">Hvordan kan vi kontakte dig:</p>
<div align="center">
<table>
<tr>
<td class="filmmenu-teskt">Navn
<td><font face="Times New Roman, Times, serif" color="#FFFFFF">
<input type="text" size="35" maxlength="256" name="realname">
</font>
</tr>
<tr>
<td class="filmmenu-teskt">E-mail
<td><font face="Times New Roman, Times, serif" color="#FFFFFF">
<input type="text" size="35" maxlength="256" name="email">
</font>
</tr>
<tr>
<td class="filmmenu-teskt">Telefon
<td><font face="Times New Roman, Times, serif" color="#FFFFFF">
<input type="text" size="35" maxlength="256" name="telefon">
</font>
</tr>
<tr>
<td class="filmmenu-teskt">Fax
<td><font face="Times New Roman, Times, serif" color="#FFFFFF">
<input type="text" size="35" maxlength="256" name="fax">
</font>
</tr>
</table>
<input type="checkbox" name="KraeverKontakt" checked>
<span class="filmmenu-teskt">Kontakt mig så hurtigt som muligt om dette emne. </span></div>
<p align="center"> <font face="Times New Roman, Times, serif" color="#FFFFFF">
<input type="submit" value="Send kommentarer" name="submit" class="forms">
<input type="reset" value="Ryd formular" name="reset" class="forms">
</font></p>
</form>
</body>
</html>
Og her er ris_ros_sent.asp:
<html>
<body>
<%
Server.ScriptTimeout = 6000
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true
JMail.ServerAddress = "mail.mitsite.dk"
jMail.sendername = request("realname")
JMail.Sender = request("email")
JMail.Subject = request("Meddelelsestype") & " ang. " & request("Emne") & " " & request("Andet")
JMail.AddRecipient "mig@mitsite.dk"
body = "<b>Dette er en " & request("Meddelelsestype") & " ang. " & request("Emne") & " " & request("Andet") & " fra Ris og Ros siden.<br><br><br>"
body = body & "Afsenderen ønsker at blive kontaktet "
if request("KraeverKontakt") = True then
body = body & "så hurtigt som muligt "
end if
body = body & "på følgende måde</b><br><br>"
body = body & "Navn: " & request("realname") & "<br>"
body = body & "E-mail: " & request("email") & "<br>"
body = body & "Telefon: " & request("telefon") & "<br>"
body = body & "Fax: " & request("fax") & "<br><br>"
body = body & "Kommentarer:<br>" & request("Kommentarer") & "<br>"
body = body & "<br><br><br><b>Denne e-mail er sendt fra:<br>"
body = body & "<a href='
http://" & request.servervariables("SERVER_NAME") & "'>"
body = body & request.servervariables("SERVER_NAME") & "</a></b><br><br><br>"
jMail.ContentType = "text/html"
JMail.Priority = 3
JMail.Body = body
JMail.Execute
Set JMail = Nothing
%>
Tak for ris og ros. Vi kontakter dig hurtigst muligt.
</body>
</html>