|
<!--T_USMap.aspx--> <script
language="vb" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim SelectedStates As String = "CA, TX, NY, MI, AR, AL, UT, AK"
Dim SelectedStatesColor As String = "blue,violet,yellow,green,yellow,yellow,yellow,blue"
Dim M1 As New Tornado.Z()
With M1
.dbUnit = 1
.dbMapXY = "0,30"
.dbMapTitle = "<center><h3>Map
Title</h3></center>"
.dbMapHREFMacro = "HREF='#' onClick=""window.open('/tornado/images-net/usmap/states_info/[[State]].htm',
'Tornado_Map', 'width=500, height=500, left=20, top=20, directories=no, menubar=no,toolbar=no,
status=no, scrollbars=yes, resizable=yes')"""
.dbMapSelStates = SelectedStates
.dbMapSelStatesColor = SelectedStatesColor
Response.Write(.ASPdbUSMap())
End With
End Sub
</script>
|