<%
Sub SetItemList(sDaibunruiCode, sChubunruiCode)
Set MyCon = Session("xxxNDB")
Sql = "SELECT DISTINCT 属性01 FROM F_GAZOU WHERE 大分類コード='" & sDaibunruiCode & "'"
if sChubunruiCode <> "" Then
Sql = Sql + " AND 中分類コード='" & sChubunruiCode & "'"
End If
Set MyRS = MyCon.Execute(SQL)
Response.Write "" & vbcrlf
MyRS.MoveNext
Loop
MyRS.Close
End Sub
Sub SetShobunrui(sDaibunruiCode, sChubunruiCode)
Set MyCon = Session("xxxNDB")
Sql = "SELECT DISTINCT 小分類 FROM F_GAZOU WHERE 大分類コード='" & sDaibunruiCode & "'"
if sChubunruiCode <> "" Then
Sql = Sql + " AND 中分類コード='" & sChubunruiCode & "'"
End If
Sql = Sql + " ORDER BY 小分類"
Set MyRS = MyCon.Execute(SQL)
Response.Write "全て "
Do While (Not MyRS.Eof)
sShobunrui = MyRS.Fields("小分類")
If Not IsNull(sZokusei) then
Response.Write "" & sShobunrui & " " & vbcrlf
End If
MyRS.MoveNext
Loop
MyRS.Close
End Sub
%>