%@ Language=VBScript %>
<%
Set cnt = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
cnt.Open Application("Connection")
rst.Open "SELECT * FROM DocAplicacion ", cnt, 1
%>
:: Metalspray S.A.C. - "Tecnología al Servicio de la Industria" ::
|
DOCUMENTOS
DE INFORMACIÓN (PDFS )
|
|
|
<%
x=0
do until rst.eof
if x=2 then Response.Write " " & vbNewLine & "" : x=0
if IsNull(rst("DocAplicacionNombre")) then DocAplicacionNombre="" else DocAplicacionNombre=Server.HTMLEncode(rst("DocAplicacionNombre"))
%>
 |
" class="lnkcatlg" target="_blank"><%=DocAplicacionNombre%> (pdf) |
<%
x=x+1
rst.movenext
loop
if x=1 then Response.Write " | " else Response.Write ""
cnt.Close
set rst=nothing
set cnt=nothing
%>
|
|
|