Sub ShowCategoryImage
Dim ImageFileName, description, i
Dim rs
Dim query
imagefilename=""
If highercategoryid="" then exit sub
If getconfig("xDisplayCategoryImages")="Yes" or getconfig("xdisplaycategoryfiles")="Yes" Then
    query =  "select * from categories where categoryid = " & highercategoryid
    set rs = dbc.execute(query)
    If not rs.EOF Then
	imagefilename = rs("catimage")
	description=rs("catextra")
	if isnull(imagefilename) then
	   imagefilename=""
	end if
	if isnull(description) then
	   description="" 
	end if     
    end if
'START MY CODE
if highercategoryid <> 0 then
Dim catmemo2
Dim cattitle1
catmemo2=rs("catmemo")
cattitle1=rs("catextra3")
end if
'END MY CODE
    closerecordset rs
else
   exit sub
end if   
If getconfig("xDisplayCategoryImages")="Yes" and imagefilename<>"" then
'START MY CODE
response.write "<br><table width='500' border='0' align='center' cellpadding='2' cellspacing='2'><tr><td width='3%'><div align='center'><img border=""0"" src=""" & ImageFileName & """ alt=""" & cattitle1 & """ /></div></td><td width='97%'><div class=""prodcatheader""><h1>" & cattitle1 & "</h1><p>" & catmemo2 & "</p></div></td></tr></table>"
'END  MY CODE
end if
If getconfig("xdisplaycategoryfiles")="Yes" and description <>"" then 
 dim readarray(500), readcount
 readcount=0
 ShopReadFile description,ReadArray,readcount
 if readcount=0 then exit sub
 response.write "<br />"
 for i = 0 to readcount-1
 response.write readarray(i) & vbcrlf 
 next
end if  
End Sub

Dim highercategoryid