<% IdMensaje = Trim(Request.QueryString("Id")) set oConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("libro.mdb") SQL = "SELECT * FROM Mensajes WHERE Id =" & IdMensaje & "" rs.Open SQL, oConn, 1, 2 rs("Leido")=rs("Leido")+1 rs.update %>

LECTURA DEL MENSAJE
PERFIL DEL MENSAJE	<%=Rs("Titulo")%>	<%=Rs("Nombre")%>	<%=Rs("Fecha")%>	">	">
Leído: <%= rs("Leido")%>  veces Respuestas: <%= rs("Respuestas")%> Valorado: <%= rs("Npunt")%> veces Puntos recibidos: <%= rs("Punt")%>
	<%=Rs("Msj")%>
Valoración media: <% dim i i=rs("Apunt") if i>0 and i<=1 then %> <% response.write " " & ("Falto de interés") end if if i>1 and i<=2 then %> <% response.write " " & ("Poco interesante") end if if i>2 and i<=3 then %> <% response.write " " & ("Interesante") end if if i>3 and i<=4 then %> <% response.write " " & ("Muy interesante") end if if i>4 and i<=5 then %> <% response.write " " & ("Excelente") end if %>	Valorar este mensaje: Selecciona item --> Falto de interés Poco interesante Interesante Muy interesante Excelente ">

" & ("No existen respuestas para este mensaje.") & "" end if while not Rs.EOF %>

PERFIL DE LA RESPUESTA	<%=Rs("Titulo")%>	<%=Rs("Nombre")%>	<%=Rs("Fecha")%>	">
Valorada: <%= rs("Npunt")%>  veces Puntos recibidos: <%= rs("Punt")%>
	<%=Rs("Msj")%>
Valoración media: <% dim j j=rs("Apunt") if j>0 and j<=1 then %> <% response.write " " & ("Falto de interés") end if if j>1 and j<=2 then %> <% response.write " " & ("Poco interesante") end if if j>2 and j<=3 then %> <% response.write " " & ("Interesante") end if if j>3 and j<=4 then %> <% response.write " " & ("Muy interesante") end if if j>4 and j<=5 then %> <% response.write " " & ("Excelente") end if %>	Valorar esta respuesta: Selecciona item --> Falto de interés Poco interesante Interesante Muy interesante Excelente ">

       
<% rs.movenext wend rs.Close set rs = nothing oConn.Close set oConn = nothing %>

Volver