<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Dim rs1
Dim rs1_cmd
Dim rs1_numRows
Set rs1_cmd = Server.CreateObject ("ADODB.Command")
rs1_cmd.ActiveConnection = MM_conn_STRING
rs1_cmd.CommandText = "SELECT * FROM 分類管理 WHERE 類別 =1"
rs1_cmd.Prepared = true
Set rs1 = rs1_cmd.Execute
rs1_numRows = 0
%>
<%
Dim rs2
Dim rs2_cmd
Dim rs2_numRows
Set rs2_cmd = Server.CreateObject ("ADODB.Command")
rs2_cmd.ActiveConnection = MM_conn_STRING
rs2_cmd.CommandText = "SELECT * FROM 分類管理 WHERE 類別 = 2"
rs2_cmd.Prepared = true
Set rs2 = rs2_cmd.Execute
rs2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs1_numRows = rs1_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
rs2_numRows = rs2_numRows + Repeat2__numRows
%>
無標題文件
<%
rs1.Close()
Set rs1 = Nothing
%>
<%
rs2.Close()
Set rs2 = Nothing
%>
