<% If Request.QueryString("IdMensaje")= "" then Response.Redirect "foro.asp" End If%> Contestar o Reformular Pregunta

Respuesta a tu pregunta:

<% IdMensaje = Request.QueryString("IdMensaje") busca = Trim(Request.QueryString("busca")) 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 IdMensaje="&IdMensaje&"" Rs.Open sql, oConn, 1, 1 mensaje = RS("mensaje") '=== Muestro el mensaje padre. La pregunta inicial ====== Response.Write "Nombre: "&RS("nombre")&"
" Response.Write "Email: "&RS("email")&"
" Response.Write "Título del mensaje: "&RS("Titulo")&"
" Response.Write "Mensaje:

"& AcomodarTXT(mensaje)&"

" Response.Write "
" '===== Fin pregunta inicial ===== Set RS2 = Server.CreateObject ("ADODB.RecordSet") sql2 = "SELECT * FROM discusion WHERE IdCabeza="&IdMensaje &" ORDER BY fecha" RS2.Open sql2, oConn, 1, 1 '===== Respuestas a la pregunta inicial Do While not RS2.EOF mensaje2 = RS2("mensaje") Response.Write "
Nombre: "&RS2("nombre")&"
" Response.Write "Email: "&RS2("email")&"
" Response.Write "Título del mensaje: "&RS2("titulo")&"
" Response.Write "Mensaje:
"%>

<%= AcomodarTXT(mensaje2)%>


<% Response.Write "
" 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, "
") txt = Replace (txt, "''", "'") acomodarTXT = txt End function %>

Todos los Derechos Reservados para CODELCO. Copyright 2002. Web site realizada por Montes Ramón Abel