<% if request("send") <> 1 then %> Member Information
We are happy to assist you with any comments or questions.
We will only use this information within our club.
We will try to answer any submissions within 24hrs.

Name:
Phone Number:
Email Address:
   
Comment or Question:


  Are you interested in Membership?
Yes, Please contact me  No, not right now 

Please keep me informed via email of Parma Lapidary Club information.


Submit Comment or Question

<% else SendMail Sub SendMail Set SMTP = CreateObject("EasyMail.SMTP.5") SMTP.LicenseKey = "ECRM (2 Developer)/0100510410080F009500" SMTP.MailServer = "basesrv3" SMTP.ESMTP_Account = "mailuser" SMTP.ESMTP_Password = "mailuser" 'SMTP.ESMTP_AuthMode = 1 SMTP.From = "PLC Information" SMTP.FromAddr = "Info@parmalapidary.com" 'SMTP.AddRecipient "", "bonfimi@ecrm-epps.com", 1 SMTP.AddRecipient "", "goldohio@yahoo.com", 1 SMTP.AddRecipient "", "bammer@ecrm-epps.com", 1 SMTP.Subject = "PLC Comment or Question" 'Set body format to HTML SMTP.BodyFormat = 1 'Always set AutoWrap to zero for HTML messages SMTP.AutoWrap = 0 strHTML = strHTML & "The Following Person Has Submitted a PLC Comment or Question:

" strHTML = strHTML & "Name: " & request("first_nm") & "
" strHTML = strHTML & "Phone: " & request("phone") & "
" strHTML = strHTML & "Email: " & request("email") & "
" strHTML = strHTML & "Comments or Question: " & request("question") & "
" strHTML = strHTML & "Interested in Membership: " & request("tclass") & "
" strHTML = strHTML & "Please Keep Informed: " & request("iclass") & "
" SMTP.Bodytext = strHTML ret = SMTP.Send() 'response.Write strHTML 'response.End Response.redirect ("thanks2.htm") End Sub end if %>