<%
Set objRS = oConn.Execute(strSQL)
%>
<div align="center">
<center>
<%
while (not objRS.Eof)
Response.Write("<table><tr><td>Fecha : </td><td> " & objRS("Fecha") & "</td></tr><tr><td>Afiliacion : </td><td> " & objRS("Afiliacion") & "</td></tr><tr><td>Folio : </td><td> " & objRS("Folio") &" </td></tr><tr><td>Comercio: </td><td> " & objRS("Comercio") &" </td></tr><tr><td>Instalador :</td><td> " & objRS("Instalador") &" </td></tr></table><br>")
objRS.MoveNext
wend
%>
</center>
</div>
<%
set objrs=nothing
%>