<%@ Language=VBScript %>
<%
on error resume next
dim objMail
'These two lines are for the aspemail component
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = "smtp.readyhosting.com" ' Specify a valid SMTP server
'This is the line to use for the CDONTS component
'Set objMail = Server.CreateObject("CDO.message")
dim strSubject
dim strBody
dim strFrom
dim strName
dim strEmail
dim strPhone
dim strComments
strName = Request.Form("txtName")
strFrom = Request.Form("txtEmail")
strEmail = Request.Form("txtEmail")
strPhone = Request.Form("txtPhone")
strComments = Request.Form("txtComments")
strSubject = "Web Submission"
if IsValidEmail(strFrom) then
strBody = strBody & "Name: " & strName & vbCrLf
strBody = strBody & "Email: " & strEmail & vbCrLf
strBody = strBody & "Phone: " & strPhone & vbCrLf
strBody = strBody & "Comments: " & strComments & vbCrLf
objMail.From = strFrom
'This is the line to use for CDONTS
'objMail.To = "info@roomsontheborder.com"
'This is the line to use for ASP Email
objMail.AddAddress "info@roomsontheborder.com", "Hiren Patel"
objMail.Subject = strSubject
objMail.TextBody = strBody
objMail.send
Set objMail = Nothing
end if
' A quick email syntax checker. It's not perfect,
' but it's quick and easy and will catch most of
' the bad addresses than people type in.
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
