, en el foro de mi pagina y estoy empezando en esto del asp , me han dicho que se hace con una rutina como esta de javascrip <%
texto = Replace(texto, "jaja","<IMG SRC=archivo.gif")
%
o en asp
<%
'...
Mensaje = Rs("MENSAJE")
Mensaje = Replace(Mensaje, "
", "<img src='carita.gif'>")'...
Response.Write Mensaje
'...
%>
pero por mas que lo intento , nada de nada
me podeis decir como tengo que ponerla en asp siguiente del mi index.asp
gracias y un saludo
<B>Foro Solo ASP</B><BR><BR>
<TABLE WIDTH="100%" ALIGN="center" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD><A HREF="pregunta.asp"><B>Envia tu pregunta al foro</B></A></TD>
</TR>
</TABLE>
<BR>
<%
Dim oConn, RS, mostrar, pag_totales, pag_actual
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")
sql = "SELECT * FROM discusion WHERE IdCabeza=0 ORDER BY Fecha DESC"
RS.Open sql, oConn,3,1
mostrar = 10
rs.PageSize = mostrar
rs.CacheSize = mostrar
if Request.Querystring("pagina")="&quo t; then
pag_actual=1
else
pag_actual=CInt(Request.Querystring("pagina&q uot;))
end if
pag_totales = rs.PageCount
if pag_actual < 1 then
pag_actual = 1
end if
if pag_actual > pag_totales then
pag_actual = pag_totales
end if
if pag_totales=0 then
Response.Write("No hay mensajes en el foro.")
else
rs.AbsolutePage = pag_actual
Response.Write "<TABLE ALIGN=center WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0><TR><TD>"
Response.Write("<B>Página " & Pag_actual & " de " & pag_totales &"</B><BR><BR>")
cant_registros = 0
Response.Write "</TD><TD ALIGN=right VALIGN=top>"
if pag_actual > 1 then
Response.Write("<A HREF=foro.asp?pagina="& pag_actual-1& "><B>Mensajes anteriores<B></A>&nbsp;&nbsp;&nbsp;&nbsp;" ;)
end if
if pag_actual < pag_totales then
Response.Write("<A HREF=foro.asp?pagina=" & pag_actual+1 &"><B>Mensajes más viejos<B></A><BR><BR>")
end if%>
</TD></TR></TABLE>
<TABLE WIDTH="100%" ALIGN="center" BORDER="1" BORDERCOLOR="#473C59" CELLPADDING="0" CELLSPACING="0">
<TR BGCOLOR="#ffffcc">
<TD WIDTH="90%" ALIGN="center"><B>Título del Mensaje</B></TD>
<TD WIDTH="10%" ALIGN="center"><B>Respuestas< ;/B></TD>
<TD ALIGN="center"><B>Fecha</B></TD>
</TR>
<%do while not rs.EOF and cant_registros < mostrar
fecha = RS("Fecha")%>
<TR><TD><IMG SRC="arrow1.gif">&nbsp;&nbsp; <A HREF="vermensaje.asp?idmensaje=<%=RS(" ;IdMensaje")%>"><B><FONT FACE="Arial" SIZE="2"><%=(RS.Fields("Titul o"))%></FONT></B></A></TD>
<% Response.Write "<TD ALIGN=center>&nbsp;["&RS("Respuestas")&" ;]&nbsp;</TD><TD ALIGN=center><FONT SIZE=2>" &Day(fecha)&"/"&Month(fecha)&"</FONT><BR></TD></TR>"
cant_registros = cant_registros +1
RS.MoveNext
Loop
end if
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
</TABLE>
