<%
sub CargaTemas()
on error resume next
set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "jrsubastas.com.jrweb", "qo673", "jrsubastas"
set rs = cnx.execute("select * from TEMAS")
if err.number<>0 then
response.write err.description
response.end
end if
while not rs.eof
response.write ""
rs.movenext
wend
end sub
%>
JR Subastas