|
|
<%
dim oFaqRS
if DoEvents>0 Then DoEvents
'If IsObject(Session("FAQ_oRS")) Then 'Set oFaqRS = Session("FAQ_oRS")
'Else sql = "SELECT [FAQ].[FAQID], [FAQ].[Group], [FAQ].[Question],
[FAQ].[SortPrimary], [FAQ].[SortSecondary], [FAQ].[UseFile] " & _
"FROM FAQ " & _ "WHERE [FAQ].[UseFile]= True " & _ "ORDER BY
[FAQ].[SortPrimary], [FAQ].[SortSecondary];" Set oFaqRS =
Server.CreateObject("ADODB.Recordset") oFaqRS.Open sql, sConn ', 3, 3
Set Session("FAQ_oRS") = oFaqRS 'End If
Dim sLink
dim sImageLink
%>
<%
On Error Resume Next
oFaqRS.MoveFirst
do while Not oFaqRS.eof
sLink = "" & Server.HTMLEncode(oFaqRS.Fields("Question").Value) & ""
sImageLink = ""
if oFaqRS.Fields("SortSecondary").Value = 0 then
'Add a New Header Row
%>
<%
else
'Insert the Value
%>
<%
end if
oFaqRS.MoveNext
loop
oFaqRS.Close
set oFaqRS = nothing
%>
|
|
|
|
|
<%=Response.Write(oFaqRS.Fields("Question").Value)%>
|
|
|
|
<%=Response.Write(sImageLink)%>
|
<%=Response.Write(sLink)%>
|
|
|
|
