<%@ LANGUAGE="VBSCRIPT" %> <% dim products dim docTypes dim fams dim docType dim ordDate, ordSize, ordTitle, ordDocNo dim oTogg dim OSimg, ODimg, OTimg, ODNimg dim oTStr, oDStr, oFStr, oDNStr dim tMap, oMap, dMap, dnMap fams = Request.QueryString("FAM") docType = Request.QueryString("DT") ordDate = Request.QueryString("OD") ordSize = Request.QueryString("OS") ordTitle = Request.QueryString("OT") ordDocNo = Request.QueryString("DN") oDNStr = "" oTStr = "" oDStr = "" oFStr = "" oTogg = "1" Select Case ordDocNo Case "0" oDNStr = " desc" oTogg = "1" ODNimg = "" dnMap = "" Case "1" oDNStr = " asc" oTogg = "0" ODNimg = "" dnMap = "" Case Else ODNimg = "" dnMap = "" dnMap = dnMap & "" End Select Select Case ordTitle Case "0" oTStr = ", title desc" oTogg = "1" OTimg = "" tMap = "" Case "1" oTStr = ", title asc" oTogg = "0" OTimg = "" tMap = "" Case Else OTimg = "" tMap = "" tMap = tMap & "" End Select Select Case ordSize Case "0" oFStr = ", filesize desc" oTogg = "1" OSimg = "" oMap = "" Case "1" oFStr = ", filesize asc" oTogg = "0" OSimg = "" oMap = "" Case Else OSimg = "" oMap = "" oMap = oMap & "" End Select Select Case ordDate Case "0" oDStr = ", rUpdate desc" oTogg = "1" ODimg = "" dMap = "" Case "1" oDStr = ", rUpdate asc" oTogg = "0" ODimg = "" dMap = "" Case Else ODimg = "" dMap = "" dMap = dMap & "" End Select Set oConn = Server.CreateObject("ADODB.Connection") oConn.Provider = "MSDataShape" oConn.Open strConnWebDB 'docStr = "SHAPE {Select docid, docno, doctype, title, updatedate, filesize, " _ ' & "filetype, parent, businessunitname, familyid, familyshortname, filepath, priority, new from v_AllDocs " _ ' & "where familyid in (" & fams & ") and doctypeid in (" & docType & ") " _ ' & "and isnull(parent, 0) = 0 " _ ' & "order by priority, familyshortname, doctype" & oFStr & oDStr & oTStr & ", docno" & oDNStr & "} AS ParentData " _ ' & "APPEND ({Select docid, docno, doctype, title, updatedate, filesize, " _ ' & "filetype, parent, businessunitname, familyid, familyshortname, filepath, priority, new from v_AllDocs " _ ' & "where familyid in (" & fams & ") and doctypeid in (" & docType & ") " _ ' & "and not isnull(parent, 0) = 0 " _ ' & "order by priority, familyshortname, doctype, docno} " _ ' & "AS oRSDocs " _ ' & "RELATE docid TO parent)" docStr = "SHAPE {Select docid, docno, doctype, title, updatedate, filesize, " _ & "filetype, parent, businessunitname, familyid, familyshortname, filepath, priority, new from v_AllDocs " _ & "where familyid in (" & fams & ") and doctypeid in (" & docType & ") " _ & "and isnull(parent, 0) = 0 " _ & "order by priority, familyshortname, doctype" & oFStr & oDStr & oTStr & ", docno" & oDNStr & "} AS ParentData " _ & "APPEND ({Select a.docid, a.docno, a.doctype, a.title, a.updatedate, a.filesize, " _ & "a.filetype, a.parent, a.businessunitname, a.familyid, a.familyshortname, " _ & "a.filepath, a.priority, a.new, b.docid from v_AllDocs a, v_AllDocs b " _ & "where a.familyid in (" & fams & ") and a.doctypeid in (" & docType & ") " _ & "and a.parent = ? " _ & "and a.parent = b.docid " _ & "and a.familyid = b.familyid " _ & "order by a.priority, a.familyshortname, a.doctype, a.docno, a.docid} " _ & "AS oRSDocs " _ & "RELATE docid TO PARAMETER 0)" Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open docStr, oConn, adOpenDynamic, , adCmdText %> Documentation Search Results <% Response.Write("" & vbCrLf) %> <%=oMap%> <%=dMap%> <%=tMap%> <%=dnMap%>
  home > documentation search > documentation search results
Documentation   Search Results

<% BLFirst = "" If Not oRs.EOF Then oRs.MoveFirst Do While Not oRs.EOF BLCurrent = oRs("businessunitname") If BLFirst <> BLCurrent Then BLFirst = BLCurrent %> <% End If oRs.MoveNext Loop oRs.MoveFirst Else %> <% End If %>
  

> " onclick="nLoc=getCURL()"><%=oRs("businessunitname")%>
 
 <% If Not oRs.EOF Then %> <% setFlag = 0 BLFirst = "" PFFirst = "" DTFirst = "" DFirst = "" oRs.MoveFirst RowCount = 0 Do While Not oRs.EOF docno = oRs.Fields("docno") famID = oRs.Fields("familyid") title = oRs.Fields("title") BLCurrent = oRs.Fields("BusinessUnitName") If BLFirst <> BLCurrent Then If PFFirst <> "" AND BLFIRST <> BLCurrent AND setFlag <> 1 Then %>
 
<% setFlag = 1 End If BLFirst = BLCurrent %>
 "><%=BLCurrent%>
 
<% End IF PFCurrent = oRs.Fields("FamilyShortName") If PFFirst <> PFCurrent Then If PFFirst <> "" AND BLFIRST = BLCurrent AND setFlag <> 1 Then %>  
<% End If setFlag = 0 PFFirst = PFCurrent %>
  <%= PFFirst %>
<% If DTFirst = oRs.Fields("DocType") AND RowCount <> 0 Then %> <% End If End If DTCurrent = oRs.Fields("DocType") If DTFirst <> DTCurrent Then DTFirst = DTCurrent %> <% End If DCurrent = oRs.Fields("DocID") If DFirst = DCurrent Then 'DFirst = DCurrent %> <% If RowCount MOD 2 = 0 Then 'Even Row thisColor = "#FFFFFF" Else 'Odd Row thisColor = "#EDEDED" End If %> <% Set oRSChild = oRS("oRSDocs").Value 'childFirst = "" Do While Not oRSChild.EOF If PFCurrent = oRsChild("FamilyShortName") Then 'childCurrent = oRSChild("docid") 'If childFirst <> childCurrent Then 'childFirst = childCurrent %> <% End If oRSChild.MoveNext Loop oRSChild.Close End If ' New Stuff If DFirst <> DCurrent Then DFirst = DCurrent %> <% If RowCount MOD 2 = 0 Then 'Even Row thisColor = "#FFFFFF" Else 'Odd Row thisColor = "#EDEDED" End If %> <% Set oRSChild = oRS("oRSDocs").Value 'childFirst = "" Do While Not oRSChild.EOF If PFCurrent = oRsChild("FamilyShortName") Then 'childCurrent = oRSChild("docid") 'If childFirst <> childCurrent Then 'childFirst = childCurrent %> <% End If oRSChild.MoveNext Loop oRSChild.Close End If ' New Stuff RowCount = RowCount + 1 oRs.MoveNext Loop oRs.Close oConn.Close %>
<%=DTCurrent%>  
<%=ODNimg%> Doc ID  <%=OTimg%> Title<%=ODimg%> Updated   File Type <%=OSimg%> Size (KB) 
<%=DTCurrent%>  
<%=ODNimg%> Doc ID  <%=OTimg%> Title<%=ODimg%> Updated   File Type <%=OSimg%> Size (KB) 
 <%=UCASE(docno)%> "><%=title%> <%=oRs.Fields("updatedate")%> "><% Call getPic(oRs.Fields("fileType"),oRs.Fields("new")) %> <%=oRs.Fields("filesize")%>
     <%=UCASE(oRSChild("docno"))%> "><%=oRSChild.Fields("title")%> <%=oRSChild.Fields("updatedate")%> "><% Call getPic(oRSChild.Fields("fileType"),oRSChild.Fields("new")) %> <%=oRSChild.Fields("filesize")%>
 <%=UCASE(docno)%> "><%=title%> <%=oRs.Fields("updatedate")%> "><% Call getPic(oRs.Fields("fileType"),oRs.Fields("new")) %> <%=oRs.Fields("filesize")%>
     <%=UCASE(oRSChild("docno"))%> "><%=oRSChild.Fields("title")%> <%=oRSChild.Fields("updatedate")%> "><% Call getPic(oRSChild.Fields("fileType"),oRSChild.Fields("new")) %> <%=oRSChild.Fields("filesize")%>
<% Set oRs = Nothing Else %>

The Search Returned No Results. Please try again.

<% end if %>