ServersBargraph in ASP

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

Get the Free Newsletter!
Subscribe to Daily Tech Insider for top news, trends & analysis
This email address is invalid.
Get the Free Newsletter!
Subscribe to Daily Tech Insider for top news, trends & analysis
This email address is invalid.

Latest Posts

Related Stories