mmmmmm, el problema que tienes sigue siendo del formato en HTML, a ver, espero esta vez ya te funcione:
Código:
<%
Dim oConn1,oRs1
Set oConn1 = Server.CreateObject("ADODB.Connection")
Set oRS1 = Server.createobject("ADODB.Recordset")
oConn1.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prueba.mdb"))
oRS1.Open "select * from columnas",oConn1,3,3
%>
<table border=1>
<tr>
<%
for i=1 to oRs1.RecordCount
%><td><%if i<10 Then response.write "0"&i Else response.write i End If%></td><%
next
%><tr><%
cnt=1
while not oRs1.EOF
if cnt = CInt(oRs1("USA")) Then
response.write "<td><a href='detalle.asp'> "& oRs1("USA") & "</a></td>"
else
response.write " <td>"& oRs1("USA") & "</td>"
end if
cnt=cnt+1
oRs1.Movenext
Wend%>
</table>