<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Dim rsDistrict
Dim rsDistrict_cmd
Dim rsDistrict_numRows
Set rsDistrict_cmd = Server.CreateObject ("ADODB.Command")
rsDistrict_cmd.ActiveConnection = MM_caao_STRING
rsDistrict_cmd.CommandText = "SELECT * FROM District"
rsDistrict_cmd.Prepared = true
Set rsDistrict = rsDistrict_cmd.Execute
rsDistrict_numRows = 0
%>
C A A O
<% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then %>
