<%@language="VBscript"%>
<%
theDataBaseNameNews = Server.MapPath("/dbase/db.mdb")
theConnectionStringNews = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & theDataBaseNameNews & ";"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open theConnectionStringNews
SQL = "SELECT * FROM NEWS ORDER BY OrderID ASC"
set rsdata = objconn.execute(SQL)%>
<%
'check if its a login
if request("theaction") = "login" then
if request("username") = "vcarling" and request("password") = "quintus" then
session("admin") = "1"
response.Redirect("AdminMenu.asp")
end if
end if
%>
Welcome to The BlackRock Masters Tournament 2008
