<% searchtext=request.form("searchtext") Category=request.form("Category") %> <% httpref=strreverse(request.servervariables("script_name")) cnt=instr(httpref,"/") httpref=mid(mid(httpref,cnt,len(httpref)),2,len(httpref)) cnt=instr(httpref,"/") httpblogref=httpref & "BlogDocs/" httpref=httpref & "Documents/" connstr=application("DBConnwebportaldsn") %>

Frequently Asked Questions

 
Category: <% dim vaRqry,con,rs1 vaRqry="select Category_long_name,Category_short_name from faqsrm_catg" set con=server.CreateObject("ADODB.Connection") set rs1 = server.Createobject("ADODB.Recordset") con.open connstr ' rs1.open vaRqry,con ' If not rs1.EOF then %> <% ' else %> <% ' end if %> Search:

<% httpref=strreverse(request.servervariables("script_name")) cnt=instr(httpref,"/") httpref=mid(mid(httpref,cnt,len(httpref)),2,len(httpref)) cnt=instr(httpref,"/") httpblogref=httpref & "BlogDocs/" httpref=httpref & "Documents/" connstr=application("DBConnwebportaldsn") dim a,rs,sql set a=server.createobject("adodb.connection") set rs1=server.createobject("adodb.recordset") sql="select * from faqsrm where (Inactive is null or Inactive='N')" if len(searchtext)>0 then sql=sql & "and (Subject like '%" & searchtext & "%' or remark1 like '%" & searchtext & "%')" end if sql=sql & "order by AdminId asc" a.open connstr rs1.open sql,a if rs1.eof then rs1.close else if len(searchtext)>0 then %>

List of Frequently Asked Questions for\<%= searchtext%>

<% end if ShowQuestion() rs1.movefirst %>


<% ShowCirc() end if %>
<% Function ShowQuestion() if not rs1.eof then ShowQuestion=1 Counter=0 do while not rs1.eof %> <% fnam=rs1("File_Name1") flink=rs1("File_Directory") & "/" & fnam if len(fnam)>0 then %> <% End if%> <% Counter=counter+1 %> <%= Counter %>. <%= rs1("Subject") %>
<% rs1.movenext() loop else ShowCirc=0 ' response.write("" & sql & "") end if ' rs1.close End Function Function ShowCirc() if not rs1.eof then ShowCirc=1 counter=0 do while not rs1.eof %> <% fnam=rs1("File_Name1") flink=rs1("File_Directory") & "/" & fnam if len(fnam)>0 then %> <% End If %> <% Counter=counter+1 %>
<%= Counter %>. <%= rs1("Subject") %>
<%= rs1("remark1")%>
<% if len(rs1("file_name1"))>0 then %>
<%= rs1("remark2")%>
<% if len(rs1("file_name2"))>0 then %>
<% end if end if %>
<% rs1.movenext() loop else ShowCirc=0 ' response.write("" & sql & "") end if rs1.close End Function %>