<% 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 + "Address :: " + adr +"
" if cty <> "" or isNull(cty) = False then msg = msg + "City :: " + cty +"
" end if if sta <> "" or isNull(sta) = False then msg = msg + "State :: " + 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 Office :: " + teo + "
" end if if tem <> "" or isNull(tem) = False then msg = msg + "Mobile :: " + tem + "
" 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 & "

" 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") = "webmail.dpsnumaligarh.in" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig 'cdoMessage.From = "webmaster@dpsnumaligarh.in" cdoMessage.From = Request.Form("email") cdoMessage.To = "info@dpsnumaligarh.in" cdoMessage.Subject = "Ask for Feedback" cdoMessage.HTMLBody = msg cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect("mesage.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
 
 
 
Copyright 2008 DPS, Numaligarh
<% end if %>