<% Set DB = Server.CreateObject("ADODB.Connection")
dbPath = "DBQ=" & Server.Mappath("/Howto/WebMessage.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " &dbPath
sqlCommand = "SELECT * FROM FlagTable where ID=1"
Set dbRs = DB.Execute(sqlCommand)
strWeather = dbRs.fields("WeatherPopUp")
sqlCommand = "Select * from Message where ID=1"
Set dbRs = DB.Execute(sqlCommand)
strAlert = dbRs.fields("Message")
empclass = dbRs.fields("empclass")
set dbRs = nothing
DB.Close
set DB = nothing
%>
<% if strAlert <> "" then
%>
<% end if
%>
Sorry, the page that you are looking for is currently unavailable.
Please help us out by letting you know about this problem by sending us an email to Webdev@cccti.edu
Use the link to access our home page