|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/memanuel/investidata/ |
Upload File : |
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set objMail = Server.CreateObject("CDO.Message")
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objMail.From = "[email protected]" ' change this to an email address
objMail.To = "[email protected]" ' change this to your email address
objMail.Subject = "Investidata Inquiry" ' change this to your subject
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
objMail.HTMLBody = "<font size=2 face=verdana>"
objMail.HTMLBody = objMail.HTMLBody & Replace(Request.Form("Details"), vbCrLf, "<br />") & "<br>" & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "from " & "<strong>" & Request.form("Name") & "</strong>" & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "<strong>" & "Email: " & "</strong>" & Request.Form("Email") & "<br>"
objMail.HTMLBody = objMail.HTMLBody & "Sent at " & Now() & "</font>"
objMail.Send()
Set objMail = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Thank you</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="styles.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="spacedtable">
<tr>
<td valign="top"><h1 class="pageheading">Thank
you <%= Request.Form("Name")%></h1>
<p class="text"><strong>You wrote</strong></p>
<p class="text"><%=Replace(Request.Form("Details"), vbCrLf, "<br>")%></p>
<p class="text">We will receive your message soon, and reply to you at <strong><%= Request.Form("Email")%></strong></p></td>
</tr>
</table>
<!-- start of table containg top of page link and company copyright -->
<br />
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" class="basebar" summary="the first cell contains a link to the top of this page, the second cell contains the copyright and link to the developers website.">
<tr>
<td width="31%" align="center" nowrap="nowrap"><a href="#mainpage" title="return to the top of this page">Top of Page</a></td>
<td width="69%" align="center" nowrap="nowrap">Designed and Developed by � <a href="http://www.cgw3.co.uk" target="_blank" title="cg webdevelopment website - opens in a new window">CG Webdevelopment</a>
<% =year(now) %>
</td>
</tr>
</table>
<!-- end of table containg top of page link and company copyright -->
</body>
</html>