The nature of cancer - education, treatment and alternative therapies for disease management and cure

Newsletter

What we do

<% dim arrFields dim arrStates dim i, j dim formSubmit dim errorText dim Mail dim mailbody dim email_type dim email_host dim COMPANY_NAME dim COMPANY_EMAIL dim page_name COMPANY_NAME = "RIMC" COMPANY_EMAIL = "pam@drbrodie.com" email_type = "SMTPsvg.Mailer" email_host = "localhost" page_name = "newsletter.asp" arrFields = array( _ array("firstname", "First Name", "text", 30, 1), _ array("lastname", "Last Name", "text", 30, 1), _ array("company", "Company", "text", 100, 0), _ array("address", "Address", "text", 50, 0), _ array("city", "City", "text", 30, 0), _ array("state", "State", "select", 0, 0), _ array("zip", "Zip", "text", 10, 0), _ array("email", "Email", "text", 50, 1), _ array("phone", "Phone", "text", 20, 0), _ array("comments", "Notes/Comments", "textarea", 0, 0) _ ) arrStates = array("Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", "Delaware", _ "Florida", "Georgia", "Hawaii", "Idaho", "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", _ "Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", "Mississippi", "Missouri", "Montana", "Nebraska", _ "Nevada", "New Hampshire", "New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", "Ohio", _ "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", "South Carolina", "South Dakota", "Tennessee", "Texas", _ "Utah", "Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming") formSubmit = false errorText = "" if trim(request("do")) = "do" then for i = 0 to ubound(arrFields) if arrFields(i)(4) = 1 and trim(request(arrFields(i)(0))) = "" then errorText = errorText & "" & arrFields(i)(1) & " is required.
" elseif arrFields(i)(0) = "email" then if not validateEmail(trim(request(arrFields(i)(0)))) then errorText = errorText & "Email must be a valid address.
" end if end if next if errorText = "" then sendRequestInfo() formSubmit = true end if end if if formSubmit = true then %>

Thank you for signing up for the newsletter. We will be in contact with you shortly.

<% else %>

Fill out this short form to sign up for our <%= COMPANY_NAME %> newsletter and you'll instantly be eligible to benefits from many member-only privileges. You'll receive our <%= COMPANY_NAME %> newsletter that will share the latest trends and breakthroughs in cancer management. It's easy to sign up. Simply fill out the short form below.

* = required.

<% if errorText <> "" then response.write "

" & errorText & "

" end if %>

<% for i = 0 to ubound(arrFields) %> <% next %>

<% if arrFields(i)(4) = 1 then response.write "* " end if response.write arrFields(i)(1) %>	<% select case arrFields(i)(2) case "text" response.write "" case "select" if arrFields(i)(0) = "state" then response.write "" & vbcrlf end if case "textarea" response.write "" _ & trim(request(arrFields(i)(0))) & "" end select %>

<% end if function validateEmail(E_mail) dim checkWriteNetworker checkWriteNetworker = false Dim atcount Dim loopcounter If len(E_mail) <> 0 then If len(E_mail) < 6 Then checkWriteNetworker = true ElseIf instr(E_mail,"@") = 0 Then checkWriteNetworker = true ElseIf instr(E_mail,".") = 0 Then checkWriteNetworker = true ElseIf len(E_mail) - instrrev(E_mail,".") > 3 Then checkWriteNetworker = true ElseIf len(E_mail) - instrrev(E_mail,".") < 2 Then checkWriteNetworker = true ElseIf instr(E_mail,"_") <> 0 And instrrev(E_mail,"_") > instrrev(E_mail,"@") Then checkWriteNetworker = true ElseIf instr(E_mail,"@") = 1 Then checkWriteNetworker = true Else atcount = 0 For loopcounter = 1 to len(E_mail) If mid(E_mail,loopcounter,1) = "@" Then atcount = atcount + 1 End If Next If atcount > 1 Then checkWriteNetworker = true End If For loopcounter = 1 to len(E_mail) If Not IsNumeric(mid(E_mail,loopcounter,1)) And _ (lcase(mid(E_mail,loopcounter,1)) < "a" Or _ lcase(mid(E_mail,loopcounter,1)) > "z") And _ mid(E_mail,loopcounter,1) <> "_" And _ mid(E_mail,loopcounter,1) <> "." And _ mid(E_mail,loopcounter,1) <> "@" And _ mid(E_mail,loopcounter,1) <> "-" Then checkWriteNetworker = 1 End If Next End If Else checkWriteNetworker = false End If validateEmail = not checkWriteNetworker end function function sendRequestInfo() mailbody = "The following person has requested information" & vbcrlf _ & "----------------------------------------------" & vbcrlf _ & vbcrlf for i = 0 to ubound(arrFields) if arrFields(i)(2) <> "textarea" then mailbody = mailbody & arrFields(i)(1) & ": " for j = len(arrFields(i)(1)) to 15 mailbody = mailbody & " " next mailbody = mailbody & trim(request(arrFields(i)(0))) & vbcrlf else mailbody = mailbody & vbcrlf & arrFields(i)(1) & ":" & vbcrlf & vbcrlf _ & trim(request(arrFields(i)(0))) & vbcrlf & vbcrlf end if next if request.servervariables("SERVER_NAME") = "gs" then response.write "

" _
			& "To:      " & COMPANY_NAME & " <" & COMPANY_EMAIL & ">
" _
			& "From:    " & trim(request("firstname")) & " " & trim(request("lastname")) & " <" & COMPANY_EMAIL & ">
" _
			& "Subject: " & COMPANY_NAME & " Request Info" & "
" _
			& replace(mailbody, vbcrlf, "
") & "

" else if email_type = "Persits.MailSender" then Set Mail = Server.CreateObject ("Persits.MailSender") Mail.Body = mailbody Mail.Host = email_host Mail.From = COMPANY_EMAIL Mail.FromName = trim(request("firstname")) & " " & trim(request("lastname")) Mail.AddAddress COMPANY_EMAIL, COMPANY_NAME Mail.Subject = COMPANY_NAME & " Request Info" Mail.Send elseif email_type = "SMTPsvg.Mailer" then Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.FromName = trim(request("firstname")) & " " & trim(request("lastname")) Mail.FromAddress = COMPANY_EMAIL Mail.RemoteHost = email_host Mail.AddRecipient COMPANY_NAME, COMPANY_EMAIL Mail.Subject = COMPANY_NAME & " Request Info" Mail.BodyText = mailbody Mail.SendMail elseif email_type = "CDO.Message" then Set Mail = CreateObject("CDO.Message") Mail.Subject = COMPANY_NAME & " Request Info" Mail.Sender = Chr(34) & trim(request("firstname")) & " " & trim(request("lastname")) & Chr(34) & "<" & COMPANY_EMAIL & ">" Mail.To = Chr(34) & COMPANY_NAME & Chr(34) & "<" & COMPANY_EMAIL & ">" Mail.TextBody = mailbody Mail.Send elseif email_type = "CDONTS.NewMail" then Set Mail = CreateObject("CDONTS.NewMail") Mail.From = Chr(34) & trim(request("firstname")) & " " & trim(request("lastname")) & Chr(34) & "<" & COMPANY_EMAIL & ">" Mail.To = Chr(34) & COMPANY_NAME & Chr(34) & "<" & COMPANY_EMAIL & ">" Mail.Subject = COMPANY_NAME & " Request Info" Mail.Body = mailbody Mail.Send end if set Mail = nothing end if ' dim conn 'dim Ssql dim rs set conn = server.createobject("adodb.connection") conn.open "drbrod.drbrodie", "drbrod", "ffvzn+ju" 'Is this email address in the networker Ssql = "SELECT * FROM DRB_networker_members WHERE Email='" & email & "'" set rs= conn.execute(Ssql) 'If not add address to networker if rs.eof then Ssql = "INSERT INTO DRB_networker_members (Email,Problem_Emailing,Batch_number,Newsletter,First_Name,Last_Name,Address,City,State,Zip,clients) "_ & "VALUES ('" & request("email") & "','no','0','yes','" & request("firstname") & "','" & request("lastname") & "','" & request("address") & "','" & request("city") & "','" _ & request("state") & "','" & request("zip") & "','yes')" conn.execute(Ssql) end if rs.close set rs = nothing conn.close set conn = nothing end function %>