<%
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 catproyectos"
Set subcatRS = Conn.Execute( subcatSQL )
If subcatRS.BOF or subcatRS.EOF then
Set subcatRS = Nothing
Set rsCatalog = Conn.Execute("SELECT * FROM proyectos where publicar=True")
While Not rsCatalog.EOF
%> ">
&strCatalog_NAME=<% Response.Write Server.URLEncode(rsCatalog("titu"))%>">
<%= rsCatalog("catalogName") %>
<%
rsCatalog.MoveNext
Wend
rsCatalog.Close
Set rsCatalog = Nothing
else
SQL = "SELECT * FROM catproyectos,proyectos " _
& "WHERE proyectos.idcat = catproyectos.idcat" _
& " ORDER BY catproyectos.catalogName, proyectos.titulo"
Set RS = Conn.Execute( SQL )
priorCatalog = ""
Response.Write priorCatalog
'Response.Write "
"
Do Until RS.EOF
curCatalog = RS("catalogName")
catalogID = RS("catproyectos.idcat")
catalogName = RS("catalogName")
subcatalogName = RS("titulo")
subcatalogID = RS("idproyecto")
If curCatalog <> priorCatalog Then
If priorCatalog <> "" Then
Response.Write ""
End If
Response.Write "• "
' Response.Write catalogID & "&strCatalog_NAME="
' Response.Write Server.URLEncode(catalogName) & "'>"
' 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
%>
|
|
