<%@LANGUAGE="VBSCRIPT"%> <% set RsTowns = Server.CreateObject("ADODB.Recordset") RsTowns.ActiveConnection = MM_caliet_STRING RsTowns.Source = "SELECT * FROM towns ORDER BY townname ASC" RsTowns.CursorType = 0 RsTowns.CursorLocation = 2 RsTowns.LockType = 3 RsTowns.Open() RsTowns_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RsTowns_numRows = RsTowns_numRows + Repeat1__numRows %> Scottish towns and villages
<% RsTowns.Close() %>