Guys,
I can't figure out why i keep getting this error maybe it's from index server itself. The script finds it difficult ot instanciate the component when i run this code.
Do i need to personally install the component or could it be ASP 2.0 versus ASP 3.0 problem.
ERROR MESSAGE IS BELOW
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/webapps/helpdesk/basicquery.asp, line 15
Invalid class string
Thanks
larry
<%
Option Explicit
%>
<HTML>
<HEAD>
<TITLE>Query Results</TITLE>
</HEAD>
<BODY>
<%
Dim objQuery ' As ixsso Query
Dim rsQuery ' As ADODB.Recordset
Set objQuery = Server.CreateObject("ixsso.Query"
objQuery.Query = Request("txtQuery"
objQuery.Column="filename,vpath,Doctile"
objQuey.Catalog = "f:\usersupport"
objquery.Maxrecords = 50
Set rsQuery = objQuery.CreateRecordset("nonsequential"
%>
<h3>Search Results<h3>
<%
IF rsQuery.EOF Then
%>
<Font color=#FF0000>
NO documents were found that
matched your query.
</font>
<%
Else
%>
<table>
<tr>
<th>Title</th>
</tr>
<%
Do While Not rsQuery.EOF
If rsQuery("doctitle" <> "" Then
%>
<tr>
<td><a href="<% = rsQuery("vpath" %>">
<% = rsQuery("doctitle" %></a>
</td>
</tr>
<%
End if
rsQuery.MoveNext
Loop
Response.Write "</table>"
End if
%>
</body>
</html>
</BODY>
</HTML>.
Oysterbar ride to success. Keep Riding
I can't figure out why i keep getting this error maybe it's from index server itself. The script finds it difficult ot instanciate the component when i run this code.
Do i need to personally install the component or could it be ASP 2.0 versus ASP 3.0 problem.
ERROR MESSAGE IS BELOW
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/webapps/helpdesk/basicquery.asp, line 15
Invalid class string
Thanks
larry
<%
Option Explicit
%>
<HTML>
<HEAD>
<TITLE>Query Results</TITLE>
</HEAD>
<BODY>
<%
Dim objQuery ' As ixsso Query
Dim rsQuery ' As ADODB.Recordset
Set objQuery = Server.CreateObject("ixsso.Query"
objQuery.Query = Request("txtQuery"
objQuery.Column="filename,vpath,Doctile"
objQuey.Catalog = "f:\usersupport"
objquery.Maxrecords = 50
Set rsQuery = objQuery.CreateRecordset("nonsequential"
%>
<h3>Search Results<h3>
<%
IF rsQuery.EOF Then
%>
<Font color=#FF0000>
NO documents were found that
matched your query.
</font>
<%
Else
%>
<table>
<tr>
<th>Title</th>
</tr>
<%
Do While Not rsQuery.EOF
If rsQuery("doctitle"
<> "" Then%>
<tr>
<td><a href="<% = rsQuery("vpath"
%>"><% = rsQuery("doctitle"
%></a></td>
</tr>
<%
End if
rsQuery.MoveNext
Loop
Response.Write "</table>"
End if
%>
</body>
</html>
</BODY>
</HTML>.
Oysterbar ride to success. Keep Riding