<%
Dim dbname,err,contype
session("frompage")="1"
mychar="'"
ismysql="False"
if InStr(constring,"MySQL")>0 THEN ismysql="True"
'convert to mysql
function convertDate(varDate)
if day(varDate) < 10 then
dd = "0" & day(varDate)
else
dd = day(varDate)
end if
if month(varDate) < 10 then
mm = "0" & month(varDate)
else
mm = month(varDate)
end if
convertDate = year(varDate) & mm & dd
end function
thisdate=Date()
if ismysql="True" Then thisdate=(convertDate(thisdate))
if InStr(constring,"MICROSOFT.JET")>1 THEN mychar="#"
err=Request("err")
sid=Request("sid")
ownedby=Replace(Request("host"),"'","''")
if sid="" Then
if ownedby="" THEN ownedby="All"
end if
dbname="collaborate"
Dim conn
Set conn= Server.CreateObject("ADODB.Connection")
Conn.Open constring
'Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&(Server.MapPath("../../database/"&dbname&"/"&dbname&".mdb"))
if sid<>"" Then
set rsname=Server.CreateObject("ADODB.Recordset")
sqlname="select project from projects where meetingid="&sid
rsname.open SQLname,conn,3,3,1
sname=Replace(rsname(0),"''","'")
rsname.close
set rsname=Nothing
end if
if sid="" Then
set rsowner=Server.CreateObject("ADODB.Recordset")
sqlowner="select DISTINCT(owner) FROM projects where ispublic='yes' AND opendate >="&mychar&thisdate&mychar&" order by owner asc"
rsowner.open SQLowner,conn,3,3,1
if ownedby="All" Then
sqlresult="select * FROM projects where password1='yes' AND ispublic='yes' AND (opendate+7) >"&mychar&thisdate&mychar&" AND opendate <"&mychar&thisdate&mychar&" order by datepub desc"
sql="select * FROM projects where ispublic='yes' AND opendate >="&mychar&thisdate&mychar&" order by datepub desc"
else
sql="select * FROM projects where ispublic='yes' AND opendate >="&mychar&thisdate&mychar&" AND owner='"&ownedby&"' order by datepub desc"
sqlresult="select * FROM projects where password1='yes' AND ispublic='yes' AND (opendate+7) >"&mychar&thisdate&mychar&" AND opendate <"&mychar&thisdate&mychar&" AND owner='"&ownedby&"' order by datepub desc"
end if
set rs=Server.CreateObject("ADODB.Recordset")
set rsresult=Server.CreateObject("ADODB.Recordset")
rs.open SQL,conn,3,3,1
rsresult.open SQLresult,conn,3,3,1
myhost=Request.ServerVariables("SERVER_NAME")
end if
%>
<%if sid="" Then%>
<%end if%>
<%if ownedby<>"" THEN%>
Click Survey Name to Select
| Survey Name |
Created By |
Survey Closes |
<%while not rs.eof%><%istoday=""%><%mytdate=(rs("datepub")-Date())%><%bdate=mytdate%>
<% if bdate=0 Then istoday="NEW"%>
| "><%=Replace(rs("project"),"''","'")%>
<%=istoday%>
|
<%=rs("owner")%> |
<%mydays="days"%>
<% theframe=(rs("opendate")-Date())%><%if theframe=1 then mydays="day"%><%tframe=theframe&" "&mydays&" left"%>
<% if theframe = 0 Then tframe="Last Day"%><% if theframe > 5 Then tframe=""%>
<%=rs("opendate")&" "%><%=tframe%> |
<%=rs("context")%>
|
<%rs.movenext%><%wend%>
<%if not rsresult.eof THEN%>
View Results of Past Surveys (within last 7 days)
| Survey Name |
Created By |
<%while not rsresult.eof%>
| <%=rsresult("project")%> ">View Results |
<%=rsresult("owner")%> |
<%rsresult.movenext%><%wend%>
<%end if%>
<%end if%>
<%if sid<>"" Then%>
Enter your email address below and submit. You will immediately receive an email with a direct link to the:
<%=sname%> .
Privacy Policy:
No personal information is collected from visitors to our website.
We also do not collect or harvest the Email addresses of people who participate in our surveys.
The Email addresses are used ONLY TO ENSURE THE INTEGRITY OF OUR SURVEYS
, by allowing one submission per Survey for each Email address.
<%end if%>
<%
conn.close
set conn=nothing
if sid="" Then
set rsowner=nothing
set rsresult=nothing
set rs=nothing
end if
%>