<% response.buffer = true %><% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" %><% basedir = "" %>
<% '***** Start Content Section *****' %><% Dim actionVar actionVar = Request("actionVar") If actionVar = "send" then Dim sendtoAddress,sendfromAddress,subject,message name = Request("name") position = Request("position") email = Request("email") phone = Request("phone") company = Request("company") address = Request("address") city = Request("city") state = Request("state") zip = Request("zip") fax = Request("fax") web_site = Request("web_site") alertstart = "



You forgot to enter your " If name = "" then alertItems = "" comma = "1" End If If email = "" then If comma > "" then If comment > "" then alertItems = "" Else alertItems = "" End If End If comma = comma + 1 alertItems = "" End If If comment = "" then If comma > "" then alertItems = "" End If alertItems = "" End If alertend = "!

Return to Form" alert = alertstart & alertItems & alertend If alertItems > "" then Response.Write "" & alert & "" Else %><% sendtoAddress = "ron@mmginc.net" sendfromAddress = Request ("email") subject = "CPGC Contact Request" name = Request("name") position = Request("position") email = Request("email") phone = Request("phone") company = Request("company") address = Request("address") city = Request("city") state = Request("state") zip = Request("zip") fax = Request("fax") web_site = Request("web_site") message = name & vbCrlf message = message & position & vbCrlf message = message & email & vbCrlf message = message& phone & vbCrlf message = message & company & vbCrlf message = message & address & vbCrlf message = message & city & vbTab message = message & state & vbTab message = message & zip & vbCrlf message = message & fax & vbCrlf message = message & web_site & vbCrlf Set objMail = Server.CreateObject("CDONTS.Newmail") objMail.From = "CPGC Contact Request <" & sendfromAddress & ">" objMail.To = "ron@mmginc.net" objMail.Subject = "CPGC Contact Request" objMail.Body = message objMail.Send Set objMail = Nothing %>


We will contact you shortly
Go to CPGC Home Page <% End If Else %>

Contact Us
Name:
Position:
E-mail:
Phone:
Company:
Address:
City:
State:
Zip:
Fax:
Web Site

<% End If %><% '***** End Content Section *****' %>