IMM - Information Marketing & Management, Inc.

<% Dim var_realname, var_from, var_Contact_Me, var_Title, var_Company_Name, var_Address, var_Phone, var_Send, thisPage var_realname = Request.Form("realname") var_from = Request.Form("from") var_Contact_Me = Request.Form("Contact_Me") var_Title = Request.Form("Title") var_Company_Name = Request.Form("Company_Name") var_Address = Request.Form("Address") var_Phone = Request.Form("Phone") var_Send = Request.Form("send") thisPage = Request.ServerVariables("SCRIPT_NAME") If not var_Send = 1 Then %> IMM - Information Marketing & Management, Inc.

Let's Talk

If you would like more information about our services and how we can effectively and cost-efficiently

manage your National Yellow Page Program, please complete the following information and then click "Let's Talk".

Contact me by telephone

Please e-mail me

Please send me more information in the mail

Customer Information:
Your Name:
Title:
Company:
Address:
City:
State:
Zip:
Phone:
E-mail:

Information Marketing & Management, Inc.
772 West Main Street Suite 202
Lake Geneva, WI 53147
Phone: 262-248-6070
Fax: 262-248-6775

<% ELSE Dim ObjMail Set ObjMail = Server.CreateObject("CDO.Message") objMail.From = "aanglin@immyellowpages.com" objMail.To = "aanglin@immyellowpages.com" objMail.Subject = "Contact from Your Website" objMail.HTMLBody = "Contact Me by: " & var_Contact_Me & "
"_ & VBCrLf & "Name: " & var_realname & "
"_ & VBCrLf & "Title: " & var_Title & "
"_ & VBCrLf & "Company: " & var_Company_Name & "
"_ & VBCrLf & "Addres: " & var_Address & "
"_ & CBCrLf & "Phone: " & var_Phone & "
" objMail.Send Set objMail = Nothing Response.Write "Hey "& var_realname & ",
"_ & VBCrLf & "Thanks for your feedback.
"_ & VBCrLf & "We’ll contact you as soon as possible!"_ & VBCrLf & "

IMM Yellow Pages Home" End If %>