NewsInfoTravelRidesOffseason Guide
2002 Features About Links Book

Tip of the Day

<% Const strDbbconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\experiencethepoint.com\totd.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 tip,Date FROM tips WHERE date='" & date() & "';" rs.Open sql, cn %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <%= rs("Tip") %> <% rs.MoveNext loop %>


Want the official info? Try Cedar Point's official website

Cedar Point is more than a park....

 

              .... It's an Experience


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 %>
">

Sign up for our  newsletter today.
Your Email Address: 


To unsubscribe click here
<% 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.MoveNext loop %>

      
      <%= rs("text") %> - Andrew Hyde

 

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 %>
">

When do you think Cedar Point will get another coaster?
2002
2003
2004

    Poll Archive
<% 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