<% Set oConn = PollMentor_GetDatabaseConn() Dim strTrue Dim strFalse If PollMentor_GetDatabaseType = "SQLServer" Then strTrue = "1" strFalse = "0" Else strTrue = "True" strFalse = "False" End If Dim strSort strSort = Request.QueryString("sort") If strSort = "" Then strSort = " active, createdwhen desc" Else strSort = strSort & " desc" End If If Request.QueryString("saveactive") = "yes" Then Dim sActive Response.Write Request.Form("ACTIVE") oConn.Execute "update " & Poll_GetTablePrefix() & "poll set active=" & strFalse & " where active=" & strTrue oConn.Execute "update " & Poll_GetTablePrefix() & "poll set active=" & strTrue & " where id=" & Request.Form("ACTIVE") End If %> FAQMentor - Admin interface
¡@ Admin interface
¡@ <% Response.Write FAQ_GetAd(1) %> ¡@
These polls are available 
<% Dim oRS Set oRS = oConn.Execute("select * from " & Poll_GetTablePrefix() & "poll order by " & strSort) Dim bgcolor bgcolor = "#ECECD9" while not oRS.EOF %> <% Dim sBold, sBoldStop, sSel If oRS("active") = True Then sBold = "" sBoldStop ="" sSel = "checked" Else sBold = "" sBoldStop = "" sSel = "" End If %> <% If bgcolor="#ECECD9" Then bgcolor = "#FFFFFF" Else bgcolor="#ECECD9" End if oRS.MoveNext Wend oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %>
Active Question Added when Action

" <%=sSel%> name="ACTIVE"> <%=sBold%>

 <%=sBold%><%=Trim(oRS("question"))%><%=sBoldStop%>¡@ <%=sBold%><%=oRS("createdwhen")%><%=sBoldStop%>¡@ &action=edit">Modify - &save=yes&action=del">Delete

Add new poll

¡@


<%=FAQ_GetAd(3) %> <%=FAQ_GetAd(2) %>