<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Abandon
MM_logoutRedirectPage = "login.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<% 'Restringe a usuario registrados el acceso a seccion 74 inforation
'if request("iddt")="59" and Request.Cookies("zhao3")("registered")= "" then response.redirect("contacto.asp?rest=59")
%><%
Dim cts__varids
cts__varids = "1"
if (request("iddt") <> "") then cts__varids = request("iddt")
%>
<%
Dim cts
Dim cts_cmd
Dim cts_numRows
Set cts_cmd = Server.CreateObject ("ADODB.Command")
cts_cmd.ActiveConnection = MM_dyn2003_STRING
cts_cmd.CommandText = "SELECT * FROM SUBNIV2 WHERE IDSUBSEC=? ORDER BY ORDEN"
cts_cmd.Prepared = true
cts_cmd.Parameters.Append cts_cmd.CreateParameter("param1", 5, 1, -1, cts__varids) ' adDouble
Set cts = cts_cmd.Execute
cts_numRows = 0
%>
<%
Dim cts2__VIS
cts2__VIS = "1"
if (request("iddt") <> "") then cts2__VIS = request("iddt")
%>
<% flt="IDSUBSEC"
eloth=" AND IDNIV2=0 "
if request("opt")<>"" then 'Cambia el Campo y el valor del segundo recordset
flt="IDNIV2"
ELOTH=""
cts2__VIS = request("opt")
end if%>
<%
Dim cts2
Dim cts2_cmd
Dim cts2_numRows
Set cts2_cmd = Server.CreateObject ("ADODB.Command")
cts2_cmd.ActiveConnection = MM_dyn2003_STRING
cts2_cmd.CommandText = "SELECT * FROM CONTENIDO WHERE "+flt+ "=? "+ eloth+ " ORDER BY ORDEN"
cts2_cmd.Prepared = true
cts2_cmd.Parameters.Append cts2_cmd.CreateParameter("param1", 5, 1, -1, cts2__VIS) ' adDouble
Set cts2 = cts2_cmd.Execute
cts2_numRows = 0
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
cts2_numRows = cts2_numRows + Repeat2__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
cts_numRows = cts_numRows + Repeat1__numRows
%>
www.iglesiaenchihuahua.org
<% if not cts.eof then ' Adv Conditional Region %> <%
While ((Repeat1__numRows <> 0) AND (NOT cts.EOF))
%>
