%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Action = Request("Action") FirstName = trim(Request("FirstName")) LastName = trim(Request("LastName")) EmailAddr = Request("email") Phone = trim(Request("Phone")) Address = trim(Request("Address")) City = trim(Request("City")) StateSelect = trim(Request("State")) Zip = trim(Request("Zip")) Message = trim(Request("Message")) Select Case Action Case "Send Message" EmailTo = "info@buildbusinesscreditfast.com" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "milton.aspiresite.com" Mail.From = EmailAddr ' Specify sender's address mail.addaddress EmailTo Mail.Subject = "BuildBusinessCreditFast.com - Lead Generator" Mail.Body = "First Name: " & FirstName & vbcrlf & "Last Name: " & LastName & vbcrlf & "Email: " & EmailAddr & vbcrlf & "Phone: " & Phone & vbcrlf & "Address: " & Address & vbcrlf & "City: " & City & vbcrlf & "State: " & StateSelect & vbcrlf & "Zip: " & Zip & vbcrlf & "Message: " & Message Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set Mail = Nothing Response.Redirect "contact.asp?message=sent" end select %>
|
|
|
||||||
| Nevada State Corporate Network Business Credit Solutions 777 N. Rainbow Blvd. Suite #250 Las Vegas, NV 89107 Phone: 702-838-8599 Fax: 702-838-5130 Toll Free: 800-910-9919 Email: info@buildbusinesscreditfast.com |