<% dim conn 'database connection objects dim rs 'recordset dim strSQL 'sql query dim endline dim administrator 'set endline endline = chr(10) administrator = false if Session("ID") then 'create the connection object set conn = Server.CreateObject("ADODB.Connection") 'open the connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\home\hnt7c211\legacy\f7e8af3jk23sd3.mdb;" 'create a recordset set rs = Server.CreateObject("ADODB.Recordset") 'get a record count strSQL = "SELECT Is_Admin FROM Users WHERE ID=" & Session("ID") rs.Open strSQL, conn if rs.Fields("Is_Admin") = "ON" then administrator = true end if 'now close connection rs.Close set rs = Nothing set conn = Nothing else Session("responseString") = "You must be signed in to do that! " &_ "Sign in now." 'redirect to form_submit Response.Redirect "form_submit.asp" end if %> Legacy Cruise II
<%=welcomeString%>

Legacy Cruise II departs in
Home Register & Vote History Attendees Pictures Guestbook Links Feedback

Account Management

Add Your Party Members
Change Your Password
Delete Your Account

<% if administrator then response.write( "

Administrator Functions

" ) response.write( "

Registered Users
" ) response.write( "Image Approval
" ) response.write( "Manage Administrators
" ) response.write( "Newsletter Email Addresses
" ) response.write( "Manage Guestbook Entries

" ) end if %>

Account Management   Email Newsletter   Voting Results

Copyright © 2005 Legacy Cruise Productions. All Rights Reserved.