<%@Language=VBScript%> <% pFaq=" class='active'" %>

FAQ

<% intPage = 1 varRecStatus = "A" varTransType="InfDex" varSrc = Request("Src") varID = Request("ID") varCatID = 0 varKeyWord = Request("KeyWord") varName = Request("RefName") intPage = CInt(Request("Page")) if intPage = 0 or ISNull(intPage) = True or ISEmpty(intPage) = True then intPage = 1 end if if varKeyWord <> "" then varSrchReq = varSrchReq & varKeyWord end if if varID > 0 then if varKeyWord <> "" then varSrchReq = varSrchReq & " + " end if else varID=5 varName="" varKeyWord="" end if %> Black Legend Awards FAQ | Black History Museum FAQ

<% if varID=4 then %>

Black Legend Awards FAQ

<% else %>

Black History Museum FAQ

<% end if %>

<% varSubCategoryName = "" varCategoryName = "" varRequestPRD = "InfDex" Set oRS=Server.CreateObject("ADODB.recordset") Set objCmd=Server.CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objConn objCmd.CommandText = "sp_GetItemKWList" objCmd.CommandType = adCmdStoredProc set parm1= objCmd.CreateParameter("@ClientID", adVarChar, adParamInput,10 ,varClientID) objCmd.Parameters.Append parm1 set parm2= objCmd.CreateParameter("@SubCategoryID", adInteger, adParamInput, ,varID) objCmd.Parameters.Append parm2 set parm3= objCmd.CreateParameter("@ItemName", adVarChar, adParamInput,250 ,varName) objCmd.Parameters.Append parm3 set parm4= objCmd.CreateParameter("@KeyWordValue", adVarChar, adParamInput,40 ,varKeyWord) objCmd.Parameters.Append parm4 set parm5= objCmd.CreateParameter("@Page", adInteger, adParamInput, ,intPage) objCmd.Parameters.Append parm5 set oRS = objCmd.Execute Call CheckForErrors(objConn) 'Check for errors if objconn.Errors.Count > 0 then set objErr = Server.CreateObject("ADODB.RecordSet") For Each objErr In objConn.Errors if objErr.Number <> 0 Then Response.Write "

System Error Description: " & objErr.Description & "

" Response.Write "
The system encountered a problem in processing your request. Please send an email to our " Response.Write "technical support team with the description included in the body of the email." Response.Write " We are sorry for any inconvenience that you're experiencing. We will look into this problem asap and notify you of our status." Response.Write "

Please feel free to contact us if you have any questions. " Response.Write "" & vargTechSuptEmail & "" blnCriticalError = True end if Next Set objErr = Nothing if blncriticalError Then Response.End end if objErr.Close set objErr = Nothing end if intLastPage = CInt(oRS("iPageCnt")) if intLastPage < intPage then intLastPage = intPage end if varSubCategoryName = oRS("SubCategoryName") if varSubCategoryName <> "" then Response.Write "

" Do While not oRS.EOF Response.Write "" oRS.MoveNext Loop if intLastPage > 1 then varDsplyPageNum = "Page: " & intPage & " of " & intLastPage Response.Write "
" & oRS("ItemName") & "
" Response.Write oRS("ItemDesc") & "
" & varDsplyPageNum & "" strScriptName = Request.ServerVariables("SCRIPT_NAME") if intPage <= 1 then Response.Write " Prev Page   |  " else Response.Write " Prev Page   |  " end if If intLastPage = intPage or intLastPage = 1 then Response.Write " Next Page" else if intPage = 0 then if intLastPage > 1 then intNextPage = 2 else intNextPage = intLastPage end if else intNextPage = intPage + 1 end if Response.Write " Next Page" end if Response.Write "
" end if Response.Write "
" else Response.Write "


No FAQ questions are available



" end if objCmd.Close set objCmd = Nothing oRS.Close set oRS = Nothing parm1.Close set parm1 = Nothing parm2.Close set parm2 = Nothing parm3.Close set parm3 = Nothing parm4.Close set parm4 = Nothing parm5.Close set parm5 = Nothing parm6.Close set parm6 = Nothing parm7.Close set parm7 = Nothing objConn.Close set objConn = Nothing %>