数据库中的数字数据以图片形式显示问题
以下代码一保存为test.asp后运行。会显示一张显示88888的图片。但是我想把这个88888换成读取我数据库中的数字再显示出来，则要改代码。换成代码二。那么在代码二中的88888处应该怎么改，在数据库中表示商品数量的段是shulian，请高手指教。因论坛限制所以全部代码发不上来。

代码一
<% 
'要控制图片显示的高和框可以把以下代码保存为一个文件，如test.asp,在另一个文件可以这样调用
<img src="test.asp" width="180">
Call CreatImage("88888")
  
Public Sub CreatImage(sNum)  
  '----------禁止缓存  
  Response.Expires = 0  
  Response.AddHeader "Pragma","no-cache"  
  Response.AddHeader "cache-ctrol","no-cache"  
  Response.ContentType = "Image/BMP"  
   
  Randomize  
  Dim i, ii, iii ,rndColor,strLen,sql,rs  
…………
%>

代码二
<!-- #include file="conn.asp" -->
<% 
set rs=server.createobject("adodb.recordset")
sql="select * from cpzs where id="&request.QueryString("id")
rs.open sql,conn,3,3

Call CreatImage("88888") '把这个88888改成段shulian。应该怎么改。
  
Public Sub CreatImage(sNum)  
  '----------禁止缓存  
  Response.Expires = 0  
  Response.AddHeader "Pragma","no-cache"  
  Response.AddHeader "cache-ctrol","no-cache"  
  Response.ContentType = "Image/BMP"  
   
  Randomize  
  Dim i, ii, iii ,rndColor,strLen,sql,rs  
  Const cOdds = 5 '------------杂点出现的机率  
  Const str="0123456789-"  
  strLen = len(sNum)  
  rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))  

  Dim vColorData(1) 
………………
%>


以上完整的代码可以看下面这个网址。
http://www.zhidao123.net/HTML/CONTENT/1/HTML_104.html

------解决方案--------------------

VB code

<%
Dim id
id = CInt(request("id"))
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from cpzs where id="&id & ""
rs.Open sql, conn, 1, 1
If (rs.EOF And rs.BOF) Then
    '提示错误信息
End If
Call CreatImage(rs("shulian"))
%>