GP RESULT Details Screen

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

LATEST GP RESULT DECLARED IN TAMILNADU .

Name Of seed producer Result Declared 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 unitofficer where to='" & request.form.item("name") &"' and name='" & 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("name"),1) b=ltrim(a) set rs1 = Server.CreateObject("Adodb.recordset") sql2= "select distinct(to) from unitofficer where name='" & request.form.item("from") &"' and left(to,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 GP RESULT DECLARED IN TAMILNADU .

Name Of seed producer Result Declared ByDate" tabindex="2">

HOME PAGE

<% else %> <% end if%> <%else %>

LATEST GP RESULT DECLARED IN TAMILNADU .

Name Of seed producer" tabindex="0">Result Declared ByDate" tabindex="2">

HOME PAGE

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

The GP Results of Specified Seed Producer & Results Declared by <%=rs(0)%> To <%=request.form.Item("name")%> Dated On <%=request.form.Item("date")%>
SC.No	Crop	Variety	Genetic Purity	Remarks
<%=rs(3)%>	<%=rs(4)%>	<%=rs(5)%>	<%=rs(6)%>	<%=rs(7)%>

<%else%>

<% end if %> <% end if end if %>