% 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 %>
|
||||||||||||||||||||||||
|
||||||||||||||||||||||||
| WWW.kangraherb.com, Email:- khplindia@yahoo.co.in | ||||||||||||||||||||||||