<%@ Language=VBScript%> <%Response.Buffer = True%> Reporting voters and paswords <% Dim strSQL Dim commname strSQL = "SELECT faculty.L_NAME, faculty.F_NAME, faculty.LOGIN_ID, users.password" strSQL = strSQL + " FROM FACULTY, users" strSQL = strSQL + " WHERE faculty.USER_ID = users.ID" strSQL = strSQL + " ORDER BY L_NAME" dbNVS.Open set myRS = Server.CreateObject("ADODB.Recordset") myRS.ActiveConnection = dbNVS myRS.Open strSQL, dbNVS %>

Reporting voters and paswords

<% While NOT myRS.EOF %> <% myRS.MoveNext Wend set myRS = Nothing dbNVS.Close %>

MEMBER	LOGIN_IN	PASSWORD
---------	---------	----------
<%=CStr(myRS.Fields("F_Name").Value) + " " + CStr(myRS.Fields("L_Name").Value)%>	<%=CStr(myRS.Fields("LOGIN_ID").Value)%>	<%=CStr(myRS.Fields("PASSWORD").Value)%>