/asp/freeapps/pollmentor/admin_default.asp
<!--#include file="incpollmentor.asp"-->
<!--#include file="admin_includelogin.asp"-->
<html>
<head>
<%
''''''''''' (C) Stefan Holmberg 1999 - 2006
''''''''''' Free to use if these sourcecode lines is not deleted
''''''''''' http://www.aspcode.net
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
%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>FAQMentor - Admin interface</title>
<style type="text/css">
<!--
body { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
td { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
th { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
A:link {text-decoration: none;}
A:visited {text-decoration: none;}
A:hover {text-decoration: underline;}
-->
</style>
</head>
<body>
<table align="center" bgColor="#ECECD9" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td vAlign="top" width="50%" height="60">
<b><a href="http://www.aspcode.net/"><font face="verdana,arial,helvetica" size="1">http://www.aspcode.net</font></a></b>
</td>
<td vAlign="top" width="468" height="60">
<b><font face="verdana,arial,helvetica" size="+2">Admin
interface</font></b>
<table border="0" width="100%">
<tr>
<td width="50%">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="100%" vAlign="top" width="100%" colspan="2">
<table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td height="100%" vAlign="top" width="85%">
<table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td align="left" height="100%" vAlign="top" width="65%">
<table border="0" width="100%">
<tr>
<td width="50%"><b><font color="#aa3333" face="verdana,arial,helvetica" size="4">PollMentor <%=Session("fullname")%></font></b>
</td>
<td width="50%">
<%
Response.Write FAQ_GetAd(1)
%> banner1 </td>
</tr>
</table>
<font color="#aa3333" face="verdana,arial,helvetica" size="+2">
<hr color="#000066" noShade SIZE="1">
</font>
<table border="0" width="100%">
<tr>
<td width="70%">
<font face="helvetica, arial" size="2"><b><i>These polls
are available </i></b></font>
<form method="POST" action="admin_default.asp?saveactive=yes">
<table border="1" width="100%">
<tr>
<td><b>Active</b></td>
<td><b><a href="admin_default.asp?sort=question">Question</a></b></td>
<td><b><a href="admin_default.asp?sort=createdwhen">Added
when</a></b></td>
<td width="100"><b>Action</b></td>
</tr>
<%
Dim oRS
Set oRS = oConn.Execute("select * from " & Poll_GetTablePrefix() & "poll order by " & strSort)
Dim bgcolor
bgcolor = "#ECECD9"
while not oRS.EOF
%>
<tr>
<%
Dim sBold, sBoldStop, sSel
If oRS("active") = True Then
sBold = "<b>"
sBoldStop ="</b>"
sSel = "checked"
Else
sBold = ""
sBoldStop = ""
sSel = ""
End If
%>
<td bgcolor="<%=bgcolor%>">
<p><input type="radio" value="<%=oRS("id")%>" <%=sSel%> name="ACTIVE">
<%=sBold%></td>
<td bgcolor="<%=bgcolor%>"><%=sBold%><%=Trim(oRS("question"))%><%=sBoldStop%></td>
<td bgcolor="<%=bgcolor%>"><%=sBold%><%=oRS("createdwhen")%><%=sBoldStop%></td>
<td width="100" bgcolor="<%=bgcolor%>"><b><a href="admin_poll.asp?id=<%=oRS("id")%>&action=edit">Modify</a>
- <a href="admin_poll.asp?id=<%=oRS("id")%>&save=yes&action=del">Delete</a></b></td>
</tr>
<%
If bgcolor="#ECECD9" Then
bgcolor = "#FFFFFF"
Else
bgcolor="#ECECD9"
End if
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
</table>
<input type="submit" value="Set active poll!" name="B1">
</form>
<p><font face="helvetica, arial" size="2"><a href="admin_poll.asp?action=new">Add
new poll</a></font></p>
<p><font face="helvetica, arial" size="2">PollMentor is
developed by <a href="http://www.aspcode.net">ASPCode.net</a>. Usage of it is totally free.</font></p>
<br>
<table border="0" width="100%">
<tr>
<td width="50%">
<%=FAQ_GetAd(3)
%>
</td>
<td width="50%">
<%=FAQ_GetAd(2)
%>
</td>
</tr>
</table>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>