<%@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 ("producer.mdb"),"","" If (request.form.Item("name"))="" or (request.form.Item("from"))="" or request.form.item("date")="" then %> Character Details Screen

LATEST SEED TESTING RESULT DECLARED IN TAMILNADU .

Name Of seed producer Results ByDate

                                            HOME PAGE

<%response.write("Please type the name of the producer,Result declaring unit office and Date in the Box Provided Above Thank you ...")%>
<% else set rs = Server.CreateObject("Adodb.recordset") sql= "select * from producer where name='" & request.form.item("name") &"' and from='" & request.form.item("from") & "' and date=#" & request.form.item("date") & "#" rs.Open sql,conn1,2,2 if rs.bof=true then a=Left(Request.Form("from"),1) b=ltrim(a) set rs1 = Server.CreateObject("Adodb.recordset") sql2= "select distinct(name) from producer where from='" & request.form.item("from") &"' and left(name,1) = left('" & Request.Form.item("name") & "',1) and date=#" & request.form.item("date") & "#" rs1.Open sql2,conn1,2,2 if rs1.bof=true then %> <%response.write("Name,Date and From Name In the Box Provided Above Doesn't Exist ...")%>
    LATEST SEED TESTING RESULT DECLARED IN TAMILNADU .    

 Name Of seed producer Result  ByDate">

                                             HOME PAGE

<% else %>

  Result Declared By >  

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

                    LATEST SEED TESTING RESULT DECLARED IN TAMILNADU .

Name Of seed producer">Result Declared ByDate">    

                                          HOME PAGE

<% If rs(0)<>"" Then %> <% rs.MoveFirst do until rs.eof %> <% rs.movenext loop %>

 The Analytical Results of Specified  Seed Producer  &  Results  Declared by   <%=rs(11)%>         

SC.No Crop Variety Ger H.S. P.P Mois. ODV Remarks
<%=rs(2)%> <%=rs(3)%> <%=rs(4)%> <%=rs(5)%> <%=rs(9)%> <%=rs(6)%> <%=rs(7)%> <%=rs(8)%> <%=rs(10)%>
<%else%>
<% end if %> <% end if end if %>