<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<% Response.Buffer = True %>
<%
'Declaring Variables
Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Email
Dim ContactUs_Subject,ContactUs_Body,Action,IsError, ContactUs_Company, ContactUs_Phone
' Edit line 11 accordingly
smtpserver = "mail.xxxxx.com"
youremail = "xxxxxx"
yourpassword = "xxxxxxxxxx"
' Grabbing variables from the form post
ContactUs_Email = Request("ContactUs_Email")
ContactUs_Company = Request("ContactUs_Company")
ContactUs_Name = Request("ContactUs_Name")
ContactUs_Phone = Request("ContactUs_Phone")
ContactUs_Subject = Request("ContactUs_Subject")
ContactUs_Body = Request("ContactUs_Body")
Action = Request("Action")
' Used to check that the email entered is in a valid format
Function IsValidEmail(Email)
Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1
ValidFlag = False
If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then
atCount = 0
SpecialFlag = False
For atLoop = 1 To Len(Email)
atChr = Mid(Email, atLoop, 1)
If atChr = "@" Then atCount = atCount + 1
If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True
If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True
If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True
If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True
Next
If (atCount = 1) And (SpecialFlag = False) Then
BadFlag = False
tAry1 = Split(Email, "@")
UserName = tAry1(0)
DomainName = tAry1(1)
If (UserName = "") Or (DomainName = "") Then BadFlag = True
If Mid(DomainName, 1, 1) = "." then BadFlag = True
If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True
ValidFlag = True
End If
End If
If BadFlag = True Then ValidFlag = False
IsValidEmail = ValidFlag
End Function
%>
<html>
<head>
<title>Contact Ayers Welldrilling</title>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link rel=stylesheet type="text/css" href="../../include/stylesheet.css">
<body style="font-family: Arial; font-size: 12px;">
<%
If Action = "SendEmail" Then
' Here we quickly check/validate the information entered
' These checks could easily be improved to look for more things
If IsValidEmail(ContactUs_Email) = "False" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a valid email address.</font><br>")
End If
If ContactUs_Name = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Name.</font><br>")
End If
If ContactUs_Phone = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Phone.</font><br>")
End If
If ContactUs_Subject = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Subject.</font><br>")
End If
If ContactUs_Body = "" Then
IsError = "Yes"
Response.Write("<font color=""red"">You did not enter a Body.</font><br>")
End If
End If
' If there were no input errors and the action of the form is "SendEMail" we send the email off
If Action = "SendEmail" And IsError <> "Yes" Then
Dim strBody
' Here we create a nice looking html body for the email
strBody = strBody & "<font face=""Verdana,Geneva,Arial,Helvetica,sans-serif"">Here we create" & vbCrlf & "Submitted at: " & Now() & vbCrLf & "<br><br>"
'strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "<br>"
'strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "<br>"
strBody = strBody & "Company" & ": " & " " & Replace(ContactUs_Company,vbCr,"<br>") & "<br>"
strBody = strBody & "Phone" & ": " & " " & Replace(ContactUs_Phone,vbCr,"<br>") & "<br>"
strBody = strBody & "Name" & ": " & " " & Replace(ContactUs_Name,vbCr,"<br>") & "<br>"
strBody = strBody & "Email" & ": " & " " & Replace(ContactUs_Email,vbCr,"<br>") & "<br>"
strBody = strBody & "Subject" & ": " & " " & Replace(ContactUs_Subject,vbCr,"<br>") & "<br>"
strBody = strBody & "<br>" & Replace(ContactUs_Body,vbCr,"<br>") & "<br>"
strBody = strBody & "</font>"
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = youremail
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourpassword
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendMail.To = youremail
ObjSendMail.Subject = ContactUs_Subject
ObjSendMail.From = ContactUs_Email
' we are sending a html email.. simply switch the comments around to send a text email instead
ObjSendMail.HTMLBody = strBody
'ObjSendMail.TextBody = strBody
ObjSendMail.Send
Set ObjSendMail = Nothing
' Change the success messages below to say or do whatever you like
' You could do a response, a redirect, or offer a hyperlink somewhere.. etc etc
%>
<div align="center"><center>
<table width="540" border="0"><tr><td><p>
<img src="Desktop/ayers-logo.jpg" alt="Ayers Logo" width="307" height="75" border="0">
<p> <br>
<font size="2" color="#0000FF"> Message Subject: <% =Replace(ContactUs_Subject,vbCr,"<br>") %></font>
</p>
<p> <br>
<b>Your message has been sent to Ayers Welldrilling - Thank You.</b></font>
<font face="Verdana,Geneva,Arial,Helvetica,sans-serif" size="2"><br> <br>
<br>Please allow a couple days for response.
<br>If your message is more urgent, call 440-256-3622
</font>
</p>
</td></tr></table>
<p> <br>
<a href="index.html" title="Home">
Home
</a>
</p>
</div>
<% Else %>
<div align="center"><center>
<table width="540" border="0"><tr><td><p>
<font face="Arial, helvetica" size="5" color="#000000">
<img src="fush/Desktop/ayers-logo.jpg" alt="Ayers Logo" width="307" height="75" border="0">
<p>
<b>Information Request and Comments</b></font>
<p><font FACE="Arial, helvetica" Size=2>
We are interested in your comments, information requests, etc...
<br>Please allow a couple days for response.
</td></tr></table>
<form action="contact_us.asp" method="POST">
<input type="hidden" name="Action" value="SendEmail">
<table width="540" border="0">
<tr><td colspan="2">
<font FACE="Arial" size="2">
The information below is confidential and will not be distributed.</font>
<hr></td>
</tr>
<tr><td width="150"><font FACE="Arial" size="2"><b>*Name:</b></font></td>
<td>
<input type="text" name="ContactUs_Name" size="35" value="<% =ContactUs_Name %>">
</td>
</tr>
<tr><td width="150"><font FACE="Arial" size="2"><b>Company:</b></font></td>
<td>
<input type="text" name="ContactUs_Company" size="35" value="<% =ContactUs_Company %>">
</tr>
<tr><td width="150"><font FACE="Arial" size="2"><b>*Phone:</b></font></td>
<td>
<input type="text" name="ContactUs_Phone" size="35" value="<% =ContactUs_Phone %>">
</td>
</tr>
<tr><td><font FACE="Arial" size="2"><b>*E-mail:</b></font></td>
<td>
<input type="text" name="ContactUs_Email" size="35" value="<% =ContactUs_Email %>">
</td>
</tr>
<tr><td><font FACE="Arial" size="2"><b>*Subject:</b></font></td>
<td>
<input type="text" name="ContactUs_Subject" value="<% =ContactUs_Subject %>" size="35">
</td>
</tr>
<tr><td valign="top"><font FACE="Arial" size="2"><b>*Comments:</b></font></td>
<td>
<textarea cols="40" rows="10" name="ContactUs_Body"><% =ContactUs_Body %></textarea>
</td>
</tr>
<tr><td colspan="2"><font FACE="Arial" size="2"><b>*</b>Required</font></td>
</tr>
<tr>
<td> </td>
<td>
<font FACE="Arial" size="3">
<input TYPE="submit" NAME="Engage" VALUE="Send Message" tabindex="15">
<input TYPE="reset" VALUE="Reset" name="B2" tabindex="16">
<b> Thank you!</b></font>
</td>
</tr>
</table>
</form>
<p><font face="Arial" size="2"><a href="index.html">Home</a></font>
</center></div>
<% End If %>
</body>
</html>
Load balance : Server 04
