Author: SliderUK | Posted on: 7/30/2009 4:05:31 AM | Views : 584

Hi I have the following code


Dim LocationID As ArrayList = New ArrayList Dim BuildingNum As ArrayList = New ArrayList Protected Sub cmdAddLocation_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAddLocation.Click lstCompanyLocations.Items.Add(cmbLocation.SelectedItem) LocationID.Add(cmbLocation.SelectedValue) BuildingNum.Add("") lstCompanyLocations.SelectedIndex = lstCompanyLocations.Items.Count - 1 For x = 0 To LocationID.Count MesgBox(LocationID(x)) Next End Sub Private Sub MesgBox(ByVal sMessage As String) Dim msg As String msg = "<script language='javascript'>" msg += "alert('" & sMessage & "');" msg += "</script>" Response.Write(msg) End Sub Protected Sub cmdUpdateLocation_C ...

Go to the complete details ...