<%@language=vbscript%> <% if Request.Form("action") = "submit" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "scriptmail.intermedia.net" Mailer.FromAddress = Request.Form("Email") Mailer.FromName = Request.Form("Name") Mailer.AddRecipient "Sitemaster", "sitemaster@outboxin.com" Mailer.AddBCC "Lauren Schwartz", "lschwartz@outboxin.com" Mailer.Subject = "PADNA PEOPLE MAP LISTING" messBody = "Contact Information" & vbCrLf & "--------------------------------------------------------------" & vbCrLf messBody = messBody & "First Name: " & Request.Form("FirstName") & vbCrLf messBody = messBody & "Last Name: " & Request.Form("LastName") & vbCrLf messBody = messBody & "Profession: " & Request.Form("Profession") & vbCrLf & vbCrLf messBody = messBody & "Company: " & Request.Form("Company") & vbCrLf messBody = messBody & "Address: " & Request.Form("Address") & vbCrLf messBody = messBody & "Apartment: " & Request.Form("Apartment") & vbCrLf messBody = messBody & "Phone: " & Request.Form("Phone") & vbCrLf messBody = messBody & "Email: " & Request.Form("Email") & vbCrLf Mailer.BodyText = messBody if Mailer.SendMail then Set Mailer = Nothing Response.Redirect "basicmap_thankyou.html" else Response.Write "Mail send failure. Error was " & Mailer.Response end if end if %>

PLEASE READ THE FOLLOWING INSTRUCTIONS CAREFULLY IF YOU ARE NOT YET A PADNA MEMBER: In order to get an extended listing on our map, you must have paid your $20 2008 membership dues and a $25 fee for the extended listing. To make both of these payments at once, please click on the link below. After your payments are processed, you will receive an email from us on how to send the information and images for your listing. IF YOU ARE ALREADY A PADNA MEMBER: In order to get an extended listing on our map, you must pay a $25 fee. To make this payment, please click on the link below. After your membership is confirmed and your payment is processed, you will receive an email from us on how to send the information and images for your listing.