<% If request("Submit") <> "" Then Dim Rs,CompId flag=0 Name=ZealRefine(request("name")) & vbCrLf DOE=Date() FAddress=ZealRefine(request("FAddress")) & vbCrLf Sex=ZealRefine(request("Sex")) & vbCrLf Mno = ZealRefine(request("Mno")) & vbCrLf Age=ZealRefine(request("Age")) & vbCrLf Emailid=ZealRefine(request("Emailid")) & vbCrLf FMessage=ZealRefine(request("FMessage")) & vbCrLf submit = ZealRefine(request("submit")) & vbCrLf If submit <> "" Then Connection cn.execute("Insert into requestmst(Name,FAddress,Sex,Age,Emailid,FMessage,DOE) values('"&Name&"','"&FAddress&"','"&Sex&"','"&Age&"','"&Emailid&"','"&FMessage&"','"&DOE&"')") tomail="herbalkangra@gmail.com" FMessage =" Name : - "& Name & " Contact no :- "& Mno & " Email Id :- "&Emailid&" Age :- "&Age&" Message :-- "&FMessage&" " Mailsend tomail,FMessage,"Request From www.kangraherb.com" confirm="mailsend successfully" Msg="Sucessfully Sent!!!!!" End If End if %>
Treatment without Surgery  for Cataract, Treatment without Surgery  for Piles, Treatment without Surgery  for Slip Disc, Treatment without Surgery  for Dentals Surgery
   
 
Herbal Natural Skin Products, Herbal Medicine Center, Herbal Natural Cure
 
  KANGRA HERB PVT.LTD.
Admn. & Marketing Office
Address : 390, Pocket C-8, Sector-8, Rohini, 
New Delhi-110085 (INDIA)
Phone - 011-27948956/57
Mob - 09268565934/35,09811315666
Email:- herbalkangra@gmail.com , khplindia@yahoo.co.in
Treatment without Surgery  for Cataract, Treatment without Surgery  for Piles, Treatment without Surgery  for Slip Disc, Treatment without Surgery  for Dentals Surgery
 
HEAD OFFICE

Address : Apna Ghar,
Village- Methi, P.O.-Gharoh
Tehsil- Dharamshala,
Distt - Kangra, HP- 176215
Phone No: 01892206208, 09418055017,
09418055029,
Name :
Sex :  Male female
Age :
Contact No. :
E-Mail ID :
Message :
   
         <%=Msg%>

  WORK
Address: V.P.O - Durgella,
Tehsil-shahpur,
Distt- Kangra, HP-176206
Phone No - 01892-206208,
Mob - 9418055016
  STOCKIST POINT
Click Here To See Our Stockist Points.
 
  WWW.kangraherb.com, Email:- khplindia@yahoo.co.in
<% Function ZealRefine(val) ZealRefine = Replace(Replace( val , ";" , " " ) ,"'" , "'" ) End Function %>