Jump to Main Content
Home
Our Office
Case Information
Victim Witness Information
Resources / Information
Newsroom
Join the Team
<% '***** Connect to ASADuty Roster Database ***************** connectString = "SERVER=sql1;DRIVER={SQL Server};" _ & "DATABASE=Office;UID=irhelp;pwd=irhelp;" %>
<% '********************* Declare variables dim myConnection dim rsList dim connectString dim Description '********** Connection via Include File Set myConnection = Server.CreateObject("ADODB.Connection") Set rsList = Server.CreateObject("ADODB.Recordset") myConnection.Open connectString sqlQuery = "Select * From tblInternetMarquee2" Set rsList = myConnection.Execute(sqlQuery) %>
" /> <% =rsList("Description")%>
