|
<%
'Set rsmod = Server.CreateObject("ADODB.Recordset")
set rs=openrs("SELECT ID,CategoryName FROM vw_DisplayCategories WHERE (SiteID='" & SiteID & "')")
if Not rs.eof then
rs.movefirst
while not rs.eof
CategoryName = rs("CategoryName")
strFolderName = rs("CategoryName")
Response.Write " "&strFolderName&" "&vbcrlf
strFolderName = Replace(strFolderName,"-","")
strFolderName = Replace(strFolderName,"*","")
strFolderName = Replace(strFolderName," "," ")
strFolderName = Replace(strFolderName," ","-")
strFolderName = Trim(strFolderName)
Response.Write ""&vbcrlf
'--------------------------------------------------------------------
'Response.write "SELECT Name,PageName,PriceGroupID from Items WHERE (PriceGroupID='" & rs("ID") & "')"
'Set rsmod = Server.CreateObject("ADODB.Recordset")
set rs2=openrs2("SELECT * from VW_SiteMenu WHERE (PriceGroupID='" & PriceGroupID & "')and (CatID='" & rs("ID") & "')")
if Not rs2.eof then
rs2.movefirst
while not rs2.eof
'CategoryName = rs("CategoryName")
Response.Write "- " & rs2("Name") & "
" & VbCrLf
rs2.movenext
wend
end if
rs2.close
'strCategoryNames = strCategoryNames & " " & VbCrLf
set rs2=nothing
Response.Write ""&vbcrlf
'---------------------------------------------------------------------
'strCategoryNames = strCategoryNames & "" & CategoryName & "" & VbCrLf
rs.movenext
wend
end if
rs.close
'strCategoryNames = strCategoryNames & "" & VbCrLf
set rs=nothing
%>
|