<% if request("submit") = "submit" then title = request("seltitle") fname = request("fname") sname = request("sname") profession = request("profession") add1 = request("address") fline = request("fline") 'sline = request("sline") lstate = request("state") country = request("country") zip = request("postcode") phone = request("phone") mobile = request("mobile") email = request("mail") agree = request("agree") m = month(now()) dd = day(now()) yy =year(now()) regDt = dd&"-"&m&"-"&yy if agree = "" then agree = "False" else agree = "True" end if set objrs = Server.CreateObject("ADODB.Recordset") objrs.open "Select * from register1 where email='"&email&"' ",connobj,2,3,1 if objrs.eof then objrs.addnew objrs("title") = title objrs("fname") = fname objrs("sname") = sname objrs("profession") = profession objrs("address") = add1 objrs("fline") = fline 'objrs("sline") = sline objrs("country") = country objrs("zip") = zip objrs("phone") = phone objrs("mobile") = mobile objrs("email") = email objrs("agree1") = agree objrs("regDt") = regDt objrs.update msg = "Entries successfully submited" 'Const strTo = "sundarkmn@yahoo.com" Const strTo = "info@suryafoundation.org.uk" Const strSubject = "Registration" Dim strBody strBody = strHeader & vbCrLf & vbCrLf strBody = strBody & vbCrLf & "Title : " & Request.form("seltitle")& vbCrLf & "Name : " & Request.form("fname")& vbCrLf & "Surname : " & Request.form("sname")& vbCrLf & "Address : " & Request.form("address") & vbCrLf & "Address2 : "& Request.form("fline")& vbCrLf & "County : " & Request.form("country")& vbCrLf & "Zip : " & Request.form("postcode")& vbCrLf & "Phone : " & Request.form("phone")& vbCrLf & "Mobile : " & Request.form("mobile")& vbCrLf & "Email : " & Request.form("mail")& vbCrLf & "Email request : " & Request.form("agree")& vbCrLf & "Date of Registration : " & regDt 'response.Write(strBody) '***Begin Send mail to customer*** 'Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objCDO.Configuration = objConfig objCDO.To = strTo objCDO.From = Request.form("mail") objCDO.Subject = strSubject objCDO.TextBody = strBody objCDO.Send Set objCDO = Nothing ' Mail to the Customer........... strBody = strHeader & vbCrLf & vbCrLf strBody = strBody & vbCrLf & "Dear" & vbCrLf & Request.form("fname") & ","& vbCrLf strBody = strBody & "Thank you for registering with Surya Foundation. We are pleased to welcome you and look forward to keeping you informed on our plans, events and achievements." & vbCrLf strBody = strBody & "If you need any specific support, please email us at info@suryafoundation.org.uk. Thank you for your interest." & vbCrLf & vbCrLf strBody = strBody & "Best regards" & vbCrLf & "Surya Foundation Team" & vbCrLf & "www.suryafoundation.org.uk" Set objMail = Server.CreateObject("CDO.Message") Set objConfig= Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objMail.Configuration = objConfig objMail.To = Request.form("mail") objMail.From = "info@suryafoundation.org.uk" objMail.Subject = " Thanks for Register with us" objMail.TextBody = strBody objMail.Send Set objMail = Nothing OutputString = OutputString & "

  

Thank you " & Request.form("fname") & " for your inquiry.

" & VbCrLf else msg = "User already exist" end if objrs.close response.redirect "register.asp?fname="&fname&"&msg="&msg end if %>
Home | Useful Links | Sitemap
Registration Form
 
<%if request("msg") = "" then%> <%else%> <%end if%>
 
Register with Surya Foundation
Receive automatic updates on our events and projects by email.
 
Title :
* First Name :
* Surname :
Profession :
* Address 1 :
* Address 2 :
* County :
* Postcode :
Telephone :
Mobile :
* Email :
: I agree to receive emails from Surya Foundation
You may unsubscribe from above service at any time.
* These fields must be completed
 
       
       
Data Protection Act : Surya Foundation will only use your details for the purposes of informing you about Surya Foundation activities. We will not provide your information to any third parties without your permission.
 

<% fname = request.QueryString("fname") %> Dear <%= fname %>,

Thank you for registering with Surya Foundation. We are pleased to welcome you and look forward to keeping you informed on our plans, events and achievements.

If you need any specific support, please email us at info@suryafoundation.org.uk.

Thank you for your interest.

Best regards
Surya Foundation Team
www.suryafoundation.org.uk
  		 
Upcoming Events!
The Butterfly Ball, Syon House on 24 June 2006, 7.30pm to 1.00am  
Learn more
 
 
Register Today!
Be the first to know about events and project updates.
 
     
  If you believe you are creating or leading a project which supports Surya Foundation’s objectives, you may be able to gain funding from us. Simply complete the Project Funding Application Form and email it to
info@suryafound
ation.co.uk		  
 
 
 
 
 
     

©2006 Surya Foundation. All rights reserved  
  About Us | Current Projects | Make a Difference | Upcoming Events | Useful Links | Contact Us  |  Sitemap