Register for Coalition Teleconference

<% if request.form("sendInfo") = "" then %>

RAM Campaign Coalition Teleconference

Tuesday, October 25
2:00 - 3:00 PM, Eastern

Please fill out the following form, in order to sign up for the Coalition Conference Call. You will receive a confirmation email after filling out the form. Further instructions, materials and dial-in information will be emailed to you as the event approaches. For further information or if you have any questions please send an email to our Webmaster at webmaster@ramcampaign.org.

Also, remember to sign up for the RAM Campaign newsletter at: www.ramcampaign.org/pages/subscribe.asp

First Name:

Last Name:

Email:

Title:

Organization:

Address:

City:

State, Zip:

Phone:: - - ext.

Comments:

webmaster@ramcampaign.org

<%elseif request.form("sendInfo") = "1" then 'Send email fromAddress = "ramcontactform@ramcampaign.org" strToAddress = "webmaster@ramcampaign.org" 'strToAddress = request.form("email") message = "RAM Coalition Teleconference Registration Form" & vbCRLF & vbCRLF message = message & "Name: " & request.form("firstName") & " " & request.form("lastName") & vbCRLF message = message & "Email: " & request.form("email") & vbCRLF message = message & "Title: " & request.form("title") & vbCRLF message = message & "Organization: " & request.form("organization") & vbCRLF message = message & "Title: " & request.form("title") & vbCRLF message = message & "Address: " & vbCRLF & request.form("address") & vbCRLF & request.form("city") & ", " & request.form("state") & " " & request.form("zip") & vbCRLF message = message & "Phone: " & request.form("phone1") & "-" & request.form("phone2") & "-" & request.form("phone3") & " ext. " & request.form("ext") & vbCRLF message = message & "Comments: " & vbCRLF & request.form("Comments") & vbCRLF strSubject = "RAM Coalition Teleconference Registration" on error resume next Set objMail = CreateObject("CDONTS.NewMail") errNum = err.number on error goto 0 if errNum = 0 then '------------------ 'Use for Windows Server 2000 '------------------ objMail.From = fromAddress objMail.Subject= strSubject objMail.To = strToAddress objMail.Body = message objMail.Send set objMail = nothing else '------------------ 'Use for Windows Server 2003 '------------------ 'Dimension variables Dim objCDOSYSCon 'Create the e-mail server object Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'Set and update fields properties 'Out going SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Application("MailServer") 'SMTP port objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'CDO Port objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update 'Update the CDOSYS Configuration Set objCDOSYSMail.Configuration = objCDOSYSCon 'Who the e-mail is from objCDOSYSMail.From = fromAddress 'Who the e-mail is sent to objCDOSYSMail.To = strToAddress 'The subject of the e-mail objCDOSYSMail.Subject = strSubject 'Set the e-mail body format (HTMLBody=HTML TextBody=Plain) objCDOSYSMail.TextBody = message 'Send the e-mail objCDOSYSMail.Send 'Close the server mail object Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing end if %>

Thank you. Your information has now been received. You are now registered for the Coalition Teleconference. You will be receiving further information and instructions via email prior to the event.

If you have any questions, please contact us at webmaster@ramcampaign.org

<% end if %>