<%@LANGUAGE="VBSCRIPT"%> <% dim id,sql1 uid = Request.Form("user") 'response.Write(uid) if uid<>"" then pwd= Request.Form("pass") conpwd=request.Form("confirm") cat =request.Form("category") fname=request.Form("fullname") shop=request.Form("shop") add=request.Form("address") phone=request.Form("phone") emailid=request.Form("email") 'response.Write(subm) sdate=date() 'response.Write(sdate) sql="select userid from register where userid='"&uid&"'" rs.open sql,con,3,2 if not rs.eof then msg = "User Already exists Please choose a different id" else 'if rs.state = 1 then 'rs.close 'ok=true 'end if 'if ok then 'sql1="select max(profileid) from register" 'rss.open sql1,con 'if not rss.eof then ' id= rss("profileid") 'end if sql ="insert into register(userid,pass,category,fullname,organization_name,full_address,phone,emailid)values('"&trim(uid)&"','"&trim(pwd)&"','"&trim(cat)&"','"&trim(fname)&"','"&trim(shop)&"','"&trim(add)&"','"&trim(phone)&"','"&trim(emailid)&"')" con.execute sql 'rs.open sql,con,3,2 'sql1="insert into status(username)values('" &trim(uid)&" ')" 'con.execute sql1 response.Redirect "registerthanks.htm" end if end if %> Welcome to Prudential herb: a collection of medicinal plants and the constitutients.
 
 
<%=msg%>
Username ::
  
Password ::
  
Confirm Password ::
  
Category ::
  
Full Name ::
  
Name of Organization / Shop ::
  
Address ::
  
Phone ::
  
Email ID ::
  
   
     

 
   
© 2004. All rights reserved.
    This site is best viewed in 800x600 resolution with MSIE 4.0 or above. Website Design and maintained by Web Design India.