|
|
 |
|
|
 |
<%
'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 |
| |
|
|
| |
|
|
<% 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
%>
| Yearly Seed Import
of <%=crop%> For <%=syear%> of Season <%=season%> (Figures
in metric tons) |
| Printer
Friendly Version |
<% end if %>
| Crop |
Crop Type |
Variety |
Seed Class |
Year |
Season |
Quantity |
<%
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("CropName")%> |
<%=objrsresult("CtName")%> |
<%=objrsresult("Variety")%> |
<%=objrsresult("SeedClass")%> |
<%=objrsresult("Year")%> |
<%=objrsresult("Season")%> |
<%=objrsresult("QtySeedImport")%> |
<%
objrsresult.MoveNext
Loop
objrsresult.close
set objrsresult = nothing
end if
%>
|
<%
'objrs.close
'set objrs = nothing
adocon.close
set adocon=nothing
%>
|
|
 |
|
|