<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim blog
Dim blog_cmd
Dim blog_numRows
Set blog_cmd = Server.CreateObject ("ADODB.Command")
blog_cmd.ActiveConnection = MM_webblogmanager_STRING
blog_cmd.CommandText = "SELECT DateAdded, ItemName FROM tblItems ORDER BY DateAdded DESC"
blog_cmd.Prepared = true
Set blog = blog_cmd.Execute
blog_numRows = 0
%>
<%
Dim poll
Dim poll_cmd
Dim poll_numRows
Set poll_cmd = Server.CreateObject ("ADODB.Command")
poll_cmd.ActiveConnection = MM_pollingboothmanager_STRING
poll_cmd.CommandText = "SELECT DateAdded, DisplayStatus, QuestionValue FROM tblPBM_PollQuestions ORDER BY DisplayStatus DESC"
poll_cmd.Prepared = true
Set poll = poll_cmd.Execute
poll_numRows = 0
%>
Mojo 104.7 | Get Your Mojo On...
