%
sCa = Request.QueryString("ca")
if sCa = "" then
sCa = "0"
end if
Call DBConnect()
'カテゴリー
sSQL = ""
sSQL = sSQL & "SELECT *"
sSQL = sSQL & " FROM カテゴリー AS ca"
sSQL = sSQL & " ORDER BY 表示順"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSQL, Conn,3,3
Dim category()
Dim catvalue()
Dim i
Dim sCaLineImg
i = 1
sCaLineImg = ""
Do Until rs.EOF
ReDim Preserve category(i)
ReDim Preserve catvalue(i)
category(i) = rs("名称")
catvalue(i) = rs("catNo")
if Nz(sCa) = Nz(catvalue(i)) then
sCaLineImg = rs("ラインイメージファイル")
end if
i = i + 1
rs.MoveNext
Loop
rs.Close
Set rs = nothing
%>