| |
FAQ's
<%
Dim SectionName
if(Request.QueryString("FAQSECTION") = "1") then SectionName = "TITAN VBT Related Questions"
if(Request.QueryString("FAQSECTION") = "2") then SectionName = "MEDIAQUE Related Questions"
if(Request.QueryString("FAQSECTION") = "3") then SectionName = "SUMMIT Related Questions"
sql = "select * from MAIN_FAQ where FAQSECT = "& Request.QueryString("FAQSECTION") & " ORDER by faqname"
set rs = conn.execute(sql)
'set rs = Server.CreateObject("ADODB.Recordset")
'set cmd = Server.CreateObject("ADODB.Command")
'cmd.commandtext = sql
'cmd.commandtype = 1
'set cmd.activeconnection = conn
'rs.open cmd, , 1, 3
%>
<% if rs.eof then%>
There are No FAQ's To Display
<%else %>
<% =SectionName %>
<%
DO UNTIL rs.eof
response.write ""
response.write rs("faqname")
response.write "
"
rs.movenext
loop
rs.movefirst
end if
%>
<% if rs.eof then%>
<%else %>
|
| |
<%
DO UNTIL rs.eof
%>
|
 <%=rs("faqcont")%>
|
|
|
<%rs.movenext
loop
rs.movefirst%>
<%end if %>
<% conn.close %>
|
| |
|
|
|
|
