<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Catalog
Dim Catalog_numRows
Set Catalog = Server.CreateObject("ADODB.Recordset")
Catalog.ActiveConnection = MM_Product_STRING
Catalog.Source = "SELECT * FROM Menu"
Catalog.CursorType = 0
Catalog.CursorLocation = 2
Catalog.LockType = 1
Catalog.Open()
Catalog_numRows = 0
%>
無標題文件
<%
Catalog.Close()
Set Catalog = Nothing
%>
