9-1-1 Magazine

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim varTypeID varTypeID=3 Dim comCategories__TypeID comCategories__TypeID = "0" if(varTypeID <> "") then comCategories__TypeID = varTypeID %> <% set comMagazineCover = Server.CreateObject("ADODB.Command") comMagazineCover.ActiveConnection = MM_conn911user_STRING comMagazineCover.CommandText = "dbo.spMagazineCover" comMagazineCover.Parameters.Append comMagazineCover.CreateParameter("@RETURN_VALUE", 3, 4) comMagazineCover.CommandType = 4 comMagazineCover.CommandTimeout = 0 comMagazineCover.Prepared = true set rsMagazineCover = comMagazineCover.Execute rsMagazineCover_numRows = 0 %> <% set comFeatureList = Server.CreateObject("ADODB.Command") comFeatureList.ActiveConnection = MM_conn911user_STRING comFeatureList.CommandText = "dbo.spFeatureList" comFeatureList.CommandType = 4 comFeatureList.CommandTimeout = 0 comFeatureList.Prepared = true comFeatureList.Parameters.Append comFeatureList.CreateParameter("@RETURN_VALUE", 3, 4) set rsFeatureList = comFeatureList.Execute rsFeatureList_numRows = 0 %> <% set comJobPostingList = Server.CreateObject("ADODB.Command") comJobPostingList.ActiveConnection = MM_conn911user_STRING comJobPostingList.CommandText = "dbo.stpJobPostingList" comJobPostingList.CommandType = 4 comJobPostingList.CommandTimeout = 0 comJobPostingList.Prepared = true comJobPostingList.Parameters.Append comJobPostingList.CreateParameter("@RETURN_VALUE", 3, 4) set rsJobPostingList = comJobPostingList.Execute rsJobPostingList_numRows = 0 %> <% set comCategories = Server.CreateObject("ADODB.Command") comCategories.ActiveConnection = MM_conn911user_STRING comCategories.CommandText = "dbo.stpCategoriesOrdered" comCategories.CommandType = 4 comCategories.CommandTimeout = 0 comCategories.Prepared = true comCategories.Parameters.Append comCategories.CreateParameter("@RETURN_VALUE", 3, 4) comCategories.Parameters.Append comCategories.CreateParameter("@TypeID", 3, 1,4,comCategories__TypeID) set rsCategories = comCategories.Execute rsCategories_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsCategories_numRows = rsCategories_numRows + Repeat3__numRows %> <% Dim TFM_nest, lastTFM_nest%> 9-1-1 Magazine

Managing Emergency Communications for PSAP's, dispatch and field communications for EMS, Fire, Law Enforcement & Emergency Management

Career Opportunities

For those Wishing to Place their Opportunity Ad Here
E-mail jackie@9-1-1magazine.com or call Jackie at (800) 231-8911 with your proposed text and we'll return a cost quote. POs, Visa, MasterCard, American Express accepted.

<% While ((Repeat2__numRows <> 0) AND (NOT rsJobPostingList.EOF)) %> <% TFM_nest = rsJobPostingList.Fields.Item("CategoryName").Value If lastTFM_nest <> TFM_nest Then lastTFM_nest = TFM_nest %>

"><%= rsJobPostingList.Fields.Item("CategoryName").Value %>
top

<%End If %>

<%= rsJobPostingList.Fields.Item("Headline").Value %>
<% If (rsJobPostingList.Fields.Item("Path").Value) <> ("") Then 'script %> " hspace="2" vspace="2" align="left"> <% End If %> <% If (rsJobPostingList.Fields.Item("Abstract").Value) <> ("") Then 'script %> <%= rsJobPostingList.Fields.Item("Abstract").Value %>
<% End If %> <%=Replace(rsJobPostingList.Fields.Item("Content").Value,Chr(13),"
")%>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsJobPostingList.MoveNext() Wend %>

<% If Not rsFeatureList.EOF Or Not rsFeatureList.BOF Then %>

Features

<% While ((Repeat1__numRows <> 0) AND (NOT rsFeatureList.EOF)) %>

"><%= rsFeatureList.Fields.Item("Headline").Value %>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsFeatureList.MoveNext() Wend %>

<% End If ' end Not rsFeatureList.EOF Or NOT rsFeatureList.BOF %>