<% @ Language="VBScript" %> <% Dim count, DataConn, rst, cmdTemp Dim lng, lat Dim countryArr(), cityArr(), songTitleArr(), songFileNameArr() Dim ptLatArr(), ptLngArr() Dim currLng, currLat Dim theCtr reDim countryArr(10) reDim cityArr(10) reDim songTitleArr(10) reDim songFileNameArr(10) reDim ptLatArr(10) reDim ptLngArr(10) lng=-1.66667 lat= 55.5 count = 0 Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db1_database1.mdb") Set cmdTemp = Server.CreateObject("ADODB.Command") Set rst = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "Select country, city, songTitle, songFileName, lng, lat From Results" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn rst.Open cmdTemp, , 1, 3 Do While NOT rst.EOF countryArr(count)= rst("country") cityArr(count)= rst("city") songTitleArr(count)= rst("songTitle") songFileNameArr(count)= rst("songFileName") ptLatArr(count)= rst("lat") ptLngArr(count)= rst("lng") rst.MoveNext() count = count + 1 loop rst.Close Set rst = Nothing DataConn.Close set DataConn = nothing %>