Buscador ASP

[piki]

Tengo un problemita con un buscador ASP que hice.
El buscador anda perfecto .
En la base de datos tengo un campo URL con una dirección.
Lo que no puedo hacer es que me muestre un hipervínculo con la palabra "ir" con esa dirección
Con lo que hice me muestra solamente la direccion pero sin el hipervínculo
Espero que me puedan ayudar
Muchas Gracias

[Myakire]

¿qué?
¿te refieres a hacer un <a href='<%=ObjRecordSet("URL")%>'>IR</a>?

[piki]

si algo de eso, pero no se como ni donde insertarlo ya que mi código es así:

<%
if(Request.Form("fldValorBuscado") <> "") then
Dim rstBusqueda
Dim rstBusqueda_numRows

Set rstBusqueda = Server.CreateObject("ADODB.Recordset")
rstBusqueda.ActiveConnection = MM_Editorial_STRING
rstBusqueda.Source = "SELECT Libros.* FROM Libros WHERE Libros." & Request.Form("lstCampo") & " like '%"&Request.Form("fldValorBuscado")&"%' " & "ORDER BY Libros.titulo"
rstBusqueda.CursorType = adOpenStatic
rstBusqueda.CursorLocation = adUseServer
rstBusqueda.LockType = adLockBatchOptimistic
rstBusqueda.Open()
rstBusqueda_numRows = 0

If rstBusqueda.BOF And rstBusqueda.EOF Then

Response.Write("<center><h3>No se encontraron datos con '" & Request.Form("fldValorBuscado") & "'</h3></center>")

else

Response.Write("<table width='95%' border='1' cellspacing='0' cellpadding='0'>")
Response.Write("<tr>")

for each Campo in rstBusqueda.fields
Response.Write("<td>" & Campo.name & "</td>")
next

Response.Write("</tr>")
Response.Write("<tr>")

Dim Campo

Do While Not rstBusqueda.eof
for each Campo in rstBusqueda.fields
if not isnull(Campo.value) then
Response.Write("<td>" & Campo.value & "</td>")

else
Response.Write("<td>&nbsp;</td>")
end if

next
Response.Write("</tr>")
rstBusqueda.MoveNext
Loop

Response.Write("</table>")
end if

end if

%>

Espero me puedas ayudar, gracias

[Myakire]

Seria en:
Do While Not rstBusqueda.eof
for each Campo in rstBusqueda.fields
if not isnull(Campo.value) then
if Campo.Name = "URL" Then
Response.Write("<td><a href='" & Campo.value & "'> ir </a></td>")
else
Response.Write("<td>" & Campo.value & "</td>")
end if
else
Response.Write("<td>&nbsp;</td>")
end if
Next
rstBusqueda.MoveNext
Loop

Saludos

[piki]

muchas gracias!!!
solo faltaba Response.Write("</tr>") para q baje de renglón

[Myakire]

En HTML 4, no es necesario cerrar las etiquetas y permite empalmamiento de estiquetas. Pero tienes razón, el nuevo estandar xhtml ya obliga a cerrar todo para su facil convercion a xml.
Un "ligero" error de costumbre, jejeje.

Saludos