<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% ' ----------------------------------------------------------------------------------------------------------------------------------------------------------- response.Write(rsMember__MMColParam) %> <% Dim rsMember Dim rsMember_cmd Dim rsMember_numRows Set rsMember_cmd = Server.CreateObject ("ADODB.Command") rsMember_cmd.ActiveConnection = MM_caao_STRING rsMember_cmd.CommandText = "SELECT * FROM Members ORDER BY ID ASC" rsMember_cmd.Prepared = true Set rsMember = rsMember_cmd.Execute rsMember_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsMember_total Dim rsMember_first Dim rsMember_last ' set the record count rsMember_total = rsMember.RecordCount ' set the number of rows displayed on this page If (rsMember_numRows < 0) Then rsMember_numRows = rsMember_total Elseif (rsMember_numRows = 0) Then rsMember_numRows = 1 End If ' set the first and last displayed record rsMember_first = 1 rsMember_last = rsMember_first + rsMember_numRows - 1 ' if we have the correct record count, check the other stats If (rsMember_total <> -1) Then If (rsMember_first > rsMember_total) Then rsMember_first = rsMember_total End If If (rsMember_last > rsMember_total) Then rsMember_last = rsMember_total End If If (rsMember_numRows > rsMember_total) Then rsMember_numRows = rsMember_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsMember_total = -1) Then ' count the total records by iterating through the recordset rsMember_total=0 While (Not rsMember.EOF) rsMember_total = rsMember_total + 1 rsMember.MoveNext Wend ' reset the cursor to the beginning If (rsMember.CursorType > 0) Then rsMember.MoveFirst Else rsMember.Requery End If ' set the number of rows displayed on this page If (rsMember_numRows < 0 Or rsMember_numRows > rsMember_total) Then rsMember_numRows = rsMember_total End If ' set the first and last displayed record rsMember_first = 1 rsMember_last = rsMember_first + rsMember_numRows - 1 If (rsMember_first > rsMember_total) Then rsMember_first = rsMember_total End If If (rsMember_last > rsMember_total) Then rsMember_last = rsMember_total End If End If %> <% ' ----------------------------------------------------------------------------------------------------------------------------------------------------------- response.Write(rsMember_cmd.commandtext) %>

<% if session("login")<>"" and session("login")<>"NotFound" and session("login")<>"WrongPass" then %> <% end if %>

共找到: <%=(rsMember_total)%> 位會員. <% While ((Repeat1__numRows <> 0) AND (NOT rsMember.EOF)) %> 姓名: <%=(rsMember.Fields.Item("Name").Value)%> 英文姓名: <%=(rsMember.Fields.Item("EngName").Value)%> 律師行: <%=(rsMember.Fields.Item("LawFirm").Value)%> 地址: <%=(rsMember.Fields.Item("Address").Value)%> <% if (rsMember.Fields.Item("District1").Value)<>"" then response.Write("地區: ") end if %> <%=(rsMember.Fields.Item("District1").Value)%> <% if (rsMember.Fields.Item("Tel1").Value)<>"" then response.Write("電話: ") end if %><%=(rsMember.Fields.Item("Tel1").Value)%> <% if (rsMember.Fields.Item("District2").Value)<>"" then response.Write("地區: ") end if %> <%=(rsMember.Fields.Item("District2").Value)%> <% if (rsMember.Fields.Item("Tel2").Value)<>"" then response.Write("電話: ") end if %><%=(rsMember.Fields.Item("Tel2").Value)%> <% if (rsMember.Fields.Item("District3").Value)<>"" then response.Write("地區: ") end if %><%=(rsMember.Fields.Item("District3").Value)%> <% if (rsMember.Fields.Item("Tel3").Value)<>"" then response.Write("電話: ") end if %><%=(rsMember.Fields.Item("Tel3").Value)%> <% if (rsMember.Fields.Item("District4").Value)<>"" then response.Write("地區: ") end if %><%=(rsMember.Fields.Item("District4").Value)%> <% if (rsMember.Fields.Item("Tel4").Value)<>"" then response.Write("電話: ") end if %><%=(rsMember.Fields.Item("Tel4").Value)%> <% if (rsMember.Fields.Item("District5").Value)<>"" then response.Write("地區: ") end if %><%=(rsMember.Fields.Item("District5").Value)%> <% if (rsMember.Fields.Item("Tel5").Value)<>"" then response.Write("電話: ") end if %><%=(rsMember.Fields.Item("Tel5").Value)%> <% if (rsMember.Fields.Item("District6").Value)<>"" then response.Write("地區: ") end if %><%=(rsMember.Fields.Item("District6").Value)%> <% if (rsMember.Fields.Item("Tel6").Value)<>"" then response.Write("電話: ") end if %><%=(rsMember.Fields.Item("Tel6").Value)%>   <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMember.MoveNext() Wend %> 重新查尋 <% If MM_offset <> 0 Then %> <% End If ' end MM_offset <> 0 %> <% If MM_offset <> 0 Then %> <% End If ' end MM_offset <> 0 %> <% If Not MM_atTotal Then %> <% End If ' end Not MM_atTotal %> <% If Not MM_atTotal Then %> <% End If ' end Not MM_atTotal %>

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