<%
Dim Conn, subcatRS, RS, rsCatalog, subcatSQL, SQL, priorCatalog, curCatalog, catalogID, catalogName, subcatalogName, subcatalogID, imgcat, img1
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
subcatSQL = "SELECT * FROM subCatalogs"
Set subcatRS = Conn.Execute( subcatSQL )
If subcatRS.BOF or subcatRS.EOF then
Set subcatRS = Nothing
Set rsCatalog = Conn.Execute("SELECT * FROM catalogs where site=<2")
While Not rsCatalog.EOF
%> ">
&strCatalog_NAME=<% Response.Write Server.URLEncode(rsCatalog("catalogName"))%>">
<%= rsCatalog("catalogName") %>
<%
rsCatalog.MoveNext
Wend
rsCatalog.Close
Set rsCatalog = Nothing
else
SQL = "SELECT * FROM catalogs,subcatalogs " _
& "WHERE subcatalogs.catalogID = catalogs.catalogID" _
& " ORDER BY catalogs.catalogName, subcatalogs.subcatalogName"
Set RS = Conn.Execute( SQL )
priorCatalog = ""
Response.Write priorCatalog
'Response.Write "
"
Do Until RS.EOF
curCatalog = RS("catalogName")
catalogID = RS("catalogs.catalogID")
catalogName = RS("catalogName")
subcatalogName = RS("subcatalogName")
subcatalogID = RS("subcatalogID")
imgcat = RS("imgcat")
img1 = RS("img1")
If curCatalog <> priorCatalog Then
If priorCatalog <> "" Then
Response.Write ""
End If
Response.Write "▫ "
' Response.Write " & )
"
priorCatalog = curCatalog
End If
'CODE CHANGE 2/24/02
Response.Write " ▪ "
' Response.Write " & ) "
Response.Write "
"
RS.MoveNext
'END CODE CHANGE
Loop
'Response.Write "
" ' clean up the tags!
RS.Close
Set RS = Nothing
End If
%>
|
|
 |
|
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
subcatSQL = "SELECT * FROM news where public=1 order by fecha Desc"
Set rsCatalog = Conn.Execute( subcatSQL )
While Not rsCatalog.EOF
%>
<%
rsCatalog.MoveNext
Wend
rsCatalog.Close
Set rsCatalog = Nothing
%>
|
|
