http://www.daniweb.com/forums/ Tech support, programming, web development, and internet marketing community. Forums to get free computer help and support. en-US Wed, 16 Dec 2009 23:00:19 GMT vBulletin 60 http://www.daniweb.com/alphaimages/misc/rss.jpg http://www.daniweb.com/forums/ http://www.daniweb.com/forums/thread236733.html Sat, 07 Nov 2009 08:47:05 GMT I have the following script from a forum that collected data from a form and inserted in the. Mdb These are displayed through a file that reads the database. At this time the display is text, URLs are not active. The script is not so do not really know what to do. I need that URLs appear... I have the following script from a forum that collected data from a form and inserted in the. Mdb
These are displayed through a file that reads the database.
At this time the display is text, URLs are not active.
The script is not so do not really know what to do.
I need that URLs appear as a link at this time does not happen.
Can you help me?
<%
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(".private//usuarios.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>Contestar
este mensaje</B></A><BR>
<BR>
<%'=== Muestro el mensaje padre. La pregunta inicial ======
Response.Write "<B>Nombre: </B>"&RS("name")&"<BR>"
Response.Write "<B>Email: </B>"&RS("mail")&"<BR>"
Response.Write "<B>Título del mensaje: </B>"&RS("Title")&"<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")
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 "<BR><B>Nombre: </B>"&RS2("name")&"<BR>"
Response.Write "<B>Email: </B>"&RS2("mail")&"<BR>"
Response.Write "<B>Título del mensaje: </B>"&RS2("title")&"<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, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%> ]]> ASP Jhon100 http://www.daniweb.com/forums/thread236733.html http://www.daniweb.com/forums/thread236582.html Fri, 06 Nov 2009 15:12:10 GMT I want to exchange photos any destination worldwide. I have photos of the following destinations: Madrid Spain Aranjuez Spain Salamanca Spain Segovia Spain Burdeos France Blois France Burdeos Orleans France Lourdes France I want to exchange photos any destination worldwide. I have photos of the following destinations:
Madrid Spain
Aranjuez Spain
Salamanca Spain
Segovia Spain
Burdeos France
Blois France
Burdeos
Orleans France
Lourdes France
Egipto
Isla reunion France
Toledo Spain

Most of the photos are larger than 1000 pixels wide by over 1000 long

Exchange photos with any destination worldwide.

Interested leave a message on the forum or send private message ]]> Project Partners Wanted Jhon100 http://www.daniweb.com/forums/thread236582.html