Artículo Seleccionado Papeles del Psicólogo

<% Dim Query, direcciones, cursos, connStr, id id = request.querystring("id") If id <> "" And IsNumeric(id) Then Set Connect=server.createobject("adodb.connection") 'Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("/papeles/papeles.mdb") connStr = "Provider=Microsoft.Jet.OLEDB.4.0;;Persist Security Info=False;Data Source=E:\Inetpub\Medicina\Psicologia\BaseDatos_COP\papeles\papeles.mdb" '## MS Access 2000 'Opening Connection to Database Connect.Open connStr Set cursos = Server.Createobject("ADODB.Recordset") Query = "SELECT * FROM [qry-Papeles] WHERE ((([qry-Papeles].IdPapeles)=" & id &"));" cursos.Open Query, Connect, adOpenStatic, adLockOptimistic, adCmdText ' this code detects if data is empty If cursos.eof then response.write "No hay articulos
" connect.close set connect=nothing response.end end if %> <% ' This code puts fieldnames into column headings ' Now lets grab all the records DO UNTIL cursos.eof ' put fields into variables IDPSICOTHEMA=cursos("IdPapeles") TITULO=cursos("articulo") AUTOR=cursos("autor") IDENTIFICACION=cursos("identificacion") CABECERA=cursos("cabecera") CUERPO=cursos("CUERPO") CUERPO2=cursos("cuerpo2") REFERENCIAS=cursos("REFERENCIAS") VOLUMEN= cursos("volumen") ANO=cursos("año") CORRESPONDENCIAS=cursos("correspondencias") NUMERO=cursos("numero") PAG=cursos("Pag") %> <% 'Dim registros, conexion, year, idnumero, idvolumen 'year = request.querystring("year") 'idnumero = request.querystring("numero") 'idvolumen = request.querystring("volumen") 'year=1996&volumen=1008&numero=1002 'Set Conexion=server.createobject("adodb.connection") 'Conexion.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & 'server.mappath("psicothema.mdb") 'Set registros= conexion.Execute("SELECT tblAUX-VOLUMEN.* FROM tblAUX-VOLUMEN where '(((tblAUX-VOLUMEN.IdVolumen) ="& idvolumen & " ));") 'Do while not registros.EOF 'this code detects if data is empty 'If registros.eof then ' response.write "No hay articulos
" ' conexion.close ' set conexion=nothing ' response.end ' end if %>

Infocop Revista

Consejo General de Colegios Oficiales de Psicólogos
ISSN 211-7851

<% response.write volumen %> , <%response.write numero%> , <% response.write ano%> , <%if isnull(pag) then else%> , pp. <%response.write pag%> <%end if%>
Copyright <% response.write ano%> © Infocop

<% response.write TITULO %>

<% response.write AUTOR %>

<% response.write IDENTIFICACION %>

<% if isnull(correspondencias) then %> <%else%>

<% response.write CABECERA %>

<% response.write correspondencias %>

<%end if%>

<% response.write cuerpo %>

<% response.write cuerpo2 %> <% response.write cuerpo3 %> <% response.write cuerpo4 %>

<% response.write referencias %>

<% cursos.movenext LOOP Dim QueryObjetos, Objetos Set ConnectObjetos=server.createobject("adodb.connection") 'id = request.querystring("id") 'ConnectObjetos.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("/papeles/papeles.mdb") ConnectObjetos.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=E:\Inetpub\Medicina\Psicologia\BaseDatos_COP\papeles\papeles.mdb" Set Objetos = Server.Createobject("ADODB.Recordset") QueryObjetos = "SELECT [tblPapeles-objetos].IDObjeto, [tblPapeles-objetos].IDArticulo, [tblPapeles-objetos].Objeto, [tblPapeles-objetos].Width, [tblPapeles-objetos].Height, [tblPapeles-objetos].tipo, [tblPapeles-objetos].orden FROM [tblPapeles-objetos] WHERE ((([tblPapeles-objetos].IDArticulo)= " & ID & ")) ORDER BY [tblPapeles-objetos].orden ;" Objetos.Open QueryObjetos, ConnectObjetos, adOpenStatic, adLockOptimistic, adCmdText %> <% If Objetos.eof then response.write "" connect.close set connect=nothing end if %> <% ' This code puts fieldnames into column headings response.write "" response.write "" DO UNTIL Objetos.eof ' put fields into variables IDobjeto=Objetos("idobjeto") Objeto=Objetos("objeto") extension=Objetos("tipo") width=Objetos("width") width=width + 35 height=Objetos("height") Height=height + 35 'Este código me escribe el contenido del campo objeto hasta el primer punto Dim miString Dim miArray dim comillas MiString =Objetos("objeto") MiArray = split(MiString,".") comillas=chr(34) response.write "" response.write "" Objetos.movenext LOOP %> <% ' Now close and dispose of resources 'cursos.close set cursos=nothing 'Connect.close 'set Connect=nothing ' Now close and dispose of resources Objetos.close set Objetos=nothing ConnectObjetos.close set ConnectObjetos=nothing Else If id = "" Then 'Response.Write("ID is missing from the URL") ElseIf Not IsNumeric(ID) Then 'Response.Write("ID is NOT a number") End If End If %>

" response.write "Ver "&MiArray(0)&" :
" response.write "[En esta ventana]
" response.write "[En una nueva ventana]
" response.write " "& objeto &"
" response.write "

Los editores no se hacen responsables de las opiniones vertidas en los artículos publicados.