News 4   Online Seed Report <% 'Dimension variables Dim adocon 'Holds the Database Connection Object Dim objrs 'Holds the recordset for the new record to be added to the database Dim strsql 'Holds the SQL query for the database Dim action 'action for form Dim id Dim input_error 'Create an ADO connection odject Set adocon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adocon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/database/moa_web.mdb") submitted=request.form("submitted") input_error = true if submitted<>"" then crop = request.form("crop") syear = request.form("syear") season = request.form("season") if crop="" or syear="" or season="" then response.redirect "s_production_report.asp?errmsg=1" else input_error = false end if end if %> Yearly Seed Production   " method="post"> Crops Years Seasons Select Crop <% set objrs = server.createobject("ADODB.Recordset") objrs.open "SeedCrops", adocon, , , adCmdTable Do While Not objrs.EOF %> <% if objrs("CropName")= crop then Response.Write " selected" end if %>> <%=objrs("CropName")%> <% objrs.MoveNext Loop objrs.close set objrs = nothing %> Select Year <% 'set objrs = server.createobject("ADODB.Recordset") 'objrs.open "years", adocon, , , adCmdTable strsql = "SELECT SeedYears.* FROM SeedYears ORDER BY YCode ASC" set objrs = server.createobject("ADODB.Recordset") objrs.open strsql, adocon Do While Not objrs.EOF %> <% if (objrs("Year")=syear) then Response.Write " selected" end if %>> <%=objrs("Year")%> <% objrs.MoveNext Loop objrs.close set objrs = nothing %> Select Season <% 'set objrs = server.createobject("ADODB.Recordset") 'objrs.open "years", adocon, , , adCmdTable strsql = "SELECT SeedSeasons.* FROM SeedSeasons ORDER BY DSeason ASC" set objrs = server.createobject("ADODB.Recordset") objrs.open strsql, adocon Do While Not objrs.EOF %> <% if (objrs("Season")=season) then Response.Write " selected" end if %>> <%=objrs("Season")%> <% objrs.MoveNext Loop objrs.close set objrs = nothing %>   <% if input_error=false then %> <% 'Dim yearname 'set objrsresult = server.createobject("ADODB.Recordset") 'strsql = "SELECT years.* FROM years where years.id IN (" & syear & ")" 'objrsresult.open strsql, adocon 'Do While Not objrsresult.EOF ' yearname = objrsresult("fin_year") 'i2 = i2 + 1 'objrsresult.MoveNext 'Loop 'objrsresult.close 'set objrsresult = nothing %> <% end if %> <% if input_error=false then set objrsresult = server.createobject("ADODB.Recordset") 'if crop="all" then ' strsql = "SELECT s_prod_dist.id, s_prod_dist.c_type, s_prod_dist.crop, s_prod_dist.syear, s_prod_dist.variety, s_prod_dist.sclass, s_prod_dist.t_prod, s_prod_dist.t_dist, s_prod_dist.a_prod, s_prod_dist.a_dist, years.fin_year as s_year FROM years INNER JOIN s_prod_dist ON years.id = s_prod_dist.syear WHERE (((s_prod_dist.syear)=" & syear & "));" 'else ' strsql = "SELECT s_prod_dist.id, s_prod_dist.c_type, s_prod_dist.crop, s_prod_dist.syear, s_prod_dist.variety, s_prod_dist.sclass, s_prod_dist.t_prod, s_prod_dist.t_dist, s_prod_dist.a_prod, s_prod_dist.a_dist, years.fin_year as s_year FROM years INNER JOIN s_prod_dist ON years.id = s_prod_dist.syear WHERE (((s_prod_dist.crop)='" & crop & "') AND ((s_prod_dist.syear)=" & syear & "));" 'end if strsql= "SELECT SeedDistribution.CropName, SeedDistribution.CtName, SeedDistribution.Variety, SeedDistribution.SeedClass, SeedDistribution.Year, SeedDistribution.Season, SeedDistribution.QtySup" &_ " FROM SeedDistribution" &_ " WHERE (((SeedDistribution.CropName)='" & crop & "') AND ((SeedDistribution.Year)='" & syear & "') AND ((SeedDistribution.Season)='" & season & "'));" objrsresult.open strsql, adocon Do While Not objrsresult.EOF %> <% objrsresult.MoveNext Loop objrsresult.close set objrsresult = nothing end if %> Yearly Seed Production Distribution of <%=crop%> For <%=syear%> (Figures in metric tons) Printer Friendly Version Crop Crop Type Variety Seed Class Year Season Quantity Supplied <%=objrsresult("CropName")%> <%=objrsresult("CtName")%> <%=objrsresult("Variety")%> <%=objrsresult("SeedClass")%> <%=objrsresult("Year")%> <%=objrsresult("Season")%> <%=objrsresult("QtySup")%> <% 'objrs.close 'set objrs = nothing adocon.close set adocon=nothing %> Copyright © Ministry of Agriculture, Government of the People's Republic of Bangladesh Technical Assistance Provided by: Policy and Planning Support Unit, Ministry of Agriculture Developed by: Bangladesh Internet Press Ltd.