by Armand Datema
Now lets make a simple bargraph with asp. We start with thebasic HTML Tags and the opening of the database and recordset. This time we dont use a DSN but the actual database itself.
Now lets make a simple bargraph with asp. We start with thebasic HTML Tags and the opening of the database and recordset. This time we dont use a DSN but the actual database itself.
curDir = Server.MapPath(
“
graph.mdb
”
)
‘
Create the Database Connection
Set con = Server.CreateObject(
“
ADODB.Connection
”
)
con.Open
“
DBQ=
”
&
curDir
&
”
;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;
”
Now lets open the recordset and run the query
set conntemp=server.createobject(“adodb.connection”)
Set rs = server.createobject(“adodb.recordset”)
rs.Open “select * from graph”, con
do While not rs.EOF %>
Now all you need to do is make te height of the image the content of the recordsource like this
height=”
One final note: make sure you set the alignment of the images to bottom. Otherwise the images will
be centered in the middle of the table, and wont allign correctly.
align=”absbottom”> |
align=”absbottom”> |
|
| 1998 | 1999 | Y2K |
And at last we close our
HTML tags and ASP code
rs.moveNext
loop
%>
This completes yer ASP page,
look below for the complete code of
imagedbase.asp
curDir =
Server.MapPath(
“
graph.mdb
”
)
‘
Create the Database
Connection
Set con =
Server.CreateObject(
“
ADODB.Connection
”
)
con.Open
“
DBQ=
”
&
curDir
&
”
;Driver={Microsoft Access Driver
(*.mdb)};DriverId=25;FIL=MS Access;
”
set
conntemp=server.createobject(
“
adodb.connection
”
)
Set rs =
server.createobject(
“
adodb.recordset
”
)
rs.Open
“
select *
from graph
”
, con
do While not rs.EOF %
>
align=”absbottom”> |
align=”absbottom”> |
align=”absbottom”> |
| 1998 | 1999 | Y2K |
rs.moveNext
loop
%>