<%@ Language=VBScript %> <%Response.Buffer=true%> <% dim cn,rs,admin dim rs1 set con=server.CreateObject("adodb.connection") set rs=Server.CreateObject("Adodb.recordset") con.Open "Provider=microsoft.jet.oledb.4.0;Persist Security Info=false; Data Source ="&SERVER.MapPath("selling.mdb") con.CursorLocation=3 %> Seed Purchase Screen
                      Welcome  To Purchase Screen Page Main Page  
<% if request.form.item("cropname")="" then else rs.Open "select company.*,selling.price from selling,company where selling.companyname=company.companyname and selling.crop='" & request.form.item("cropname") &"' and selling.variety='" & request.form.item("variety") & "' and selling.class='" & request.form.item("class") & "'",con,2,3 if rs.recordcount=0 then %> <%=" Sorry There Is No Company For Specified Crop or Variety" %> <% else %>
                                Purchase of Crop

Crop Name                   

 Variety Name   Class Of Seed

<% do while rs.eof=false %> <%rs.movenext loop %>
<%="The List Of Company For Specified Crop,Variety is Given" %>  
Company Name Address Address City State Country Pincode Email-id PhoneNo Fax Price
<% end if %>
<% end if %>