<%@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 ("mchar.mdb"),"","" If (request.form.Item("cropname"))="" or (request.form.Item("varietyname"))="" then %> Character Details Screen

    Character Detail For Specified Crop Variety         

Type Crop Name  Variety Name        Home Page

                                        

<%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 mchar where crop='" & request.form.Item("cropname") & "' and variety= '" & 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 mchar where crop='" & request.form.Item("cropname") & "' and left(variety,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 ...")%>

 Character Detail For Specified Crop 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 ">          

                                        

<% If rs(3)=0 Then %>
     THE CHARACTER DETAILS FOR SPECIFIED CROP  <%=rs(0)%>   AND VARIETY   <%=rs(1)%>         
Other Name of Variety Parent Variety Character
<%=rs(2)%> <%=rs(4)%> <%=rs(5)%>
<%else%>
     THE CHARACTER DETAILS FOR SPECIFIED CROP  <%=rs(0)%>    AND VARIETY   <%=rs(1)%>         
Other Name Of Variety Parent Hybrid Character Female Male
<%=rs(2)%> <%=rs(4)%> <%=rs(5)%> <%=rs(6)%> <%=rs(7)%>
<% end if %> <% end if end if %>