<% Set RSFAQ = Server.CreateObject("ADODB.Recordset") If Request.QueryString("what") = "cat" Then FAQ = "SELECT tblFAQ.*, tblFAQCat.Name AS CatName FROM tblFAQ INNER JOIN tblFAQCat ON tblFAQ.CatID = tblFAQCat.ID WHERE tblFAQ.CatID = " & Request.QueryString("catid") & " AND tblFAQ.Deleted = False ORDER BY tblFAQ.Rubrik, tblFAQ.Datum" Else FAQ = "SELECT tblFAQ.*, tblFAQCat.Name AS CatName FROM tblFAQ INNER JOIN tblFAQCat ON tblFAQ.CatID = tblFAQCat.ID WHERE tblFAQ.Deleted = False ORDER BY tblFAQCat.Name, tblFAQ.Rubrik, tblFAQ.Datum" End If RSFAQ.Open FAQ, Connect, adOpenStatic, adLockOptimistic %> Listar valda Frågor
<% If Request.QueryString("what") = "cat" Then %> <% Set RSFAQCat = Server.CreateObject("ADODB.Recordset") FAQCat = "SELECT * FROM tblFAQCat WHERE ID = " & Request.QueryString("catid") & " " RSFAQCat.Open FAQCat, Connect, adOpenStatic, adLockOptimistic %> ( <% =RSFAQCat("Name") %> ) <% RSFAQCat.Close %> <% End If %>

<% If RSFAQ.EOF Then %> <% Else %> <% x = 1 Do Until RSFAQ.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSFAQ.MoveNext Loop End If RSFAQ.Close Set RSFAQ = Nothing %>
Frågor

Inga Frågor hittades...

"><% =RSFAQ("Rubrik") %>
<% =RSFAQ("CatName") %>