Results of data in DB

Hmm this isn't the best way but should work

Create a table on your page you want to display the results and set the width to whatever you like in pixels then use the following example.

<%

Dim intresult

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open ("SELECT fldName FROM tblYOURTABLE"), Your_Conn_String

intresult = rs("fldName")

Select Case intresult

Case "1"

intresult = "10%"

Case "2"

intresult = "20%"

Case "3"

intresult = "30%"

Case "4"

intresult = "40%"

Case "5"

intresult = "50%"

Case "6"

intresult = "60%"

Case "7"

intresult = "70%"

Case "8"

intresult = "80%"

Case "9"

intresult = "90%"

Case "10"

intresult = "100%"

End Select

%>

<table border=0 width=300 height=20>

<tr><td width=<%=intresult%> bgColor="#336699"></td></tr>

</table>

<%

set rs=nothing

set Your_Conn_String=Nothing

%>

Bruce,

I stumbled across this one:
http://www.4guysfromrolla.com/webtech/042199-2.shtml

and find it to work very well. Only problem is that this uses DSN-less (ODBC) and I use DSN-less. Any idea on how to change the code? This will realy help me.

Regards,
Deon

Hi,

the connection I can do and it works. Only thing is that I don;t know what else to delete from the script.

Deon