Technical FAQ Article
<%
Dim intID, objRS
intID = Request("id")
If intID = "" Then Response.Redirect("index.asp?" & Request.QueryString)
If Not IsNumeric(intID) Then Response.Redirect("index.asp?" & Request.QueryString)
intID = CInt(intID)
Call IN_OpenConnection
Set objRS = IN_Connection.Execute(MLFormatSQL( _
"SELECT Document.Info1, Document.Info2 FROM Document, DocumentCategory " & _
"WHERE Document.CategoryId = DocumentCategory.Id AND DocumentCategory.Enabled = 'T' " & _
"AND Document.Enabled = 'T' AND DocumentCategory.KindId IN ({0},{1},{2}) " & _
"AND Document.Id = {3}", _
Array(KIND_TOC, KIND_ENV, KIND_FAQ, intID), _
Array(vbInteger, vbInteger, vbInteger, vbInteger)))
If Not objRS.Eof Then
%>
<%
Else
%>
Can't find any articles with given parameters. Please navigate back and try again.
<%
End If
objRS.Close
Set objRS = Nothing
Call IN_CloseConnection
%>
<< Back
|
<%If IsSUMAClient Then%>
<%ElseIf IsClient Then%>
<%Else%><%End If%>
|