Texas Parks & Wildlife |
|||||
|
<%
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 %> |
|||||
|
|
|||||
