<%@LANGUAGE="VBSCRIPT"%> <% ' CDO Email Form v1.0 If (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = cStr(Request("varFrom")) 'Senders Email Address objCDO.To = cStr(Request("varTo")) 'Recipient Email Address objCDO.CC = cStr(Request("varCC")) 'Carbon Copy Address objCDO.Subject = cStr(Request("varSubject")) 'Email Subject objCDO.Body = cStr(Request("varMessage")) 'Email Message objCDO.Send() 'Send email Set objCDO = Nothing 'Clean up your objects!!! 'Response.Redirect("thanks.asp") 'use this to redirect page after delivery Response.Write("Message Delivered") 'default response End If %>

If you likes our service help your friends and loved ones to enjoy the same by send some information about us.   From To CC Subject Message    Enter a City or US Zip:           Feedback  |  Add this page to your Favorites  |  Email this page to a Friend  |    Company Information  |  Copyright Policy  |  Terms of Service  |  Advertise with Us    Copyright © 2002 TravelMichigan.com. All rights reserved.    webmaster@travelmichigan.com