<%@ LANGUAGE="VBSCRIPT" %> <% '******************************************************************************* ' QNguyen 3/5/2008 All Documentation Index. ' '******************************************************************************* %>

home > all documentation index

All Active Documentation

Index

<% set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConnWebDB strSQL = "select filepath, title, docno from docs where status = 1 order by docno" 'Response.Write("strSQL:" & strSQl & " Time:" & now) set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, adOpenStatic ' Write index. objRS.MoveFirst() Response.write(" ") while not objRS.EOF Response.Write(" " & objRS("docno") & " " & objRS("title") & " ") objRS.MoveNext() wend Response.write(" ") objRS.Close() objConn.Close() %>