<%@Language="VBScript"%> <%Response.Buffer=True%> Untitled Document

 Home

                Field Standard     Seed Standard
<% Dim strsql Dim strsql2 Dim strsql3 Dim strsql4 set conn1 = Server.CreateObject("Adodb.connection") conn1.Open "Provider=microsoft.jet.oledb.4.0; Data Source="&server.MapPath ("standard.mdb"),"","" If (request.form.Item("stan"))="Fstan" then set rs = Server.CreateObject("Adodb.recordset") strsql="select * from standard where crop='" & request.form.Item("cropname") & "'" rs.Open strsql,conn1,2,2 %> <% If Not rs.BOF Then %> <% do While rs.EOF=false %> <% rs.MoveNext %> <%loop end if %>
        Field Standard For Crop Name        <%=request.form.Item("cropname")%>
Isolation Distance1 (in mts.) Isolation Distance2 Isolation Distance3 Isolation Distance4 Isolation Distance5 Isolation Distance6
OFT Types%
Pollen Sheder
Objectionable Weed Plants
Designated Disease%
Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert.
 <%=rs.fields("isof")%>  <%=rs.fields("isoc")%>  <%=rs.fields("isof2")%>  <%=rs.fields("isoc2")%>  <%=rs.fields("isof3")%>  <%=rs.fields("isoc3")%>  <%=rs.fields("isof4")%>  <%=rs.fields("isoc4")%>  <%=rs.fields("isof5")%>  <%=rs.fields("isoc5")%>  <%=rs.fields("isof6")%>  <%=rs.fields("isoc6")%>  <%=rs.fields("oftf")%>  <%=rs.fields("oftc")%>  <%=rs.fields("psf")%>  <%=rs.fields("psc")%>  <%=rs.fields("owpf")%>  <%=rs.fields("owpc")%>  <%=rs.fields("ddf")%>  <%=rs.fields("ddc")%>
<% end if %> <% If (request.form.Item("stan"))= "Sstan" then set conn1 = Server.CreateObject("Adodb.connection") conn1.Open "Provider=microsoft.jet.oledb.4.0; Data Source="&server.MapPath ("seedstandard.mdb"),"","" set rsseed=Server.CreateObject("ADODB.Recordset") strsql2 = "select * from seedstandard where crop='" & request.form.Item("cropname") & "'" rsseed.open strsql2,conn1,2,2 %> <% If Not rsseed.BOF Then %>
<% do While rsseed.EOF=false %> <% rsseed.MoveNext %> <% loop end if %>
        Seed Standard For Crop Name     <%=request.form.Item("cropname")%>
Germination
Phy. Purity
Moisturiser
O.D.V
Designated Disease%
Found Cert. Found Cert. Found Cert. Found Cert. Found Cert.
 <%=rsseed.Fields("gerf")%>  <%=rsseed.Fields("gerc")%>  <%=rsseed.Fields("ppurityf")%>  <%=rsseed.Fields("ppurityc")%>  <%=rsseed.Fields("Moisf")%>  <%=rsseed.Fields("Moisc")%>  <%=rsseed.Fields("odvf")%>  <%=rsseed.Fields("odvc")%>  <%=rsseed.Fields("ddf")%>  <%=rsseed.Fields("ddc")%>
<% end if %> <% If (((request.form.Item("stan"))="Fstan") AND ((request.form.Item("cropname"))="all")) then set rsall = Server.CreateObject("Adodb.recordset") strsql3="select * from standard order by(crop)" rsall.Open strsql3,conn1,2,2 %> <% If Not rsall.BOF Then %>
<% do While rsall.EOF=false %> <% rsall.MoveNext %> <% loop end if %>
                                         Field Standard For All Crops 
Crops Isolation Distance1 (in mts.) Isolation Distance2 (in mts.) Isolation Distance3 (in mts.) Isolation Distance4 (in mts.) Isolation Distance5 (in mts.) Isolation Distance6 (in mts.)
OFT Types%
Pollen Sheder
Objectionable Weed Plants
Designated Disease%
Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert. Found Cert.
 <%=rsall.Fields("crop")%>  <%=rsall.fields("isof")%>  <%=rsall.fields("isoc")%>  <%=rsall.fields("isof2")%>  <%=rsall.fields("isoc2")%>  <%=rsall.fields("isof3")%>  <%=rsall.fields("isoc3")%>  <%=rsall.fields("isof4")%>  <%=rsall.fields("isoc4")%>  <%=rsall.fields("isof5")%>  <%=rsall.fields("isoc5")%>  <%=rsall.fields("isof6")%>  <%=rsall.fields("isoc6")%>  <%=rsall.Fields("oftf")%>  <%=rsall.Fields("oftc")%>  <%=rsall.Fields("psf")%>  <%=rsall.Fields("psc")%>  <%=rsall.Fields("owpf")%>  <%=rsall.Fields("owpc")%>  <%=rsall.Fields("ddf")%>  <%=rsall.Fields("ddc")%>
<% end if %> <% If (((request.form.Item("stan"))="Sstan") AND ((request.form.Item("cropname"))="all")) then set rsseedall = Server.CreateObject("Adodb.recordset") strsql4="select * from seedstandard order by(crop)" rsseedall.Open strsql4,conn1,2,2 %> <% If Not rsseedall.BOF Then %>
<% do While rsseedall.EOF=false %> <% rsseedall.MoveNext %> <%loop end if %>
                                      Seed Standard For All Crop 
Crops
Germination
Phy. Purity
Moisturiser
O.D.V
Designated Disease%
Found Cert. Found Cert. Found Cert. Found Cert. Found Cert.
 <%=rsseedall.Fields("crop")%>  <%=rsseedall.Fields("gerf")%>  <%=rsseedall.Fields("gerc")%>  <%=rsseedall.Fields("ppurityf")%>  <%=rsseedall.Fields("ppurityc")%>  <%=rsseedall.Fields("Moisf")%>  <%=rsseedall.Fields("Moisc")%>  <%=rsseedall.Fields("odvf")%>  <%=rsseedall.Fields("odvc")%>  <%=rsseedall.Fields("ddf")%>  <%=rsseedall.Fields("ddc")%>
<% end if %>