<% estado=request.querystring("estado") ciudad=request.querystring("localidad") %> Neuróticos Anónimos - Una Ayuda para las Personas con Disturbios Mentales y Emocionales
Neuróticos Anónimos, una ayuda para las personas con disturbios mentales y emocionales
Mensaje de Esperanza¿Qué es Neuróticos Anónimos?Programa de RecuperaciónPrincipios FundamentalesHistoria de Neuróticos AnónimosFundador - Grover B.LiteraturaTemas¿Es usted Neurótico?Eventos PróximosConctátenosEnlacesVideos

Estos son los grupos de Neuróticos Anónimos a los que puede asistir en <%if estado="D.F." then response.write " la delegación " end if %> <%=ciudad%>, <%=estado%>

 

<% Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Set Conn = Server.CreateObject("ADODB.Connection") Connx = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source="&application("ruta")&";" & _ "Persist Security Info=False" Conn.Open(Connx) sqltxt2="Select * from AUTODIAGNOSTICO where ID_Cont = 2;" set rs1=createobject("ADODB.Recordset") rs1.CursorType = adOpenKeyset rs1.LockType = adLockOptimistic rs1.open sqltxt2,conn rs1("Contador")=rs1("Contador")+1 rs1("Fecha_Modif")=now()-(1/24) rs1.update rs1.close if estado<>"D.F." then sqltxt="Select * from GRUPOS where estado = '" & estado &"' and ciudad = '" & ciudad &"' and status='ABIERTO' order by Ciudad, delegacion, nombre;" else sqltxt="Select * from GRUPOS where estado = '" & estado &"' and delegacion = '" & ciudad &"' and status='ABIERTO' order by Ciudad, delegacion, nombre;" end if set rs=createobject("ADODB.Recordset") rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.open sqltxt,conn do while not rs.eof %>
<%if rs("telefonos")<>"" then%> <%end if%> <% IF rs("SESION1") <>"" THEN %> <%END IF%> <% IF rs("SESION1") <>"" THEN %> <%END IF%> <% IF rs("SESION2") <>"" THEN %> <%END IF%> <% IF rs("SESION3") <>"" THEN %> <%END IF%>
<%response.write rs("NOMBRE")%>
<%response.write rs("DIRECCION") if rs("COLONIA")<>"" then response.write ", " response.write rs("COLONIA") end if %>
<% if rs("CALLES")<>"" then response.write rs("CALLES") end if %>
<% response.write rs("CIUDAD") response.write ", " response.write rs("ESTADO") if rs("DELEGACION")<>"" AND rs("delegacion")<> rs("ciudad") then if rs("DELEGACION")="Sector Reforma" or rs("DELEGACION")="Sector Hidalgo" or rs("DELEGACION")="Sector Libertad" or rs("DELEGACION")="Sector Juárez" then response.write " ("&rs("DELEGACION")&")" else if estado<>"D.F." then response.write " (Municipio de " else response.write " (Delegación " end if response.write rs("DELEGACION") response.write ")" end if end if %>
<%response.write "Tel.: "& rs("telefonos")%>
Sesiones:
<%response.write rs("SESION1") %>
<%response.write rs("SESION2") %>
<%response.write rs("SESION3") %>

 

<% rs.movenext loop rs.close %>


 

  Neuróticos Anónimos A.C. <%=YEAR(NOW())%> © Derechos Reservados