Technical FAQ
Search and browse the Technical FAQ articles for MULTILIZER 6.0 products.
Search Options
<%
Dim intTOC, intENV, strKWD
Dim objRS, strSQL
intTOC = Request.QueryString("toc")
If intTOC > "" Then
If IsNumeric(intTOC) Then
intTOC = CInt(intTOC)
Else
intTOC = 0
End If
Else
intTOC = 0
End If
intENV = Request.QueryString("env")
If intENV > "" Then
If IsNumeric(intENV) Then
intENV = CInt(intENV)
Else
intENV = 0
End If
Else
intENV = 0
End If
strKWD = Trim(Request.QueryString("kwd"))
%>
<%
Const MAX_RECORDS = 10
Dim intMode, intCategory, intCount
If intTOC <> 0 Then
intMode = 0
intCategory = CInt(Request.QueryString("toc"))
ElseIf intENV <> 0 Then
intMode = 1
intCategory = CInt(Request.QueryString("env"))
ElseIf Len(strKWD) > 2 Then
intMode = 2
Else
intMode = -1
End If
If intMode > -1 Then
If intMode = 0 Then
strSQL = "SELECT Document.Id, Document.Info1, Document.Info2 FROM Document, " & _
"DocumentCategory WHERE Document.CategoryId = DocumentCategory.Id " & _
"AND DocumentCategory.KindId = " & KIND_TOC & " AND DocumentCategory.Enabled = 'T' " & _
"AND DocumentCategory.Id = " & intCategory & " AND Document.Enabled = 'T' " & _
"ORDER BY Document.AddDate DESC"
ElseIf intMode = 1 Then
strSQL = "SELECT Document.Id, Document.Info1, Document.Info2 FROM Document, " & _
"DocumentCategory WHERE Document.CategoryId = DocumentCategory.Id " & _
"AND DocumentCategory.KindId = " & KIND_ENV & " AND DocumentCategory.Enabled = 'T' " & _
"AND DocumentCategory.Id = " & intCategory & " AND Document.Enabled = 'T' " & _
"ORDER BY Document.AddDate DESC"
Else
strSQL = MLFormatSQL( _
"SELECT Document.Id, Document.Info1, Document.Info2 FROM Document, " & _
"DocumentCategory WHERE Document.CategoryId = DocumentCategory.Id " & _
"AND DocumentCategory.KindId IN (" & KIND_TOC & "," & KIND_ENV & ") " & _
"AND DocumentCategory.Enabled = 'T' AND Document.Enabled = 'T' " & _
"AND UPPER(Document.Name) LIKE {0} ORDER BY Document.AddDate DESC", _
Array("%" & UCase(Request.QueryString("kwd")) & "%"), _
Array(vbString))
End If
%>
Search Results
<%
Set objRS = IN_Connection.Execute(strSQL, MAX_RECORDS)
If Not objRS.Eof Then
intCount = 0
Do
If intCount >= MAX_RECORDS Then Exit Do
intCount = intCount + 1
%>
<%=objRS(1)%> |
<%=Left(objRS(2), 100)%>... [Read more]
|
<%
objRS.MoveNext
Loop Until objRS.Eof
If intCount >= MAX_RECORDS Then
%>
The search returned more than <%=MAX_RECORDS%> articles. Please try to search with different keywords to see more results. |
<%
End If
Else
%>
The search did not result any articles. Please select different topic or environment or redefine the keyword. Use only at least three (3) characters long keywords. |
<%
End If
objRS.Close
%>
<%Else%>
Please select the topic or environment or enter keyword to begin. Use only at least three (3) characters long keywords.
<%End If%>
<%
Set objRS = Nothing
Call IN_CloseConnection
%>
|
<%If IsSUMAClient Then%>
<%ElseIf IsClient Then%>
<%Else%>
<%End If%>
|