Snitz Forums 2000 - Send To Email Form?


<form method="post" action="confirmation.asp">
				<input type="hidden" value="contactResult.html" name="redirect" />
					<table cellpadding="0" cellspacing="10" border="0" align="center">
					<tr>
						<td><strong>Send to:</strong></td>
						<td><input name="recipient" type="text" size="25" value="<email address>" onclick="this.value='';" /></td>
					</tr>
					<tr>
						<td><strong>From:</strong></td>
						<td><input name="FromEmail" type="text" size="25" /></td>
					</tr>
					<tr>
						<td colspan="2"><strong>Reason for Throwing Flag:</strong></td>
					</tr>
					<tr>
						<td colspan="2"><textarea name="Reason" cols="27" rows="10"></textarea></td>
					</tr>
					<tr>
						<td colspan="2" align="center"><input name="submit" type="submit" value="Throw Now!" /></td>
					</table>
					
				</form>


<%
      
  	Set objCDOSYSMail = Server.CreateObject("CDO.Message")
	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "no-reply@bsflag.com"
objCDOSYSMail.To = "support@thebragboard.com"
objCDOSYSMail.Subject = "BS Industries - You've Been Flagged!"
objCDOSYSMail.HTMLBody = "<html xmlns='http://www.w3.org/1999/xhtml'>
<body bgcolor='#FFD75B'><br /><br />
<table cellpadding='10' cellspacing='0' border='0' align='center' bgcolor='#ffffff'>
<tr>
	<td align='center'><img src='http://client.logoworks.com/BSindustries/flash/BS-flagGIF.gif' width='301' height='141' /></td>
</tr>
<tr>
	<td align='center' width='600'><h1>" &request.form("FromEmail")&vbnewline " has sent you the BS Flag</h1>
	<h2>for the following reasons:</h2>
<blockquote>" &request.form("Reason")&vbnewline "</blockquote>
<p><em>Learn more about the BS Flag at <a href='http://www.bsflag.com'>www.bsflag.com</a>.</em></p></td>
</tr>
</table>
<br /><br />
</body>
</html>";

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
   
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Thank You For Your Question</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body onLoad="MM_goToURL('parent','contactResult.html');return document.MM_returnValue">
</body>
</html>