State of the Salmon Database
<%Dim mMap,mLayers,mConnector, recset,svcsvc=request.querystring("svc")Set mConnector = Server.CreateObject("aims.ArcIMSConnector")'ArcIMSConnector object creationSet mMap = Server.CreateObject("aims.Map") 'Map object creationmConnector.ServerName = "wanda" 'Server's namemConnector.ServerPort = 5300 'Server's portmMap.Width = 500 'Width of the map in pixelsmMap.Height = 300 'Height of the map in pixelsmMap.BackColor = 15130848 'Set background color for the mapresultInit = mMap.InitMap( mConnector, svc ) 'Initializationif not resultinit then Response.Write "Error: " & mConnector.GetLastError() Response.End End if mMap.Layers.Nodefault=true 'Set nodefault to true as we want to extract layer 1(Blockgroups)for x = 1 to mMap.Layers.count mMap.Layers.item(x).visible=falsenextx = request.querystring("x")set mLayer = mMap.Layers.item(x)mMap.Layers.item(x).visible = true'response.write mMap.Layers.item(x)mMap.RefreshurlImage = mMap.GetImageAsUrl() 'Get the map picture addressresponse.write mlayer.name'response.write "layer count = " & mMap.Layers.count%>
<%if mMap.IsMapExtractable then 'Check to see if the service is Extractable mMap.Extract=true 'If service is extractable then set extract to true and refresh mMap.Refresh() Response.Write "The extracted url is : " & mMap.GetExtracturl & "
" 'Get the extracted URL Response.Write "The extracted file is available for download here" 'Response.Write "The extracted file is : here" 'Get the extracted physical pathelse Response.Write "The Map Service does not have extractable Layers." 'If Service does not contain extract Extension end if%>