|
|
 |
<%
step_temp = Request.Form("step")
If step_temp = "" Then
step_temp = "0"
End If
If step_temp = "1" Then
searchstring_temp = Request.Form("searchstring")
If Len(searchstring_temp) > 0 Then
language_temp = UCase(Request.Form("lang"))
If language_temp = "" Then
info_temp = "0"
step_temp = "0"
Else
counter_temp = 0
catalog_temp = "hochland.de"
folder_temp = "/" & UCase(language_temp) & "/"
showNavbar = 0
maxLinkInNavbar = 10
HitsPerPage = 1000
move_temp = Request.QueryString("MOVE")
If move_temp = "" Then
move_temp = 1
End If
CurrentPage = CINT(move_temp)
Set oIndexQuery = Server.CreateObject("ixsso.Query")
oIndexQuery.Catalog = catalog_temp
oIndexQuery.Query = searchstring_temp
oIndexQuery.SortBy = "DocTitle[d]"
oIndexQuery.MaxRecords = 1000
oIndexQuery.Columns = "rank, path, vpath, DocTitle, write, Contents, FileName, Characterization"
On error resume next
Err.Clear
SET rsData = oIndexQuery.CreateRecordSet("nonsequential")
If Err.number <> 0 Then
Select Case Err.number
Case -2147215867 'The query contained only ignored words
info_temp = "03"
step_temp = "0"
Case -2147215328 'Service is not running
info_temp = "04"
step_temp = "0"
Case -2147215766 'Expecting phrase
info_temp = "05"
step_temp = "0"
Case else
info_temp = "06"
step_temp = "0"
End Select
Else
If rsData.EOF Then
info_temp = "02"
step_temp = "0"
End If
End If
End If
Else
info_temp = "01"
step_temp = "0"
End If
End If
%>
<%
If info_temp = "0" Then
%>
| No language selected! |
 |
<%
Elseif info_temp = "01" Then
%>
| No search has been launched. |
|
<%
Elseif info_temp = "02" Then
%>
| No Document found. |
|
<%
Elseif info_temp = "03" Then
%>
| Please do not use expletives (i.e. the, a, is……) |
|
<%
Elseif info_temp = "04" Then
%>
| Search cannot be completed. Please try again later. |
|
<%
Elseif info_temp = "05" Then
%>
| Please use valid key word. |
|
<%
Elseif info_temp = "06" Then
%>
| Search error. |
|
<%
End If
'--------------------------------------------------------------------------------------------
If step_temp = "0" Then
'--------------------------------------------------------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------
Elseif step_temp = "1" Then
'--------------------------------------------------------------------------------------------
%>
| Search results: |
|
| You have searched for "<% Response.Write searchstring_temp %>" |
|
<%
level_current_temp = Request.QueryString("level_current_temp")
If level_current_temp = "" Then
level_current_temp = 1
End If
level_up_temp = level_current_temp + 1
level_down_temp = level_current_temp - 1
lastInPage = move_temp * HitsPerPage
firstInPage = lastInPage - HitsPerPage + 1
If lastInPage > rsData.RecordCount Then
lastinPage = rsData.RecordCount
End If
rsData.PageSize = HitsPerPage
rsData.AbsolutePage = CurrentPage
thisPage = rsData.AbsolutePage
row_temp = 0
counter_temp = firstInPage
folder_temp = UCase(folder_temp)
bgcolor_temp = "#ffffff"
Do While Not rsData.EoF And row_temp < rsData.PageSize
If (InStr(UCase(rsData("Vpath")),folder_temp) > 0) or (InStr(UCase(rsData("Vpath")),"/COMMON/") > 0) Then
path_temp = Replace(rsData("Vpath"),LCase(folder_temp),folder_temp)
language_temp = astrMessages(3)
language_temp = Replace(language_temp,"","" & searchstring_temp & "")
If not Instr(rsData("Vpath"),"menue") Then
If bgcolor_temp = "#ffffff" Then
bgcolor_temp = "#cecece"
Else
bgcolor_temp = "#ffffff"
End If
%>
| <% Response.Write counter_temp %>) |
<%
If rsData("DocTitle") = "" Then
%>
Document lacks tittle |
<%
Else
%>
<% Response.Write(rsData("DocTitle")) %> |
<%
End If
%>
|
<%
row_temp = row_temp + 1
counter_temp = counter_temp + 1
End If
End If
rsData.MoveNext
Loop
%>
|
|
<%
If row_temp = 0 Then
%>
| Search error. |
|
<%
End If
Set rsData = nothing
Set oIndexQuery = Nothing
'--------------------------------------------------------------------------------------------
End If
'--------------------------------------------------------------------------------------------
%>
|
|
|
|
