<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_email Dim rs_email_numRows Set rs_email = Server.CreateObject("ADODB.Recordset") rs_email.ActiveConnection = MM_cotec_STRING rs_email.Source = "SELECT * FROM signData ORDER BY createdate DESC" rs_email.CursorType = 0 rs_email.CursorLocation = 2 rs_email.LockType = 1 rs_email.Open() rs_email_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_email_numRows = rs_email_numRows + Repeat1__numRows %>

│報名表首頁│ 電子信箱列表   <% While ((Repeat1__numRows <> 0) AND (NOT rs_email.EOF)) %> <% If Not rs_email.EOF Or Not rs_email.BOF Then %> <% End If ' end Not rs_email.EOF Or NOT rs_email.BOF %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_email.MoveNext() Wend %> 報名時間 公司全銜 報名編號 參加人姓名\職稱 參加場次 電話 費用 e-mail 地址 <%=(rs_email.Fields.Item("createdate").Value)%>  <%=(rs_email.Fields.Item("company").Value)%> <%=(rs_email.Fields.Item("pono").Value)%>  <%=(rs_email.Fields.Item("name").Value)%> <%=(rs_email.Fields.Item("title").Value)%>  "><%=(rs_email.Fields.Item("play").Value)%>  <%=(rs_email.Fields.Item("tel").Value)%>  <%=(rs_email.Fields.Item("sum").Value)%>  <%=(rs_email.Fields.Item("email").Value)%>  <%=(rs_email.Fields.Item("add").Value)%>

<% rs_email.Close() Set rs_email = Nothing %>