No se abren links en buscador con ASP

[betcker]

Que tal un gran saludo a todos, el problemas es:

Tengo un buscador dentro de un sitio WEB hecho en ASP que trabaja con Index Server para localizar paginas y documentos dentro del sitio, la busqueda la hace sin problemas y tambien despliega los enlaces encontrados, el problema es cuando se quiere acceder a alguna de estas ligas ya que ninguna se abre, corre en W 2003 Server.

Pueden ver el error en la sig. liga

fumec.org.mx/espanol/buscar/buscar1.asp

buscando con la palabra "fumec" por ejemplo.

Gracias de antemano y espero que puedan orientarme.

[AlZuwaga]

c:/inetpub/ftp termporal/paginas/sitio fumec/ingles/news/march2005.htm

Claro... tenés un enlace físico, no uno virtual.
te tendría que quedar así:

http://fumec.org.mx/ingles/news/march2005.htm

[betcker]

Gracias por la respuesta y tienes toda la razón, pero no he logrado hacer que quede la referencia virtual, alguna idea de donde hacer ese cambio, de antemano gracias.

Saludos.

[ElAprendiz]

<a href="archivo.htm">enlace</a>

si esta dentro de un directorio
<a href="directorio/archivo.htm">enlace</a>

[betcker]

De nuevo gracias por la respuesta, pero el problema no esta en el htm, debe ser en la funcion Path virtual que tengo creada para tal efecto, pero aunque teoricamente esta bien configurada, no funciona, en esta funcion tengo indicado el directorio donde se encuentran los archivos del sitio ej.

Function pathVirtual(pathVariable)
Const rootDelServer = "c:/inetpub/directorio del sitio/"
Dim tempVariable
tempVariable = pathVariable
tempVariable = Replace(tempVariable, rootDelServer, "\")
tempVariable = Replace(tempVariable, "\", "/")
pathVirtual = tempVariable
End Function

Saludos y de antemano gracias

[AlZuwaga]

Es que no entiendo qué está devolviendo la funsión pathVirtual()
Por lo menos a mi me falta más info para buscarle la vuelta.

Poné el código completo y lo veo

[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.

[betcker]

saludos de nuevo, como referencia, esta aplicación funcionaba a la perfección cuando corria en W2000Server, migramos a 2003 server y aún cuando creamos la estructura identica a como estaba en 2000 server, dejo de funcionar creando este error en el buscador.

De antemano gracias y espero me puedan ayudar.

Humberto