Registration

Click on each name to view registration details.

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Provider = "Microsoft.Jet.OLEDB.4.0" Conn.ConnectionString = "Data Source=" & Server.MapPath ("..\..\data\adcm.mdb") 'Conn.ConnectionString = "Data Source=" & Server.MapPath ("..\data\adcm.mdb") Conn.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT ID, NAMEINCHARGE FROM Registration ORDER BY ID DESC", Conn, 1,3 Response.Write("

") 'Loop thru records do while not rs.EOF Response.Write("
1. ") Response.Write("") If len(rs("NAMEINCHARGE")) = 0 Then Response.Write "" Response.Write "UNKNOWN" Response.Write "" Else Response.Write rs("NAMEINCHARGE") End If Response.Write("") Response.Write("
") rs.MoveNext ' Movenext loop Response.Write("