<%
dim msg
msg=""
'dim con
if(Request.Form("txtemail")<>"") then
'set con=server.createobject("ADODB.Connection")
'con.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sql@iridium;Initial Catalog=ITC_DiscussionForum;Data Source=master"
'con.CommandTimeout=0
Dim strEmail,RetVal
strEmail= Request.Form("txtemail")
dim cmdObj
Set cmdObj=Server.CreateObject("ADODB.Command")
cmdObj.ActiveConnection = con
cmdObj.CommandText = "ValidateUserDetails"
cmdObj.CommandType = &H0004
'post_a_job_online_tab details
cmdObj.Parameters.Append cmdObj.CreateParameter("@Email",200,&H0001,50,strEmail)
cmdObj.Parameters.Append cmdObj.CreateParameter("@RetVal",3,&H0002,4,RetVal)
cmdObj.Execute
RetVal = cmdObj.Parameters("@retval").value
'Response.Write(RetVal)
if RetVal =1 then
Response.Redirect("aboutus/thanks.html")
else
msg="Sorry Login Failed!"
end if
end if
%>
Product
development based on complete understanding of customer needs is a key
competency. Over the years we have successfully developed a host of new
products serving a wide spectrum of applications...more
Our
pioneering work has resulted
in new clones of eucalyptus,
subabul & casuarina. The
farm forestry program is fast
expanding and covers 35000 hectares
and 10000 farmers more
