News Video - National Biodiesel

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.Mappath("Web_Data/pfldata.mdb") & ";" objConn.open %> <% Dim rsEthanol, strSQLEthanol Set rsEthanol = Server.CreateObject("ADODB.Recordset") strSQLEthanol = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 2" rsEthanol.Open strSQLEthanol, objConn %> <% Dim rsRBOB, strSQLRBOB Set rsRBOB = Server.CreateObject("ADODB.Recordset") strSQLRBOB = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 15" rsRBOB.Open strSQLRBOB, objConn %> <% Dim rsHeating, strSQLHeating Set rsHeating = Server.CreateObject("ADODB.Recordset") strSQLHeating = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 28" rsHeating.Open strSQLHeating, objConn %> <% Dim rsCrude, strSQLCrude Set rsCrude = Server.CreateObject("ADODB.Recordset") strSQLCrude = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 41" rsCrude.Open strSQLCrude, objConn %> <% Dim rsNatural, strSQLNatural Set rsNatural = Server.CreateObject("ADODB.Recordset") strSQLNatural = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 54" rsNatural.Open strSQLNatural, objConn %> <% Dim rsCorn, strSQLCorn Set rsCorn = Server.CreateObject("ADODB.Recordset") strSQLCorn = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 67" rsCorn.Open strSQLCorn, objConn %> <% Dim rsWheat, strSQLWheat Set rsWheat = Server.CreateObject("ADODB.Recordset") strSQLWheat = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 80" rsWheat.Open strSQLWheat, objConn %> <% Dim rsSoybeans, strSQLSoybeans Set rsSoybeans = Server.CreateObject("ADODB.Recordset") strSQLSoybeans = "SELECT commodities.Delivery, commodities.NewSettle, commodities.Change, commodities.Date, commodities.Time FROM commodities WHERE commodities.ID = 93" rsSoybeans.Open strSQLSoybeans, objConn %> News Video - National Biodiesel

Home Page

Admin | Privacy Policy | SiteMap

<% rsEthanol.close %> <% rsRBOB.close %> <% rsHeating.close %> <% rsCrude.close %> <% rsNatural.close %> <% rsCorn.close %> <% rsWheat.close %> <% rsSoybeans.close %> <% objConn.close %> <% Set objConn = nothing %>