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

<% 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 %>

 

Calendar of Events

<% objRS.Open "SELECT * FROM tblTradeShow ORDER BY FromDate",objDC if objRS.EOF Then response.write("

There are no events to show.

") Else response.write("") do while not objRS.EOF response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") objRS.MoveNext Loop End If response.write("
") response.write("Show") response.write("") response.write(objRS("Show")) response.write("
") response.write("Venue") response.write("") response.write(objRS("Venue")) response.write("
") response.write("City") response.write("") response.write(objRS("City")) response.write("
") response.write("Dates") response.write("") response.write(FormatDateTime(objRS("FromDate"),1) & "
To
" & FormatDateTime(objRS("ToDate"),1)) response.write("
") response.write("Comments") response.write("") response.write(objRS("Comments")) response.write("
") response.write("
") response.write("
") %>

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

Copyright © 2010 Homeland Security Resources. All Rights Reserved.