<%
Dim myHost
myHost = "mail.innovativeconsult.com"
If Request("Submit") == "Submit" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = myHost
Dim Name
Dim Message
Dim Email
Dim Subject
Name = Trim(Request.Form1("name"))
Message = Trim(Request.Form1("Detail"))
Subject = Trim(Request.Form1("Subject"))
Email = Trim(Request.Form1("Customer_Mail"))
Dim Body
Body = Body & "Detail: " & Detail & VbCrLf
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Email: " & Email & VbCrLf
Mail.From = "Website_Dontreply@innovativeconsult.com"
Mail.FromName = "www.Innovativeconsult.com"
Mail.Subject = "Contact Us from Website"
Mail.AddAddress = "jeff@innovativeconsult.com"
Mail.Body = Body
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
else
strErr = ""
bSuccess = False
End If
%>
Locations
 Scottsdale9170 E. Bahia Dr. Suite 105, Scottsdale, AZ 85260 Phone: 480.443.1134, Fax: 480.443.1135 |
 Las Vegas
4040 E. Post Rd Bldg F-5 Suite 105, Las Vegas, NV 89120 Phone: 702.364.1134, Fax: 702.458.5655 |
 Tucson
1651 W. Grant Rd., Tucson, AZ 85745 Phone: 520.624.0478, Fax: 520.624.0521 |