<% Dim Category,metaTitle,metaDescription,metaKeyords Category = request.cookies("Category") metaTitle = request.cookies("metaTitle") metaDescription = request.cookies("metaDescription") metaKeywords = request.cookies("metaKeywords") %> Homeland Security Directory, <% = metaTitle %>

<% objRS.Open "SELECT * FROM tblCategory ORDER BY Category",objDC Do While Not objRS.EOF Cat = objRS("Category") response.write("" & Cat & "
") response.write("
") objRS.MoveNext Loop objRS.Close %>


<% C = request.querystring("c") If c = "home" then Category = 0 If category = "" Then Category = 0 If Category > 0 Then objRS.Open "SELECT Category,Includes FROM qryDirectory WHERE recCategory = " & Category,objDC response.write("" & objRS("Category") & "
Includes: " & objRS("Includes") & "


") objRS.Close objRS.Open "SELECT * FROM qryDirectory WHERE recCategory = " & Category & " AND AdLevel = 'Professional' ORDER BY Company",objDC If objRS.EOF Then response.write("") objRS.Close Else response.write("") Do While Not objRS.EOF AdCopy = objRS("AdCopy") AdCopy = replace(AdCopy,""",Chr(34)) AdCopy = replace(AdCopy,"’",Chr(39)) response.write("") response.write("") response.write("") objRS.MoveNext Loop objRS.Close response.write("
") response.write("

") response.write("

" & objRS("website") & "

") response.write("

" & AdCopy & "

") response.write("
") End If objRS.Open "SELECT * FROM qryDirectory WHERE recCategory = " & Category & " AND AdLevel = 'Premium' ORDER BY Company",objDC If objRS.EOF Then response.write("") objRS.Close Else response.write("") Do While Not objRS.EOF response.write("") response.write("") response.write("") objRS.MoveNext Loop objRS.Close response.write("
") response.write("

") response.write("

" & objRS("website") & "

") response.write("
") End If objRS.Open "SELECT * FROM qryDirectory WHERE recCategory = " & Category & " AND AdLevel = 'Basic' ORDER BY Company",objDC response.write("") Do While Not objRS.EOF response.write("") response.write("") response.write("") objRS.MoveNext Loop objRS.Close response.write("
") response.write("" & objRS("Company") & "") ' response.write("" & objRS("Company") & "") response.write("
") Else %> Our Goal.
Welcome to the new directory at HomelandSecurityResources.com

Our goal is to simplify your search for Homeland Security products and services.

Browse the categories to the left and opt-in to receive requested updates and new product releases. We are in the business of confidentiality and do not sell your information or share it with outside parties. We have a solid no spam policy.

Buyers

Find what you need. It's easy as 1, 2, 3
1. Browse the Directory of Categories in the left column.
2. Select a category and click on its link.
3. Review the company listings. Then click on the direct link to their web site.

Sellers: Advertise to reach decision makers.

For a limited time we are offering affordable charter rates.
Invest a bit more to detail your product or service. Click here for more information.
Expand your ability to reach buyers in other categories by securing a prime position for high visibility.
Contact us for Discounted Display Ad rates.
.

<% End If %>
<% If Category < 1 Then response.write("
") response.write("

") response.write("
") response.write("
") response.write("
") response.write("

") End If If Category > 0 Then objRS.Open "SELECT * FROM qryDirectory WHERE recCategory = " & Category & " AND AdLevel = 'ThisIsAnAd' ORDER BY Company",objDC If objRS.EOF Then response.write("
") response.write("

") response.write("
") response.write("
") response.write("
") response.write("

") objRS.Close Else Do While Not objRS.EOF response.write("
") AdCopy = objRS("AdCopy") AdCopy = replace(AdCopy,""",Chr(34)) AdCopy = replace(AdCopy,"’",Chr(39)) response.write(AdCopy & "
") objRS.MoveNext Loop objRS.Close End If End If %>

HOME | ABOUT US | CONTACT | ADVERTISE | GET LISTED | CALENDAR | GET UPDATES | USER AGREEMENT | PRIVACY POLICY | CREDITS

Copyright ©2010 Homeland Security Resources. All Rights Reserved.