Mensaje

<%@ Language=VBScript %> <% set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.CursorLocation = 3 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 2 registros.CursorType = 2 registros.LockType = 3 sql = "select max(veces) as mayor from ciec_foro1 where id='"&request("clave")&"'" registros.open sql,conexion,1 dim veces_var,texto_var,i,largo,caracter veces_var=registros("mayor")+1 If veces_var="" then veces_var=1 End If registros.close sql = "select * from ciec_foro1 where id='"&request("clave")&"'" registros.open sql,conexion,1 registros("veces")=veces_var registros.Update %> Mensaje

Leída:

<%=registros("veces")%> <%if registros("veces")=1 then%>vez<%else%>veces<%end if%>

Imprimir

Pregunta:

<%=registros("titulo")%>

Respuesta:

<%if registros("mensaje")<>"" then texto_var=registros("mensaje") largo=len(texto_var) for i=1 to largo caracter=mid(texto_var,i,1) Response.Write(caracter) if asc(caracter)=13 then Response.Write("
") end if next end if%>

" method="post" name="form_encuesta" id="form_encuesta">

¿Esta respuesta fue de ayuda?:
Mucho	Poco	Nada	No se