dcsimg

Bargraph in ASP

By ServerWatch Staff (Send Email)
Posted Jun 10, 1999


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.

<html>
<head>
</head>
<body>
<div align="center"><%
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="<%=rs("1998")%>

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.

<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" bgcolor="#FFFFFF" valign="bottom"><img src="green.gif" width="100"
height="<%=rs("1998")%>"   align="absbottom"></td>
<td width="33%" bgcolor="#FFFFFF" valign="bottom"><img src="red.gif" width="100"
height="<%=rs("1999")%>"   align="absbottom"></td>
<td width="34%" bgcolor="#FFFFFF" valign="bottom"><img src="yellow.gif" width="100"
height="<%=rs("2000")%>"   align="absbottom"></td>
</tr>
<tr>
<td width="33%" align="center" bgcolor="#FFFFFF">1998</td>
<td width="33%" align="center" bgcolor="#FFFFFF">1999</td>
<td width="34%" align="center" bgcolor="#FFFFFF">Y2K</td>
</tr>
</table>

And at last we close our HTML tags and ASP code

</center></div><%
rs.moveNext
loop
%>
</div>
</body>
</html>

This completes yer ASP page, look below for the complete code of imagedbase.asp

<html>
<head>
</head>

<body>
<div align="center"><%
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 %>
<div align="center"><center>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="33%" bgcolor="#FFFFFF" valign="bottom"><img src="green.gif" width="100"
height="<%=rs("1998")%>" align="absbottom"></td>
<td width="33%" bgcolor="#FFFFFF" valign="bottom"><img src="red.gif" width="100"
height="<%=rs("1999")%>"   align="absbottom"></td>
<td width="34%" bgcolor="#FFFFFF" valign="bottom"><img src="yellow.gif" width="100"
height="<%=rs("2000")%>"   align="absbottom"></td>
</tr>
<tr>
<td width="33%" align="center" bgcolor="#FFFFFF">1998</td>
<td width="33%" align="center" bgcolor="#FFFFFF">1999</td>
<td width="34%" align="center" bgcolor="#FFFFFF">Y2K</td>
</tr>
</table>
</center></div><%
rs.moveNext
loop
%>
</div>
</body>
</html>

 

Download Code

Page 1 of 2


Comment and Contribute

Your name/nickname

Your email

(Maximum characters: 1200). You have characters left.


 

 


Thanks for your registration, follow us on our social networks to keep up-to-date