%@ Language=VBScript %>
<%option explicit%>
<%
Dim Message
Dim email, emailSubject, bodyText
Dim CrLf
CrLf = "
"
if Len(Request("name"))>0 then
email="info@ego-id.com"
emailSubject="Ego-ID Contact Form Submittal"
'*** format body ***
bodyText = "Contact Form Information:" & CrLf & CrLf
bodyText = bodyText & "Name = " & Request("name") & CrLf
bodyText = bodyText & "Company = " & Request("company") & CrLf
bodyText = bodyText & "ASI/PPAI/UPIC # = " & Request("asi_ppai_upicNum") & CrLf
bodyText = bodyText & "Email = " & Request("email") & CrLf
bodyText = bodyText & "Web Site = " & Request("webaddress") & CrLf
bodyText = bodyText & "Phone = " & Request("phone") & CrLf
bodyText = bodyText & "Fax = " & Request("fax") & CrLf
bodyText = bodyText & "Address1 = " & Request("address1") & CrLf
bodyText = bodyText & "Address2 = " & Request("address2") & CrLf
bodyText = bodyText & "City = " & Request("city") & CrLf
bodyText = bodyText & "State = " & Request("state") & CrLf
bodyText = bodyText & "Zip = " & Request("zip") & CrLf
bodyText = bodyText & "Country = " & Request("country") & CrLf
bodyText = bodyText & "Comment = " & Request("comments") & CrLf
bodyText = bodyText & "Accept Mail = " & Request("AcceptMail")
SendCDOEmail email, emailSubject, bodyText
Message = "Thank you. Your contact information has been sent."
else
Message=" "
end if
%>
Ego Id - Contact Us