Imports System.Data.SqlClient
Partial Class mb_app_promo
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
G1.Text = "500"
Dim connString As String
connString = ConfigurationManager.ConnectionStrings("myConnString").ToString
Dim conn As New SqlConnection(connString)
Try
conn.Open()
Dim cmd As New SqlCommand("myStoredProcedure", conn)
Dim count As Integer = CInt(cmd.ExecuteScalar())
If count >= 500 Then
Goal1.Text = "Congratulations - 500 goal!"
Else
Goal1.Text = "Your current score: "& count
End If
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
conn.Close()
End Try
End Sub
End Class