<% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr(cStr(Request.Form("firstname"))) & "|WA|" & cStr(cStr(Request.Form("emailto"))) & "" MailSubject = "PMN - Website Request" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "Request for information from the website:" & vbCRLF MailBody = MailBody & "Company: " & cStr(Request.Form("Company")) & vbcrlf MailBody = MailBody & "Name: " & cStr(Request.Form("firstname")) & " " & cStr(Request.Form("lastname")) & vbCRLF MailBody = MailBody & "Industry: " & cStr(Request.Form("Industry")) & vbCRLF MailBody = MailBody & "Address: " & cStr(Request.Form("address")) & vbCRLF MailBody = MailBody & "City, State Zip: " & cStr(Request.Form("City")) & ", " & cStr(Request.Form("ST")) & " " & cStr(Request.Form("Zip")) & vbCRLF MailBody = MailBody & "Phone: " & cStr(Request.Form("dayphone")) & vbCRLF MailBody = MailBody & "Email: " & cStr(Request.Form("emailto")) & vbCRLF MailBody = MailBody & "Website URL: " & cStr(Request.Form("website")) & vbCRLF & vbCRLF MailBody = MailBody & "Comments: " & cStr(Request.Form("message")) 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("Submit")) <> "")) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("info@printmedianet.com") WA_Universal_Email_1_SendMail("terencepjf@yahoo.com") 'Send Mail All Entries if ("thank-you.html"<>"") then Response.Redirect("thank-you.html") end if end if %> Contact Print Media Networl - Atlanta

Contact Print Media Network

Print Media Network, Inc.
109 Mirramont Lake Drive
Woodstock, GA 30189
www.printmedianet.com
Phone: 770-926-4046, 770-926-8656,
Fax: 770-926-4213
info@printmedianet.com

Fields marked with an * are required

* Company:
Industry:
* First Name:
* Last Name:
Address:
City:
State:
Zip:
* Day Phone #:
Web site:
* Email:
Please share your thoughts on the project with us.