No se abren links en buscador con ASP

[betcker]

Que tal de nuevo, pues en realidad la función PathVirtual debería devolver la ruta de los archivos para abrir los links, y al parecer si lo hace pero las devuelve como c:\.... anexo el código a ver si les sirve como referencia, saludos y gracias de antemano.

<!--buscador -->
<div id="buscadorASP">
<%
Dim stringQuery ' El texto del query
Dim objQuery ' el objeto del index server para el query
Dim resultados ' El recordset de resultados que regresa Index Server
Dim objetoCampo ' Objeto para los loop

' Recibiendo el query
stringQuery = Request.QueryString("busqueda")

' Si el query no esta vacío continuar
If stringQuery <> "" Then
' se crea objeto del index server
Set objQuery = Server.CreateObject("IXSSO.Query")

' Propiedades
With objQuery
.Catalog = "buscadorFUMECesp" ' Catalogo para la consulta
.MaxRecords = 150 ' Máximo # de resultados a desplegar
.SortBy = "rank [d]"
.Columns = "filename, path, vpath, size, write, " _
& "characterization, DocTitle, DocAuthor, " _
& "DocKeywords, rank, hitcount"

' Construyo el query, ocultando cualquier archivo vti o admin
stringQuery = "(" & stringQuery & ")" _
& " AND NOT #filename = *admin*" _
& " AND NOT #path *\_vti_*"

' El comando de abajo serviría para que se busquen únicamente archivos con 5 días de antigüedad
'stringQuery = stringQuery & " AND @write > -5d"

.Query = stringQuery ' Texto del query
End With
On Error Resume Next 'revisa si hay errores
' Recordset de la búsqueda
Set resultados = objQuery.CreateRecordset("nonsequential")
Set objQuery = Nothing

' Revisa si hay resultados
If resultados.EOF Then
Response.Write "No se encontró ningún resultado para su búsqueda."
Else
' Se imprime el número de resultados encontrados
Response.Write "<p><strong>"
Response.Write resultados.RecordCount
Response.Write "</strong> resultados encontrados:</p>"
Do While Not resultados.EOF
%>
</div>
<div>
<% If resultados.Fields("doctitle") = "" Then %>
<strong><a href="<%= pathVirtual(resultados.Fields("path")) %>"><%= pathVirtual(resultados.Fields("path")) %></a></strong><br />
<% Else %>
<strong><a href="<%= pathVirtual(resultados.Fields("path")) %>"><%= resultados.Fields("doctitle") %></a></strong><br />
<% End If %>
<!--&nbsp;&nbsp;&nbsp;<em>Autor:</em> <%= resultados.Fields("docauthor") %><br />-->
&nbsp;&nbsp;&nbsp;<em>Última modificación:</em> <%= resultados.Fields("write") %><br />
&nbsp;&nbsp;&nbsp;<em>Tamaño:</em> <%= resultados.Fields("size") %>
bytes<br />
<!--&nbsp;&nbsp;&nbsp;<em>Palabras clave:</em> <%= resultados.Fields("dockeywords") %><br />-->
&nbsp;&nbsp;&nbsp;<em>Descripción:</em> <%= resultados.Fields("characterization") %><br />
</div>
<div>
<hr noshade color="#999999" />
<%
' Siguiente resultado
resultados.MoveNext
Loop

resultados.MoveFirst
Response.Write "<pre>"
'Response.Write resultados.GetString()
Response.Write "</pre>"
End If

' Destruyo el objeto del recordset
Set resultados = Nothing
End If
If Err.Number > 0 Then 'si se encuentra un error
Response.Write("<font face=tahoma size=3 color=#b22222> <br>Su búsqueda es inválida.</font>")
Err.Clear
End If

%>
</div>
<!-- fin buscador -->

Despues al final del archivo viene la función PathVirtual como se mostro en el mensaje anterior.

Saludos.