Foro en asp Estoy creando un foro en asp http://www.fotoviaje.net/public/forum/foro.asp
Estoy tratando de que el mismo sea amigable para los buscadores. Me explico en la url donde se ven los mensajes http://www.fotoviaje.net/public/foru...p?idmensaje=10 el titulo siempre el mismo, podeis ver viendo mensaje...
Como podria hacer para que el foro sea mas amigable de cara a buscadores y que no aparezca siempre el mismo title, que apareciese siempre el titulo del mensaje del foro. Que tipo de contenedor podria incluir dentro de title <%%>
He incluido este contendor Titulo <%Titulo%>
Incluyendo este contenedor aparece el id correspondiente al mismo mensaje
Aqui os paso el codigo del fichero:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<title>Viendo mensaje...</title>
<meta name="Description" content="Foros en Fotoviaje.net. Viendo mensajes.." >
<link rel="shortcut icon" href="imagenesweb/favicon.ico" type="image/vnd.microsoft.icon">
<link rel="icon" href="imagenesweb/favicon.ico" type="image/vnd.microsoft.icon"><LINK
Rel="stylesheet" HRef="estilos.css"
Type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body><table width="780" border="0" cellpadding="0" cellspacing="0" align="center">
<tr bgcolor="#999999">
<td height="108" valign="top" bgcolor="#FFFFFF">
<!--#include file="header.asp"-->
</td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" bgcolor="#FFFFFF"><% If Request.QueryString("IdMensaje")= "" then
Response.Redirect "foro.asp"
End If%>
<B>Foros en Fotoviaje.net</B><BR>
<BR>
<%
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./helloworld.mdb")
sql = "SELECT * FROM discusion WHERE IdMensaje="&IdMensaje&""
Rs.Open sql, oConn, 1, 1
mensaje = RS("mensaje")
%>
<img src="anadir.gif" width="16" height="16"> <A HREF="contestar.asp?idmensaje=<%=IdMensaje%>"><B>C ontestar
este mensaje</B></A><BR>
<BR>
<%'=== Muestro el mensaje padre. La pregunta inicial ======
Response.Write "<B>Nombre: </B>"&RS("nombre")&"<BR>"
Response.Write "<B>Email: </B>"&RS("email")&"<BR>"
Response.Write "<B>Título del mensaje: </B>"&RS("Titulo")&"<BR>"
Response.Write "<B>Mensaje: </B><BR><P><I>"& AcomodarTXT(mensaje)&"</I></P>"
Response.Write "<HR WIDTH=""80%"">"
'===== Fin pregunta inicial =====
Set RS2 = Server.CreateObject ("ADODB.RecordSet")
RS2.Open sql2, oConn, 1, 1
'===== Respuestas a la pregunta inicial
Do While not RS2.EOF
mensaje2 = RS2("mensaje")
Response.Write "<BR><B>Nombre: </B>"&RS2("nombre")&"<BR>"
Response.Write "<B>Email: </B>"&RS2("email")&"<BR>"
Response.Write "<B>Título del mensaje: </B>"&RS2("titulo")&"<BR>"
Response.Write "<B>Mensaje: </B><BR>"%><P><I><%= AcomodarTXT(mensaje2)%></I></P><BR>
<%
Response.Write "<HR WIDTH=""80%"">"
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, "<", "<")
txt = Replace (txt, ">", ">")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>
</td>
</tr>
</table><br>
<!--#include file="footer.asp"-->
</body>
</html>
no veo la relación de la etiqueta title con los buscadores. Quizás lo que querías decir es el meta description. En el content podrías incluir el tema del mensaje por ejemplo "Blog viaje por Marruecos"
