i really dont know, im just running the code from my pc where i develop

this is my code

 

Imports

 

Microsoft.SqlServer

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Partial

 

 

Public Class

_Default

 

 

Inherits

System.Web.UI.Page

 

 

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

.Load

 

 

If Not IsPostBack

Then

LoadDates()

LoadReleaseDates()

 

 

End

If

 

 

End

Sub

 

 

 

Private Sub

LoadDates()

 

 

Dim mycon As SqlClient.SqlConnection = New

SqlClient.SqlConnection

 

 

Dim Mycmd As

SqlClient.SqlCommand

 

 

Dim MyRd As

SqlClient.SqlDataReader

 

 

Try

mycon.ConnectionString =

 

"Data Source=MyServer;Initial Catalog=MyDataBase;User Id=MyUser;Password=MyPass;"

mycon.Open()

Mycmd =

 

New SqlClient.SqlCommand("exec sp_GetFromTo"

, mycon)

MyRd = Mycmd.ExecuteReader()

Dfrom.Items.Clear()

Dto.Items.Clear()

 

 

Do While

MyRd.Read

Dfrom.Items.Add(MyRd.GetValue(0))

Dto.Items.Add(MyRd.GetValue(0))

 

 

Loop

Dfrom.Text = Format(Today,

 

"yyyy-MM"

)

Dto.Text = Dfrom.Items(Dfrom.Items.Count - 1).Text

mycon.Close()

 

 

 

Catch Ex As

Exception

 

 

If mycon.State = ConnectionState.Open Then

mycon.Close()

 

 

End

Try

 

 

End

Sub

 

 

Private Sub

LoadReleaseDates()

 

 

Dim mycon As SqlClient.SqlConnection = New

SqlClient.SqlConnection

 

 

Dim Mycmd As

SqlClient.SqlCommand

 

 

Dim MyRd As

SqlClient.SqlDataReader

 

 

Try

mycon.ConnectionString =

 

"Data Source=MyServer;Initial Catalog=MyDataBase;User Id=MyUser;Password=MyPass;"

mycon.Open()

Mycmd =

 

New SqlClient.SqlCommand("SELECT DISTINCT RELEASEDATE FROM TBL_PSI WITH (NOLOCK) ORDER BY RELEASEDATE"

, mycon)

MyRd = Mycmd.ExecuteReader()

DRelease.Items.Clear()

 

 

Do While

MyRd.Read

DRelease.Items.Add(MyRd.GetValue(0))

 

 

Loop

DRelease.Text = DRelease.Items(DRelease.Items.Count - 1).Text

mycon.Close()

 

 

 

Catch Ex As

Exception

 

 

If mycon.State = ConnectionState.Open Then

mycon.Close()

 

 

End

Try

 

 

End

Sub

 

 

Private Sub

DisplayGrid()

 

 

Dim mycon As SqlClient.SqlConnection = New

SqlClient.SqlConnection

 

 

Dim MyDa As

SqlClient.SqlDataAdapter

 

 

Dim MyDT As New

DataTable

 

 

Dim SqlCommand As

String

 

mycon.ConnectionString =

 

"Data Source=MyServer;Initial Catalog=MyDataBase;User Id=MyUser;Password=MyPass;"

SqlCommand =

 

"exec sp_Get_PSI "

& _

 

 

"@MonthFrom = '" + Right(Dfrom.Text.Trim, 2) + "', "

& _

 

 

"@MonthTo = '" + Right(Dto.Text.Trim, 2) + "', "

& _

 

 

"@YearFrom = '" + Left(Dfrom.Text, 4) + "',"

& _

 

 

"@YearTo = '" + Left(Dto.Text, 4) + "', "

& _

 

 

"@fctbp = " + IIf(Dfctbp.Text.ToUpper = "FCT", "1", "0") + ", "

& _

 

 

"@release = '" + DRelease.Text +

"'"

mycon.Open()

MyDa =

 

New

SqlClient.SqlDataAdapter(SqlCommand, mycon)

MyDa.Fill(MyDT)

 

 

'Show the grid

webgrid.DataSource = MyDT

 

 

 

End

Sub

 

 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles

Button1.Click

DisplayGrid()

 

 

End

Sub

End

 

 

Class

Thanks