%@LANGUAGE="VBSCRIPT"%> <% Dim tChahtl Dim tChahtl_numRows Set tChahtl = Server.CreateObject("ADODB.Recordset") tChahtl.ActiveConnection = MM_hachina_STRING tChahtl.Source = "SELECT * FROM Chahtl" tChahtl.CursorType = 0 tChahtl.CursorLocation = 2 tChahtl.LockType = 1 tChahtl.Open() tChahtl_numRows = 0 %> <%@LANGUAGE="VBSCRIPT"%>
|
||||||||||||||||||||||||||||||||||||||