Home      About Us     History      Diocess     Vision      Strategies      Foreign Donation Received      Contact Us      Feedback     Sitemap
 
<% if Request.Form("S1")= "SUBMIT INFORMATION" then tt = Request.Form("title") fm = Request.Form("fname") mm = Request.Form("mname") lm = Request.Form("lname") adr = Request.Form("address") cty = Request.Form("street") sta = Request.Form("state") cnt = Request.Form("country") teo = Request.Form("tel_o") tem = Request.Form("tel_m") eml = Request.Form("email") txt = Request.Form("service") msg = "" msg = msg + tt + " " + fm + " " + mm +" " + lm + "
" msg = msg + adr +"
" if cty <> "" or isNull(cty) = False then msg = msg + cty +", " end if if sta <> "" or isNull(sta) = False then msg = msg + sta + "
" end if if cnt <> "" or isNull(cnt) = False then msg = msg + cnt +"
" end if if teo <> "" or isNull(teo) = False then msg = msg + "Phone :: " + teo + ", " end if if tem <> "" or isNull(tem) = False then msg = msg + tem + "(M)
" else if teo <> "" or isNull(teo) = False then msg = msg & "
" end if end if if eml <> "" or isNull(eml) = False then msg = msg + "E-mail :: " + "" & eml & "
" end if msg = msg & "

" msg = msg & "Has written the following feedback below:
" msg = msg & "

" msg = msg & txt & "
" msg = msg & "

" 'msg = msg + "Title = " & tt 'msg = msg + "
First Name = " & fm 'msg = msg + "
Middle Name = " & mm 'msg = msg + "
Last Name = " & lm 'msg = msg + "
Address = " & adr 'msg = msg + "
City = " & str 'msg = msg + "
State = " & sta 'msg = msg + "
Country = " & cnt 'msg = msg + "
Telephone(O/R) = " & teo 'msg = msg + "
Mobile = " & tem 'msg = msg + "
Email = " & eml 'msg = msg + "
Comments/Suggestions = " & txt 'msg = msg + "" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 'cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.Fields.Item(sch & "smtpserver") = "mail.neryc.in" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig 'cdoMessage.From = "webmaster@neryc.in" cdoMessage.From = Request.Form("email") cdoMessage.To = "director@neryc.in" cdoMessage.Subject = "Ask for Feedback" cdoMessage.HTMLBody = msg cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect("message.asp") Response.Write("

We have recieved your information.") Response.Write("
We would try to contact you as soon as possible.
") else %>
 
  Title                     *First Name                                      Middle Name             *Last Name
 
   
   *Address                                 
     
 
  City                                                       *State
 
 
  Country
 
  Telephone(O/R)                                     Mobile                      
 
 
 
  *Email 
 
   Comments/Suggestions
 
 
  
 
Fields with * are mandatory

 

<% end if %>