<% @ LANGUAGE="VBSCRIPT" %> <% 'declaring all database variables and opening connections Set dc = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dc.Open "DBQ=" & Server.Mappath("access_db/ncuaa_db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" %> Members

NCUAANA Members

<% If Request.QueryString("sort") = "state" then%> 
(Sort by Last Name)				(Sorted by State/Province)
<%else%> 
(Sorted by Last Name)				(Sort by State/Province)
<%end if%> <% On Error Resume Next If Request.QueryString("sort") = "state" then MYSQL = "SELECT * FROM member_info order by state" 'selects the member_info table in the database else MYSQL = "SELECT * FROM member_info order by last_name,first_name" 'selects the member_info table in the database end if rs.Open MYSQL, dc, 1, 3 'opens the database Response.Write "
" Response.Write "" do while not rs.EOF Response.Write "" 'rs.Fields("last_name") = Trim(Request.Form("txtLastName")) 'rs.Fields("email_address") = Trim(Request.Form("txtEmailAddress")) 'rs.Fields("city") = Trim(Request.Form("txtCity")) 'rs.Fields("state") = Trim(Request.Form("txtState")) 'rs.Fields("country") = Trim(Request.Form("lstCountry")) 'rs.Fields("occupation") = Trim(Request.Form("txtOccupation")) 'rs.Fields("school_year") = Trim(Request.Form("txtSchoolYear")) 'rs.Fields("major") = Trim(Request.Form("txtMajor")) 'rs.Fields("department") = Trim(Request.Form("txtDepartment")) 'rs.Fields("school") = Trim(Request.Form("lstSchool")) 'rs.Fields("register_date") = sRegisterDate rs.movenext loop Response.Write "
NameEmail AddressCurrent LocationOccupationSchool YearMajorDepartment
" Response.Write rs.Fields("last_name") Response.Write "," Response.Write rs.Fields("first_name") Response.Write "" if rs.Fields("show_email_address") then Response.Write rs.Fields("email_address") end if Response.Write "" Response.Write rs.Fields("city") Response.Write "," Response.Write rs.Fields("state") Response.Write "," Response.Write rs.Fields("country") Response.Write "" Response.Write rs.Fields("occupation") Response.Write "" Response.Write rs.Fields("school_year") Response.Write "" Response.Write rs.Fields("major") Response.Write "" Response.Write rs.Fields("department") Response.Write "
" Response.Write "Number of members is " Response.Write rs.RecordCount rs.close set rs = Nothing %>
© 2002, Nanchang University Alumni Association in North America
All Rights Reserved.
Maintained and Financial Supported by Bin Yang