Ver:
Do While Not RS.EOF
Response.Write "<TABLE width=""415"" border=""1"" cellspacing=""0"" bordercolor=""#FFFFFF"">" & vbCrLf
Response.Write vbTab & "<tr>" & vbCrLf
Response.Write vbTab & vbTab & "<td colspan=""2"">"
If (RS("rating"))= "1" Then
Response.Write vbTab & "<img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "2" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "3" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
elseif (RS("rating"))= "4" Then
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
else
Response.Write vbTab & "<img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""><img src=""../icono/star.gif""></td></tr><tr><td><strong>"
end if
Response.Write RS.Fields("nombre").Value& "</strong></td><td><div align=""right"">"
Response.Write Day(fecha)&"/"&Month(fecha)&"/"&Year(fecha)& "</div></td></tr><tr><td colspan=""2"">"
Response.Write RS.Fields("comentario").Value& "</td></tr><tr><td colspan=""2"">"
Response.Write RS.Fields("experiencia").Value& "</td></tr><tr><td colspan=""2"">"
Response.Write RS.Fields("estado").Value& "<img src=../icono/l_h.gif width=""100%"" height=""1""></td>"
Response.Write vbTab & "</TR>" & vbCrLf
Response.Write "</TABLE><br><br>" & vbCrLf
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing