<%@Language="VBScript"%> <%Response.Buffer=True%> <% Dim sql Dim sql2 set conn1 = Server.CreateObject("Adodb.connection") conn1.Open "Provider=microsoft.jet.oledb.4.0; Data Source="&server.MapPath ("seed.mdb"),"","" If (request.form.Item("cropname"))="" or (request.form.Item("varietyname"))="" then %> Untitled Document

      FIND NOTIFIED VARIETY              

Type Crop Name  Variety Name      

                                        

<%response.write("Please Type In Crop Name and Variety Name In the Box Provided Above Thank you ...")%>
<% else set rs = Server.CreateObject("Adodb.recordset") sql="select * from seed where crop='" & request.form.Item("cropname") & "' and varietyname= '" & request.form.item("varietyname") &"'" rs.Open sql,conn1,2,2 if rs.bof=true then a=Left(Request.Form("varietyname"),1) b=ltrim(a) set rs1 = Server.CreateObject("Adodb.recordset") sql2="select * from seed where crop='" & request.form.Item("cropname") & "' and left(varietyname,1) = left('" & Request.Form("varietyname") & "',1) " rs1.Open sql2,conn1,2,2 if rs1.bof=true then %> <%response.write("Crop Name and Variety Name In the Box Provided Above Doesn't Exist ...")%>

     FIND NOTIFIED VARIETY            

  Type Crop Name   Variety Name           

                                       

<% else %>

             Crop Name >  

 Variety Name Specified      > Doesn't Exist  Select The Variety In the List And Click The Variety  Details
  Similar Variety Name    
<% end if%> <%else %>

                    The Crop And Variety Name You  Specified Is Present Try Another Search   

              Crop Name ">  Variety Name ">          

                                        

     THE DETAILS OF SPECIFIED VARIETY                        Back To Main Page
Crop Name Variety Name Other Name Of The Variety   if Any Notification Order No
<%=rs(0)%> <%=rs(1)%> <%=rs(2)%> <%=rs(3)%>
<% end if end if %>