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_import_report.asp?errmsg=1" else input_error = false end if end if %> Yearly Seed Import   " method="post"> Crop 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 SeedYears.* FROM SeedYears where SeedYears.Year = " & syear & ";" 'objrsresult.open strsql, adocon 'Do While Not objrsresult.EOF ' yearname = objrsresult("Year") 'i2 = i2 + 1 'objrsresult.MoveNext 'Loop 'objrsresult.close 'set objrsresult = nothing %> <% end if %> <% if input_error=false then 'strsql1 = "SELECT SeedImport.CropName, SeedImport.CtName, SeedImport.Variety, SeedImport.SeedClass, SeedImport.Year, SeedImport.Season, SeedImport.QtySeedImport" &_ ' " FROM SeedImport" &_ ' " WHERE (((SeedImport.CropName)='" & crop & "') AND ((SeedImport.Year)=" & syear & ") AND ((SeedImport.Season)='" & season & "'));" 'Response.Write strsql1 set objrsresult = server.createobject("ADODB.Recordset") 'if crop="all" then ' strsql = "SELECT s_import.id, s_import.c_type, s_import.crop, s_import.syear, s_import.variety, s_import.sclass, s_import.quantity, years.fin_year as s_year FROM years INNER JOIN s_import ON years.id = s_import.syear WHERE (((s_import.syear)=" & syear & "));" 'else ' strsql = "SELECT s_import.id, s_import.c_type, s_import.crop, s_import.syear, s_import.variety, s_import.sclass, s_import.quantity, years.fin_year as s_year FROM years INNER JOIN s_import ON years.id = s_import.syear WHERE (((s_import.crop)='" & crop & "') AND ((s_import.syear)=" & syear & "));" 'end if strsql = "SELECT SeedImport.CropName, SeedImport.CtName, SeedImport.Variety, SeedImport.SeedClass, SeedImport.Year, SeedImport.Season, SeedImport.QtySeedImport" &_ " FROM SeedImport" &_ " WHERE (((SeedImport.CropName)='" & crop & "') AND ((SeedImport.Year)='" & syear & "') AND ((SeedImport.Season)='" & season & "'));" objrsresult.open strsql, adocon Do While Not objrsresult.EOF %> <% objrsresult.MoveNext Loop objrsresult.close set objrsresult = nothing end if %> Yearly Seed Import of <%=crop%> For <%=syear%> of Season <%=season%> (Figures in metric tons) Printer Friendly Version Crop Crop Type Variety Seed Class Year Season Quantity <%=objrsresult("CropName")%> <%=objrsresult("CtName")%> <%=objrsresult("Variety")%> <%=objrsresult("SeedClass")%> <%=objrsresult("Year")%> <%=objrsresult("Season")%> <%=objrsresult("QtySeedImport")%> <% '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.