<%@ Language="Vbscript" %> <% Option Explicit %> <% Dim Conn Dim Rs Dim sql Dim x Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") 'Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & 'Server.MapPath("FeedBack.mdb") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & ("mpesadata.mdb") sql = "SELECT strUserName, strPassword " sql = sql & " FROM tblASPUserslive " Rs.Open sql, Conn %> <%for each x in rs.Fields response.write("") next%> <%do until rs.EOF%> <%for each x in rs.Fields%> <%next rs.MoveNext%> <%loop rs.close conn.close Set Rs = Nothing Set Conn = Nothing %>

Users List
" & x.name & "
<%Response.Write(x.value)%>

<% dim IP IP = Request.ServerVariables ("REMOTE_ADDR") 'Retrieves the user IP Address %> <% 'show them Response.Write("IP Address: "&IP &"
") %>