ASP - necesito ayuda urgente(3)

frame elegidos:

<table align=center width=100%>
<tr>
<td><u>
Producto</u>
</td>
<td><u>
Precio</u>
</td>
<td><u>
Fecha</u>
</td>
</tr><%if Request.QueryString("cod")<>"" then
dim rstp
set rstp=server.CreateObject("adodb.recordset")
rstp.ActiveConnection=session("con")
rstp.CursorLocation=adUseclient
rstp.LockType =adLockoptimistic
rstp.Source="select * from productos where id="& Request.QueryString("cod")
rstp.open
Do while not rstp.EOF%>
<tr>
<td><font size=2><%=rstp.Fields(2)%></FONT>
</td>
<td><font size=2><%=rstp.Fields(4)%></FONT>
</td>
<td><font size=2><%=rstp.Fields(0)%></FONT>
</td>
<%rstp.MoveNext
loop
end if%>
</tr>
</table>