Courthouse-on-the-Square Museum Lectures | Exhibits | Research | Traveling Museum | Tours | Reservation Request Form |
|||
|
<%
tempinfo=""
tempHoliday=""
set objconn = server.CreateObject("ADODB.Connection")
objConn.ConnectionTimeout = 15
objConn.CommandTimeout = 10
'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/fpdb/New_t_Dept.mdb")
objConn.open "DRIVER={SQL Server};SERVER=SQL3;DATABASE=PublicDB;UID=PublicDBuser;PWD=PublicDBuser"
Set objRS = Server.CreateObject("ADODB.Recordset")
'Open the recordset getting a list of all items
strSQL="Select * from t_Holiday"
objRS.Open strSQL , ObjConn, adOpenDynamic, ,adCmdText
if not objRS.EOF then
tempInfo=objRS("Holiday") & " " end if objRS.Close 'strSQL="Select H_Description from t_Holiday_List Where H_Date<='" & Date()+10 & "' and H_Date>='" & Date() & "'" strSQL="Select H_Description from t_Holiday_List Where End_Post_Date>=getDate() and Start_PostDate<=getDate()" 'response.write strSQL objRS.Open strSQL , ObjConn, adOpenDynamic, ,adCmdText do while not objRS.eof tempHoliday = tempHoliday & objRS("H_Description") & " " objRS.moveNext() loop objRS.Close objConn.Close set objRS=Nothing set objConn=Nothing %> | |||
|