<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<% REM ######################################################################### %>
<% REM %>
<% REM wiredconcept %>
<% REM ports.asp %>
<% REM %>
<% REM ######################################################################### %>
<% REM Include Connection.asp File to Manage ODBC Connection %>
<% REM Begin Ports Access %>
<%
dim rsStates 'as recordset
set rsStates = Server.CreateObject("ADODB.Recordset")
dim strSQL 'as string
dim strUserLogin 'as string
dim strUserPass 'as string
strSQL = "SELECT * FROM tablePorts WHERE PortActive='Y'"
'strSQL = "SELECT Distinct tablePorts.PortState, tableStates.nameState FROM tablePorts, tableStates WHERE tablePorts.PortState = tableStates.idState AND tablePorts.PortActive = 'Y'"
rsStates.open strSQL,conn
strUserLogin = Session("strUserLoginInput")
strUserPass = Session("strUserPassInput")
%>
<% REM End Illustrations Access %>
SEAPORT AGENCIES | VENEZUELAN PORTS
