% response.redirect "http://www.worldcongress.pl/form.php" %> <% dim formPosted formPosted = request("posted") if formPosted then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = "larry@profam.org" objCDO.cc = "carol@profam.org" objCDO.bcc = "cal@profam.org" objCDO.From = "secretariat@worldcongress.org" 'request("EmailAddress") objCDO.Subject = "WCF IV Registration" Dim msg SendUpdates = Request.form("updates") if sendupdates="" then sendupdates="NO" scholarship = Request.form("scholarship") if scholarship="" then scholarship="NO" sponsorevent = Request.form("SponsorEvent") if sponsorevent ="" then sponsorevent ="NO" msg = msg & chr(13) & "WCF IV Registration / Information Request Form Results:" msg = msg & chr(13) & "" msg = msg & chr(13) & "First Name-------------------------------------------" & Request.form("firstname") msg = msg & chr(13) & "Last Name--------------------------------------------" & Request.form("lastname") msg = msg & chr(13) & "Organization-----------------------------------------" & Request.form("organization") msg = msg & chr(13) & "E-Mail Address---------------------------------------" & Request.form("email") msg = msg & chr(13) & "Phone------------------------------------------------" & Request.form("phone") msg = msg & chr(13) & "Address----------------------------------------------" & Request.form("StreetAddress") msg = msg & chr(13) & "City-------------------------------------------------" & Request.form("city") msg = msg & chr(13) & "State------------------------------------------------" & Request.form("state") msg = msg & chr(13) & "Zip Code---------------------------------------------" & Request.form("zip") msg = msg & chr(13) & "Country----------------------------------------------" & Request.form("country") msg = msg & chr(13) & "Preferred Language-----------------------------------" & Request.form("language") msg = msg & chr(13) & "Send Me WCF IV E-Updates-----------------------------" & sendupdates msg = msg & chr(13) & "Send me info on Young Leaders Scholarship Program----" & scholarship msg = msg & chr(13) & "I am interested in exhibiting/sponsoring an event----" & sponsorevent objCDO.Body = msg objCDO.Send Set objCDO = Nothing '''''''Subscribe to Lyris'''''' ' ' if SendUpdates = "YES" then ' Dim objCDO3 ' msg="" ' ' Set objCDO3 = Server.CreateObject("CDONTS.NewMail") ' objCDO3.To = "join-wcfupdate@lyris.dundee.net,cal@profam.org" ' objCDO3.From = Request.form("firstname") & " " & Request.form("lastname") & " <" & Request.form("email") &">" ' objCDO3.bodyformat = 1 '0 = html, 1 = text ' objCDO3.mailformat = 0 '0 = mime, 1 = text ' objCDO3.Send ' Set objCDO3 = Nothing ' end if ' '''''''''''''''''''''''' end if %>
|
||||||||||||||||||||||||