Buenos dias,
He estado intentando mil formas diferentes, despues de buscar en tutoriales, libros y de más y no he sido capaz. Tengo una pagina donde tengo un listado de todas las noticias y cuando le das a ampliar noticia, se ve la noticia ampliada con el resto de la noticia. Y yo queria que cada vez que entre alguien ha esa noticia se sume 1 a un campo numerico que tengo. Por así decirlo poner en el listado de noticias "Esta noticia se ha leido 10 veces"
Este es el codigo actual:
<%
id = 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("./asdf.mdb")
sql = "SELECT * FROM noticias WHERE id="&id&""
Rs.Open sql, oConn, 1, 1
mensaje = RS("mensaje")
%>
<p align=right><A HREF="default.asp"><B><font size=1 face=verdana> Volver </B></A></p>
<%'=== Muestro el mensaje padre. La pregunta inicial ======
Response.Write "<table width=600 cellSpacing=1 cellPadding=3><Tr><td><font size=2 face=verdana color=093D6A><b>Noticias</b></font><hr color=093D6A><br><font size=1 face=verdana color=000000>"
Response.Write "<br>Fecha: "&RS("fecha")&"<br><br><font color=093D6A size=2><b>"&RS("Titulo")&"</b><br><br></font><img src=actualidad/"&RS("imagen")&" align=left onload=""if(this.width>400){this.width=400}""><b>< font color=777777 size=2>"&RS("noticia")&"</b></font>"
Response.Write "</td></tr><tr><td><br><font style=""font-size:12"" face=verdana>"&RS("mas")&"</font><br><br><hr><b><font color=aaaaaa>"&RS("copete")&"</b><br><br>"
Response.Write "<img src=iconos/imprimir.gif border=0><a href=enviarmail4.asp target=_blank><img src=iconos/recomendar.gif border=0></a> <a href=#><img src=iconos/subir.gif border=0></a><br><br></td></TR></Table>"
Response.Write "<br><br>"
Response.Write "<table width=600 border=0 cellpadding=0 cellspacing=0><tr bgcolor=cCCCCC><td><font size=2 face=Verdana><strong> Comentarios<a name=comentarios></a> - <a href=""javascript
:PopUp('contestar.asp?id="&RS("id ")&"')""><img src=iconos/enviarcomentarios.gif border=0></a></strong></font></td></tr></table>"
'===== Fin pregunta inicial =====
Set RS2 = Server.CreateObject ("ADODB.RecordSet")
sql2 = "SELECT * FROM noticias WHERE IdCabeza="&id &" ORDER BY id"
RS2.Open sql2, oConn, 1, 1
'===== Respuestas a la pregunta inicial
Do While not RS2.EOF
mensaje2 = RS2("mensaje")
Response.Write "<table width=600><tr><td width=10> </td><td width=590><font color=666666 size=1 face=Verdana>"&RS2("nombre")&" - "&RS2("fecha")&"</font><br>"
Response.Write "<br><font size=1 face=Verdana>"& AcomodarTXT(mensaje2)&"</font></td></tr><tr><td colspan=2><hr></td></tr></table>"
RS2.MoveNext
Loop
'===== Fin de respuestas ======
RS2.Close
Set RS2 = nothing
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
Function AcomodarTXT(txt)
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>
Este es el UPDATE que quiero meter en el codigo:
UPDATE noticias SET visitas=("+1") WHERE Id="&Id&"