<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="admin" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_getDirectory_STRING Recordset1_cmd.CommandText = "SELECT * FROM updated_addressbook ORDER BY LastName ASC" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> saigonkids

   Saigon Kids Web Site

Go to Nowhere
Go to News Pane
Go to the Times Pane
Go to the School Pane
Go to Phot Gallery
Go to Directory Pane
Go to Reunions Pane
Go to Newsletters pane
Go to Calendar
Go to Links pane
Go to contact us pane
Go to Home pane
Go to Login Pane

<%While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))%> <%If (Repeat1__numRows Mod 2) Then%> <%Else%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
Last Name First Name Email Address Phone Number Street Address City State Zip Code Country Class and Status Years in Saigon
<%=(Recordset1.Fields.Item("LastName").Value)%> <%=(Recordset1.Fields.Item("FirstName").Value)%> "><%=(Recordset1.Fields.Item("EMail").Value)%> <%=(Recordset1.Fields.Item("Phone_No").Value)%> <%=(Recordset1.Fields.Item("Street_Address").Value)%> <%=(Recordset1.Fields.Item("City").Value)%> <%=(Recordset1.Fields.Item("State").Value)%> <%=(Recordset1.Fields.Item("Zip").Value)%> <%=(Recordset1.Fields.Item("Country").Value)%> <%=(Recordset1.Fields.Item("Class_And_Status").Value)%> <%=(Recordset1.Fields.Item("Years_In_Saigon").Value)%>
Home|Links|Contact Us|Top of Page
<% Recordset1.Close() Set Recordset1 = Nothing %>