Bargraph in ASP

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.

height=””   align=”absbottom”>	height=””   align=”absbottom”>	height=””   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 %

>

height=”” align=”absbottom”>	height=””   align=”absbottom”>	height=””   align=”absbottom”>
1998	1999	Y2K

rs.moveNext
loop
%>

Download Code