<%@ Page Title="" Language="C#" MasterPageFile="Markers.master" AutoEventWireup="false" CodeBehind="CodeBehind.aspx.cs" Inherits="GoogleMaps.Samples.Markers.CodeBehind" %>

<asp:Content ID="Content1" ContentPlaceHolderID="MainContent" runat="server">
    <h2>
        Markers Code Behind
    </h2>
    <p>
        GoogleMap control markers code behind sample.
    </p>
    <div class="map-wrap">
        <map:GoogleMap ID="GoogleMap1" runat="server" Latitude="42.1229" Longitude="24.7879"
            Zoom="6" EnableScrollWheelZoom="true" CssClass="map" Width="100%" Height="600px" FullscreenControl="true">
        </map:GoogleMap>
    </div>
</asp:Content>

Imports System.Data.SqlClient
Imports System.Drawing
Imports GoogleMaps
Imports GoogleMaps.Overlays
Imports GoogleMaps.Drawing

Public Class land
Inherits System.Web.UI.Page
Dim s As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

‘ s = Request.QueryString(“comp”)
s = “onuku”
Session(“field1”) = s

Dim sw As New LatLng
Dim ne As New LatLng
‘
Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings(“daypilot”).ConnectionString)
Try
con.Open()
Dim sql As String = “SELECT min(lat) as minlat, min(lng) as minlng, max(lat) as maxlat, max(lng) as maxlng FROM land where owner = ‘” & s & “‘”
Dim cmd As New SqlCommand(sql, con)
Dim myreader As SqlDataReader = cmd.ExecuteReader()

While myreader.Read()
sw = New LatLng(Val(myreader(“minlat”)), Val(myreader(“minlng”)))
ne = New LatLng(Val(myreader(“maxlat”)), Val(myreader(“maxlng”)))
End While

Catch ex As SqlException
Finally
con.Close()
End Try

GoogleMap1.Bounds = New Bounds() With {
.NorthEast = ne,
.SouthWest = sw
}

End Sub
Private Sub land_LoadComplete(sender As Object, e As EventArgs) Handles Me.LoadComplete

Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings(“daypilot”).ConnectionString)
Try
con.Open()
Dim sql As String = “SELECT distinct name FROM land WHERE owner = ‘” & s & “‘ ORDER BY name”
Dim cmd As New SqlCommand(sql, con)
Dim myreader As SqlDataReader = cmd.ExecuteReader()
Dim landarea As New List(Of LatLng)()
While myreader.Read()
drawpoly(Val(myreader(“name”)))
End While
Catch ex As SqlException
Finally
con.Close()
End Try
End Sub

Sub drawpoly(ByRef nameref As Double)

Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings(“daypilot”).ConnectionString)
Dim polygon = New GooglePolygon()
Try
con.Open()
Dim sql As String = “SELECT lat, lng , description FROM land where name = ‘” & nameref & “‘ and owner = ‘” & s & “‘ ORDER BY ord”
Dim cmd As New SqlCommand(sql, con)
Dim myreader As SqlDataReader = cmd.ExecuteReader()
Dim landarea As New List(Of LatLng)()
While myreader.Read()
landarea.Add(New LatLng(Val(myreader(“lat”)), Val(myreader(“lng”))))
End While

polygon.ID = nameref
polygon.Clickable = True
polygon.TargetControlID = “GoogleMap1”
polygon.FillColor = Color.Transparent
polygon.FillOpacity = 1.0F
polygon.StrokeColor = Color.Blue
polygon.StrokeWeight = 2
polygon.Paths = landarea
GoogleMap1.Overlays.Add(polygon)

Catch ex As SqlException
Finally
con.Close()
End Try
AddHandler polygon.Click, AddressOf Polygon_Clk
End Sub

Sub Polygon_Clk(ByVal sender As Object, ByVal e As MouseEventArgs)
PrintEvent(“click”, e)
‘Label2.Text = String.Format(“Polygon clicked at {0}”, e.Position.Latitude)

End Sub

Sub PrintEvent(name As String, e As MouseEventArgs)
Label2.Text = (String.Format(“{0} event was fired (lat: {1}, lng: {2}).”, name, e.Position.Latitude, e.Position.Longitude))
End Sub