%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' check for an abacci cookie if session("uid") = "" then If Request.Cookies("abaccibooks") <> "" Then ' get this user's previous session uid session("uid") = Request.Cookies("abaccibooks")("uid") else ' new user, create a new cookie for them session("uid") = cstr(cdbl(cstr(year(now)) & cstr(month(now)) & cstr(day(now)) & cstr(timer())) * 100) response.Cookies("abaccibooks").expires = Now() + 90 response.Cookies("abaccibooks")("uid") = session("uid") End if end if Dim cmdListCount__list_ID cmdListCount__list_ID = "0" if(session("uid") <> "") then cmdListCount__list_ID = session("uid") %> <% set cmdListCount = Server.CreateObject("ADODB.Command") cmdListCount.ActiveConnection = MM_cnBooks_STRING cmdListCount.CommandText = "dbo.getListCount" cmdListCount.Parameters.Append cmdListCount.CreateParameter("@RETURN_VALUE", 3, 4) cmdListCount.Parameters.Append cmdListCount.CreateParameter("@list_ID", 200, 1,16,cmdListCount__list_ID) cmdListCount.CommandType = 4 cmdListCount.CommandTimeout = 0 cmdListCount.Prepared = true set rsListCount = cmdListCount.Execute rsListCount_numRows = 0 %> <% Dim rsFAQ Dim rsFAQ_numRows Set rsFAQ = Server.CreateObject("ADODB.Recordset") rsFAQ.ActiveConnection = MM_cnBooks_STRING rsFAQ.Source = "SELECT * FROM dbo.cwcFAQ ORDER BY zorder ASC" rsFAQ.CursorType = 2 rsFAQ.CursorLocation = 2 rsFAQ.LockType = 1 rsFAQ.Open() rsFAQ_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsFAQ_numRows = rsFAQ_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsFAQ_numRows = rsFAQ_numRows + Repeat2__numRows %>
|
Abacci > Books > FAQ | ||||
Frequently Asked Questions<% if session("supervisor") = "true" then %> Add a FAQ <% end if %> <% While NOT rsFAQ.EOF %> "><%=(rsFAQ.Fields.Item("faq").Value)%><% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsFAQ.MoveNext() Wend if not rsFAQ.bof then rsFAQ.movefirst end if %>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsFAQ.MoveNext() Wend %>
|
|||||
Home | Authors | Titles | Categories | Your List | <% if session("username") <> "" then%> Log Out | Your Account <% else %> Login <% end if %> | Contact Us | Site Map
Site Design: Megalong Multimedia