<%
'أوامر فتح قاعدة البيانات
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("stocks.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * from yearly where date= DATEADD(day, -1, getdate()) "
rs.Open sql,ConnectionString
do while not rs.eof
%>
DAILY REPORT
|
| |
|
|
| |
DATE |
Jeddah_load |
Med_load |
| |
<%= rs("date")%> |
<%= rs("jeddah_load")%>
|
<%= rs("Med_load")%> |
| |
|
|
|
| |
|
|
|
<%
rs.movenext
loop
%>
<%ado.close%>