Cedar
Point News
<%
Const strDbbconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\experiencethepoint.com\news.mdb ;User Id=admin;Password=;" ' **** Use for IIS 5.0 or PWS
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDbbconnect
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select title,date from articles'"
rs.Open sql, cn
%>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
· <%= rs("title") %>
<%
rs.MoveNext
loop
%>
|
Newsletter
<%
IF request.form("newsl")="x" Then
Name = Request.form("name")
Email = Request.form("emailaddresss")
IP = request.servervariables("remote_addr")
Const strDDbconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\experiencethepoint.com\newsletter.mdb ;User Id=admin;Password=;" ' **** Use for IIS 5.0 or PWS
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDDbconnect
set rs = server.createobject("ADODB.Recordset")
sql = "select ip from address where IP ='" & IP & "'"
rs.Open sql, cn
if rs.eof then
' if the user has not voted previously indicate it
been_here_before="No"
end if
rs.close
if been_here_before = "No" then
' Since the user has not voted previously their input
' their vote will be added to the db
sql = "insert into address ( Email, IP) "
sql = sql & "values ('" & Email & "','" & IP & "')"
rs.Open sql, cn
end if
%>
<% end if %>
|
|
<%
Const strDbbconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\experiencethepoint.com\news.mdb ;User Id=admin;Password=;" ' **** Use for IIS 5.0 or PWS
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDbbconnect
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select text from welcome'"
rs.Open sql, cn
%>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<%= rs("text") %> - Andrew Hyde
|
<%
rs.MoveNext
loop
%>
|
Current Poll
<%
'Two varibles are passed into the db
'u_input is the value if the user entered a response to
'the vote/poll question....IP is the address of the user
u_input=request.form("u_input")
u_ip=request.servervariables("remote_addr")
' if the user did not enter anything in the poll on this visit
' then display the poll question and possible choices
if u_input = "" then
%>
<%
else
' if the user did input a choice on the vote/ballot
' check to see if their ip address is already in the db
' if the directory your .asp page is in does not have user
' write authority the accessdb variable and access db may
' need to be moved to your /cgi-bin/ directory and add that to the code below
Const strDbconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\experiencethepoint.com\poll.mdb ;User Id=admin;Password=;" ' **** Use for IIS 5.0 or PWS
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open strDbconnect
set rs = server.createobject("ADODB.Recordset")
sql = "select ip from ballot where ip ='" & u_ip & "'"
rs.Open sql, cn
if rs.eof then
' if the user has not voted previously indicate it
been_here_before="No"
end if
rs.close
if been_here_before = "No" then
' Since the user has not voted previously their input
' their vote will be added to the db
sql = "insert into ballot (ip, selection" & u_input &") "
sql = sql & "values ('" & u_ip & "',1)"
rs.Open sql, cn
end if
'This will summerize and count the records in the db
sql= "select distinctrow "
sql= sql & "sum(selection1) as sum_selection1, "
sql= sql & "sum(selection2) as sum_selection2, "
sql= sql & "sum(selection3) as sum_selection3, "
sql= sql & "sum(selection4) as sum_selection4, "
sql= sql & "count(*) AS total_votes "
sql= sql & "FROM ballot;"
rs.Open sql, cn
total1=rs ("sum_selection1")
total2=rs ("sum_selection2")
total3=rs ("sum_selection3")
total4=rs ("sum_selection4")
count=rs ("total_votes")
%>
When do you think Cedar Point will get another
coaster?
<%= formatnumber((total1/count)*100,1) %>% 2002
<%= formatnumber((total2/count)*100,1) %>% 2003
<%= formatnumber((total3/count)*100,1) %>% 2004
Total Votes: <%= formatnumber(count,0,0) %>
Poll Archive
<% end if %>
|
Site
News
|
|