<% Set ObjDB=Server.CreateObject("ADODB.Connection") dsn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("CJalumni.mdb") ObjDB.Open dsn Sql="Select * From CJalumni order by ID" Set ObjRS=Server.CreateObject("ADODB.Recordset") Set ObjRS = ObjDB.Execute (Sql) %>
ҹþķ Ҫ
Cordis Jesu Alumni Database


ž鹰ҹͧҪԡҷ
§ӴѺշ

<% I=1 Do While Not ObjRS.Eof If Bg="#FFFFFF" Then Bg="#DDFFFF" Else Bg="#FFFFFF" End If %> Valign=Top> <% ObjRS.MoveNext I = I + 1 Loop %>
ӹ˹ ҨҡѴ շ ӹǹ
<%= I %> <%=ObjRs("ID") %> <%=ObjRS("Title")%> <%=ObjRS("Name")%> <%=ObjRS("Nickname")%> <%=ObjRS("Church")%> <%=ObjRS("Yearatt")%> <%=ObjRS("Numatt")%>
<% ObjRS.Close ObjDB.Close Set ObjRS=Nothing Set ObjDB=Nothing %>
Back to Data Center