Emergency Services |
|||||||||||
|
<%
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=convert2Str(objRS("Holiday")) & " " end if objRS.Close strSQL="Select Message from t_FRM_WebMessage" objRS.Open strSQL , ObjConn, adOpenDynamic, ,adCmdText if not objRS.EOF then tempInfo=tempInfo & convert2Str(objRS("Message")) & " " end if objRS.Close objRS.Open "Exec sp_BC_Get_BurnFlag ", objConn if (not objRS.EOF) then if (objRS("BurnFlag")="B") then tempInfo = tempInfo & "Burn Ban in Effect for Denton County" end if 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 function convert2Str(byVal strText) if (not isnull (strText)) then strText = Replace(strText, " ", " ")
strText = Replace(strText, " |
|||||||||||
|
Emergency Services
Site |
|||||||||||
|
Staff and Contact Information:
Jody
A. Gonzalez,
Chief
Roland
Asebedo, Assistant Chief
Wade Woody, Emergency Management Specialist
Andy Sissney, Investigator |
|
||||||||||
|
Location & Hours
(940) 349-2840 (Metro) |
|
||||||||||
|
Mission
Statement The mission of the Denton County Fire Marshal's Office and Office of Emergency Management is to provide for, supervise, support, and train all Fire and EMS departments within unincorporated Denton County. Further, this office will strive to provide for the health, safety and welfare of the citizens of Denton County in accordance with Chapter 352 of the Texas Local Government Code, county policy and sound emergency management practices.
|
|||||||||||