Tengo el siguiente codigo el cual genera una tabla es un formulario de busqueda alguien sabe como puedo dar la opcion de imprir la tabla ke aparece en la pagina desde ya gracias
case "serie"
DIM CODIGOUBICACION
CODIGOUBICACION=UCASE("UN0015")
mySQL="SELECT * FROM EQUIPOS,EQUIPOUBIC WHERE EQUIPOS.NROSERIEQ=EQUIPOUBIC.NROSERIEQ AND EQUIPOS.NROSERIEQ='"& parametrobusqueda & "' AND EQUIPOUBIC.CODUBIC='"& CODIGOUBICACION &"'"
set rstipo = conn.execute(mySQL)
dim flag
flag=0
IF(rstipo.eof)then
flag=1
Response.Write("<center><h4>")
Response.Write("No Existen Registros con ")
Response.Write("<b>")
Response.Write(parametrobusqueda)
Response.Write("</b>")
Response.Write(" como Numero De Serie")
Response.Write("</h4></center>")
end if
if(flag=0)then %>
<table align=center border=1 cellpadding=3 cellspacing=0 background="">
<tr class=tit>
<td style="FONT-SIZE: x-small" align=middle><b>Numero de Serie</b></td>
<td style="FONT-SIZE: x-small" align=middle><b>Piso</b></td>
<td style="FONT-SIZE: x-small" align=middle><b>S.O.</b></td>
<td style="FONT-SIZE: x-small" align=middle><b>Equipo</b></td>
<td style="FONT-SIZE: x-small" align=middle><b>Fec.Instalacion</b></td>
<td style="FONT-SIZE: x-small" align=middle><b>Estado</b></td>
</tr><%
do while not(rstipo.eof)
%>
<tr>
<td style=FONT-SIZE: x-small ALIGN="CENTER"><%= rstipo("NROSERIEQ")%></td>
<td style=FONT-SIZE: x-small ALIGN="CENTER"> <%= rstipo("LUGAR")%></td>
<td style=FONT-SIZE: x-small ALIGN="CENTER"> <%= rstipo("SISOPERATIVO")%></td>
<td style=FONT-SIZE: x-small ALIGN="CENTER"> <%= rstipo("TIPOEQ")%></td>
<td style=FONT-SIZE: x-small ALIGN="CENTER"> <%= rstipo("FECINST")%></td>
<td style=FONT-SIZE: x-small ALIGN="CENTER"> <%= rstipo("estado")%></td>
</tr>
<%
rstipo.movenext
loop
end if%>