<%@ LANGUAGE="VBSCRIPT" %>

Customer Inquiry Submitted

<% '//SEND INFORMATION TO FSPARTNERS VIA EMAIL txtcustomer = trim(request.form("first_name")) & " " & trim(request.form("last_name")) txtcompany = trim(request.form("company")) txtjobtitle = trim(request.form("title")) txtemail = trim(request.form("email")) txtphone = trim(request.form("phone")) txtaddress = trim(request.form("address")) txtcity = trim(request.form("city")) txtstate = trim(request.form("state")) txtzip = trim(request.form("zip_code")) txtcomments = trim(request.form("additional_info")) response write "SMTP Server = " & Session("MailServerAddr") Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.FromName =txtcustomer Mailer.FromAddress = txtEmail Mailer.From = txtEmail Mailer.Host = "mail.m6.net" Mailer.AddaDDRESS "rathboy@yahoo.com" Mailer.subject = "Customer Inquiry from FS Partners Website" msgbody=txtcustomer & "has requested infomation: " & VbCrLf msgbody=msgbody & txtcompany & VbCrLf msgbody=msgbody & txtjobtitle & VbCrLf & VbCrLf msgbody=msgbody & "CONTACT INFORMATION:" & VbCrLf msgbody=msgbody & "Email:" & txtemail & VbCrLf msgbody=msgbody & "Phone:" & txtphone & VbCrLf & vbcrlf msgbody=msgbody & "Address:" & txtAddress & VbCrLf msgbody=msgbody & txtAddress2 & VbCrLf msgbody=msgbody & txtCity & "," & txtState & " " & txtZip & VbCrLf & VbCrLf msgbody=msgbody & "INQUIRY DETAILS:" & VbCrLf msgbody=msgbody & "Comments: " & comments Mailer.Body = msgbody end if mailer.Send %>
About Us | Site Map | Privacy Policy | Contact Us | ©2005 FS Partners LLC