% 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 %>
Frågor |
---|
Inga Frågor hittades... |
"><% =RSFAQ("Rubrik") %> <% =RSFAQ("CatName") %> |