<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim cona dim area dim detalle detalle=request("detalle") area=request("area") dim id id=request("id") dim tituloarea if area="gacetillas" then tituloarea="Qué pasa" end if if area="informes" then tituloarea="Informes especiales" end if if area="partes" then tituloarea="Partes emitidos por Legalia / Lex-Press" end if if area="opiniones" then tituloarea="Opiniones en cuestiones legislativas emitidas por legisladores" end if cona = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=190.228.29.67;port=3306;DATABASE=legalia;PWD=2397;UID=juan2397;OPTION=3;" if detalle="si" then Set info = Server.CreateObject("ADODB.Recordset") info.ActiveConnection = cona info.Source = "SELECT * FROM legalia.legalia where id='"&id&"'" info.CursorType = 0 info.CursorLocation = 2 info.LockType = 1 info.Open() info_numRows = 0 else Set info = Server.CreateObject("ADODB.Recordset") info.ActiveConnection = cona info.Source = "SELECT * FROM legalia.legalia where categoria='"&area&"' ORDER BY fecha DESC" info.CursorType = 0 info.CursorLocation = 2 info.LockType = 1 info.Open() info_numRows = 0 end if %> Gestión de psicología aplicada a necesidades institucionales
 
 
[sup.htm]

 

 

 

 

 

 

 

 

<% if session("clave")="" then %> <%if detalle="si" then%> <% if NOT info.EOF then id=info.fields.item("id").value %>

<%=(info.fields.item("titulo").value)%>  

<%=(info.fields.item("detalle").value)%>
<%=(info.fields.item("completo").value)%>( <%=(info.fields.item("fecha").value)%>)

<%end if%> <%else%> <%response.write tituloarea%>

<% for i= 1 to 100 if NOT info.EOF then id=info.fields.item("id").value %>

<%=(info.fields.item("titulo").value)%>

<%=(info.fields.item("detalle").value)%>( <%=(info.fields.item("fecha").value)%> )

<% info.movenext end if next %> <%end if%> <%else%>

<%end if%>

 

Pje. Manuel Padilla 4060 / Ciudad Autónoma de Buenos Aires / Argentina / 4556-0029 / redacción@legalia.com.ar
<% info.Close() Set info = Nothing %>