%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("combo/abic.mdb"))
sql = "SELECT * FROM obras WHERE orden=" & Request.QueryString("orden") & ""
'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result = Con.Execute(sql)
' GUILLE, AQUI REEMPLAZAMOS LOS SALTOS DE RENGLON DE VBASIC POR LOS SALTOS DE RENGLON DEL HTML
' al utilizarlo de este modo, no debes usar htmlencode. ok?
descripcion = replace(result("descripcion"),VbCrLf,"
")
%>