<%@ LANGUAGE="VBSCRIPT" %> 八十七年度生物資訊學「高級班」訓練課程報名名單 <% adOpenKeyset = 1 adLockReadOnly = 1 %>

八十七年度生物資訊學「高級班」訓練課程報名名單

<% If (Request.ServerVariables("Content_Length") > 0) Then strSQLStmt = Request("sqlstmt") nPageTo = 1 If Len(strSQLStmt) > 0 Then Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.open "Binfo-a","sa","" RS.Open strSQLStmt, Conn, adOpenKeyset, adLockReadOnly RS.PageSize = 10 Set Session("RS") = RS Else strPageTo = Request("PageTo") If strPageTo <> "" Then nPageTo = CLng(strPageTo) If nPageTo < 1 Then nPageTo =1 Else nPageTo = 1 End If End If If Not IsObject(Session("RS")) Then Response.Write "Recordset not valid" Response.End End If Set RS = Session("RS") RS.AbsolutePage = nPageTo %> <% For i = 0 To RS.Fields.Count - 1 Response.Write "" Next %> <% nRowCount = RS.PageSize While Not RS.EOF and nRowCount >0 If ((nRowCount Mod 2) = 1) Then Response.Write "" Else Response.Write "" End If For i = 0 To RS.Fields.Count - 3 Response.Write "" Next For i = RS.Fields.Count - 2 to RS.Fields.Count -1 Response.Write "" Next Response.Write "" nRowCount = nRowCount - 1 RS.MoveNext Wend %> <% Response.Write "
" & RS.Fields.Item(i).Name & "
" & RS(i) & "" & RS(i) & "
Page: <%=nPageTo%>

" If nPageTo > 1 Then %> <% End If If (nRowCount = 0 and Not RS.EOF) Then %> <% End If Response.Write "
">

">

" Else %>

"> <% If Request.ServerVariables("REMOTE_ADDR") = "140.110.34.65" Then %><% Else %><%End If%>

<% End If %>