ASP.NET

Dim connection As New SqlConnection("server=MyServer;Trusted_Connection=true;database=MyDatabase")
connection.Open()
Dim command As New SqlCommand("select MyKey,MyField1,MyField2 from MyTable order by MyKey;", connection)
Dim reader As SqlDataReader = command.ExecuteReader()

Response.Write("<table border='1'>")
'Read the first record
reader.Read()
'Set the control break
Dim ControlBreak As Integer = CInt(reader(0))
'Write all cells
Response.Write("<tr><td>" & reader(0) & "</td><td>" & reader(1) & "</td><td>" & reader(2) & "</td></tr>")

While reader.Read()
	If reader(0).Equals(ControlBreak) Then
		'Write some cells
		Response.Write("<tr><td colspan='2'>&nbsp;</td><td>" & reader(2) & "</td></tr>")
	Else
		'Reset the control break
		ControlBreak = CInt(reader(0))
		'Write all cells
		Response.Write("<tr><td>" & reader(0) & "</td><td>" & reader(1) & "</td><td>" & reader(2) & "</td></tr>")
	End If
End While
Response.Write("</table>")
reader.Close()
connection.Close()

ElseIf page = "UserApplication" Then
            If DS.Tables(0).Rows.Count > 0 Then
                InsertPageBreak()
                InsertAppUserHeader()
                Dim nfile As StringCollection = New StringCollection
                Session("sc1") = nfile
                For i = 0 To DS.Tables(0).Rows.Count - 1
                    PopulateAppUsrRow(DS.Tables(0).Rows(i)(0), DS.Tables(0).Rows(i)(1), DS.Tables(0).Rows(i)(2), DS.Tables(0).Rows(i)(3), DS.Tables(0).Rows(i)(4))
                    'DataSetToExcel.Convert(DS, Response)
                Next

Public Sub PopulateAppUsrRow(ByVal Usrid As String, ByVal Usrname As String, ByVal Grpid As String, ByVal Grpdsc As String, ByVal FncDsc As String)
        If Not Session("sc1").Contains(Usrid) Then
            Session("sc1").Add(Usrid)
            Response.Write("<tr><td align=left>" + Usrid + "</td><td align=left >" + Usrname + "</td><td align=left >" + Grpid + "</td><td align=left >" + Grpdsc + "</td><td align=left >" + FncDsc + "</td></tr>")
        Else
            Response.Write("<tr><td align=left> </td><td align=left >" + Usrname + "</td><td align=left >" + Grpid + "</td><td align=left >" + Grpdsc + "</td><td align=left >" + FncDsc + "</td></tr>")
        End If
    End Sub

LogoProject.ImageUrl = "~/test/" + id + "_" + img;
//where img is filename stored in db..

developerit wrote:

please give me suitabe solution which helps me

CausesValidation = "false"