<% 'If IsObject(Session("Conn")) Then ' Set Conn = Session("Conn") 'Else ' Set Conn = Server.CreateObject("ADODB.Connection") ' --- Conexión directa (sin DSN) ----------- ' strConn="DRIVER={Microsoft Access Driver (*.mdb)};" ' strConn=strConn + "DBQ=D:\inetpub\wwwroot\pruebas\Ciberjob\MensaBas\ArqueoCJ.mdb;" ' strConn=strConn + "DBQ=C:\servidor\ciberjob\arqueologia\MensaBas\ArqueoCJ.mdb;" ' strConn=strConn + "Uid=Admin;Pwd=;" ' --- Conexión mediante DSN ---------------- ' strConn="DSN=CiberJobDB;Uid=Admin;Pwd=;" ' Conn.Open strConn ' Set Session("Conn") = Conn 'End If Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "ciberjobdb", "","" %>

---

<% ID=request.QueryString("ID") sql="SELECT IDENT, RESPONDEA, FECHA, ASUNTO, EMISOR, EMAIL, MENSAJE FROM MENSAJES WHERE IDENT=" sql=sql & ID sql=sql & " ORDER BY IDENT" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <%rs.MoveFirst FINLINEA=chr(13)&chr(10) do while not rs.EOF%> <% if rs("RESPONDEA")>0 then sql="SELECT IDENT, FECHA, EMISOR FROM MENSAJES WHERE IDENT=" sql=sql & rs("RESPONDEA") Set rs2=Server.CreateObject("ADODB.Recordset") rs2.Open sql, conn, 3, 3 %> <%end if%> <%rs.MoveNext loop%>

<%=rs("ASUNTO")%>      ">       <%=rs("EMISOR")%>      (<%=rs("FECHA")%>) <% sql="SELECT IDENT, RESPUESTA FROM RESPUESTAS WHERE IDENT=" sql=sql & rs("IDENT") sql=sql & " ORDER BY IDENT" Set rs3=Server.CreateObject("ADODB.Recordset") rs3.Open sql, conn, 3, 3 if rs3.recordcount>0 then %> Respuestas para este mensaje: <%do while not rs3.EOF%> "><%=rs3("RESPUESTA")%>   <% rs3.MoveNext loop end if %>

<%TEXTO=rs("MENSAJE") P=instr(TEXTO,FINLINEA) do while P>0 response.write(left(TEXTO,P - 1) & " ") if len(TEXTO) - P - 2 > 0 then TEXTO=right(TEXTO, len(TEXTO) - P - 1) P=instr(TEXTO,FINLINEA) else TEXTO="" P=0 end if loop response.write(TEXTO & " ") %>

Ver mensaje original de:      "><%=rs2("EMISOR")%>     (<%=rs2("FECHA")%>)

Contestar al mensaje anterior.
Nombre:
Contraseña:
E-Mail:
Teclee aquí su respuesta:

---

<% conn.Close SET rs = NOTHING SET rs2 = NOTHING SET rs3 = NOTHING%>