Master Database Directory of Information
Pertaining to Eckankar



<% dim myConn 'public sub ConnectMe(dbConn) ' dim incl_str_conn 'incl_str_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\Desktop\thetruth-seeker\db\truth.mdb;Persist Security Info=False;User ID=Admin;Password=" 'incl_str_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\db\truth.mdb") & ";Persist Security Info=False;User ID=Admin;Password=" 'incl_str_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\FoodIntranet\db\DB1.mdb") & ";Persist Security Info=False;User ID= ;Password=" ' incl_str_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=truthseeker;Persist Security Info=False;User ID=;Password=" ' dbConn.Open incl_str_conn 'end sub 'set myConn = Server.CreateObject ("ADODB.Connection") 'ConnectMe myConn set myConn = Server.CreateObject ("ADODB.Connection") myConn.Open(Session("Server")) 'ConnectMe myConn SQL1 = "SELECT * FROM supmaterialindex order by title" SET oRS1 = myConn.Execute(SQL1) WHILE NOT oRS1.EOF%> <% = oRS1( "title" ) %>
<%indexNo=oRS1("indexNo") SQL2 = "SELECT * FROM materialindex where indexNo ="& indexNo &" order by description" SET oRS2 = myConn.Execute(SQL2) WHILE NOT oRS2.EOF strText=oRS2("SubtitleNo") if (strText)=0 then%>     
  • <% = oRS2( "description" ) %>
  • <% Else%> <%SubtitleNo = oRS2("SubtitleNo") SQL3 = "SELECT * FROM submaterialindex where SubtitleNo = "& SubtitleNo &" order by Subtitle" SET oRS3 = myConn.Execute(SQL3)%>
  • <% = oRS2( "description" ) %>


  • <%end if%> <% if (strText)<>0 then WHILE NOT oRS3.EOF%>      <% = oRS3( "subtitle" ) %>
    <%oRS3.MoveNext WEND %> <%end if%>
    <%oRS2.MoveNext WEND oRS1.MoveNext WEND %>