<%@LANGUAGE="VBSCRIPT"%> <% set RsRegions = Server.CreateObject("ADODB.Recordset") RsRegions.ActiveConnection = MM_caliet_STRING RsRegions.Source = "SELECT * FROM region WHERE countryid = 1 ORDER BY regionname ASC" RsRegions.CursorType = 0 RsRegions.CursorLocation = 2 RsRegions.LockType = 3 RsRegions.Open() RsRegions_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Rec_regions_numRows = Rec_regions_numRows + Repeat1__numRows %> Scottish maps of Scotland, map
<% RsRegions.Close() %>