1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| var dat_r = new Date(Request.QueryString("dat_report"));
var cSelect = Server.CreateObject("ADODB.Connection");
cSelect.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.MapPath("base rapports intranet.mdb"));
qSelect = "SELECT maTable.inventory_date, dbo_branch_inventory.branch_nbr, dbo_vendor.buyer_name, [...]
FROM dbo_vendor WHERE (((dbo_branch_inventory.inventory_date)='"+dat_r+"') AND ((dbo_vendor.vendor_nbr)=\""+Request.QueryString("vd_report")+"\") AND ((dbo_branch_inventory.CompanyCd)=\"FR\"));";
Response.Write(qSelect);
var rSelect = Server.CreateObject("ADODB.RecordSet");
rSelect = cSelect.Execute(qSelect);
while(rSelect.Eof == false) {
Response.Write("<tr>\n");
Response.Write("\t<td>"+rSelect(0).Value+"</td><td>"+rSelect(1)+"</td><td>"+rSelect(2)+"</td><td>"+rSelect(3)+"</td><td>"+rSelect(26)+"</td>\n");
Response.Write("</tr>\n");
rSelect.MoveNext();
}
cSelect.Close(); |