<%@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
%>
<%
Dim cts__varids
cts__varids = "0"
if (request("iddt") <> "") then cts__varids = request("iddt")
%>
<%
set cts = Server.CreateObject("ADODB.Recordset")
cts.ActiveConnection = MM_dyn2003_STRING
cts.Source = "SELECT * FROM SUBNIV2 WHERE IDSUBSEC=" + Replace(cts__varids, "'", "''") + " ORDER BY ORDEN"
cts.CursorType = 0
cts.CursorLocation = 2
cts.LockType = 3
cts.Open()
cts_numRows = 0
%>
<%
Dim cts2__VIS
cts2__VIS = "0"
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%>
<%
set cts2 = Server.CreateObject("ADODB.Recordset")
cts2.ActiveConnection = MM_dyn2003_STRING
cts2.Source = "SELECT * FROM CONTENIDO WHERE "+flt +"=" + Replace(cts2__VIS, "'", "''") + eloth +" ORDER BY ORDEN"
cts2.CursorType = 0
cts2.CursorLocation = 2
cts2.LockType = 3
cts2.Open()
cts2_numRows = 0
%>
<%
Dim img__IDDTA
img__IDDTA = "0"
If (request("IDDT") <> "") Then
img__IDDTA = request("IDDT")
End If
%>
<%
Dim img
Dim img_numRows
Set img = Server.CreateObject("ADODB.Recordset")
img.ActiveConnection = MM_dyn2003_STRING
img.Source = "SELECT INFOIMG FROM ARTICULOS WHERE IDARTICULO=" + Replace(img__IDDTA, "'", "''") + ""
img.CursorType = 0
img.CursorLocation = 2
img.LockType = 1
img.Open()
img_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
cts_numRows = cts_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
cts2_numRows = cts2_numRows + Repeat2__numRows
%>
www.aln.com.mx
