Toon posts:

[asp] index server geeft geen asp weer

Pagina: 1

Acties:

51 views sinds 30-01-2008
Reageer

vrijdag 5 april 2002 16:34

Acties:

TeeDee

CQB 241

Topicstarter

voor een intranet site heb ik index server draaien.

nu heb ik hem draaiend dat ie netjes word.doc's weergeeft, maar bijvoorbeeld html of asp pagina's geeft ie niet weer na een query.

Ik heb het met de volgende code:

code:

<HTML>
<BODY>
<%
Dim objQuery
Dim rsResults
Dim strSearchText
Dim strSearchType

strSearchText =Request.QueryString("txtSearchText")
strSearchType = Request.QueryString("cboSearchType")

Set objQuery = Server.CreateObject("IXSSO.Query")
Set rsResults = server.CreateObject("ADODB.Recordset")

objQuery.Catalog = "ccintranet"

If strSearchType = "Phrase" Then
   strSearchText = "{phrase}" & strSearchText & "{/phrase}"
End If
    
objQuery.Query = strSearchText
objQuery.Columns = "FileName, path"
Set rsResults = objQuery.CreateRecordset("sequential")

If rsResults.EOF Then
   Response.Write "<STRONG><FONT SIZE=+6 COLOR=BLUE>" & _
            "No Results Found</FONT></STRONG>"
Else
%>
   <TABLE BORDER=0 WIDTH=100%>
    <TR>
       <TD><STRONG>File name</STRONG></TD>
       <TD><STRONG>File Location</STRONG></TD>
    </TR>
<%
    While Not rsResults.EOF
%>
       <TR>
        <TD><% =rsResults.Fields(0).Value %></TD>
        <TD><A HREF="<%= rsResults.fields(1).value %>">
            <%= rsResults.Fields(1).Value %></A></TD>
       </TR>
<%
       rsResults.MoveNext
    Wend
%>
   </TABLE>
<%
End If
Set objQuery = Nothing
Set rsResults = Nothing
%>
</BODY>
</HTML>

Deze code komt uit het WROX Asp handboek, maar zoals gezegd krijg ik alleen word documenten terug...

iemand een suggestie?

Heart..pumps blood.Has nothing to do with emotion! Bored

vrijdag 5 april 2002 16:51

Acties: