<% person = Request.Form("person") folio = Request.Form("coname") nush = Request.Form("desig") email = Request.Form("email") cont = Request.Form("phone") sql = "Insert into ur_enquiry (person,coname,desig,email,phone, enterdate) values ('"&nash&"','"&coname&"','"&desig&"','"&email&"','"&phone&"', getdate())" 'response.Write sql con.execute sql email = Request.Form("email") sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "216.185.52.60" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = email cdoMessage.To = "dtp@ajconit.com" cdoMessage.Subject = "Enquiry from Website" 'cdoMessage.HtmlBody = "User Name:"+username+"
Password:"+password+"
Company Name:"+coname+"
Company ID:"+cid+"
Authorised Person:"+aperson+"
Designation:"+desig+"
Address:"+address+"
City:"+city+"
State:"+state+"
Pin Code:"+pin+"
Phone(off.):"+phone+"
Phone(res.):"+rphone+"
folio:"+folio+"
Email:"+email+"
Fax:"+fax+"

Gender:"+sex+"

Pride Travels Team" cdoMessage.HtmlBody = ">
Enquiry From Website
 Name of shareholder " + Request.Form("person") + "
 Folio Number " + Request.Form("coname") + "
" + Request.Form("desig") + "
" + Request.Form("email") + "
 Contact Number " + Request.Form("phone") + "
" cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.redirect("thankyou.asp") function encode(sText) sText = Replace(sText,"'", "''") encode = sText end function %>