ASP.NET

pratik malviya wrote:

means all i need is how to write c# function and variable under a asp tag

MyDataAdapter = New Data.SqlClient.SqlDataAdapter("select * from tablename WHERE vehicleName like '" & Current_vehicles & "')", MyConnection)
            ds = New Data.DataSet()
            MyDataAdapter.Fill(ds, "tablename")
            Dim a As DateTime
            Dim b As DateTime
            Dim dt As Data.DataTable
            Dim dr As Data.DataRow
            dt = ds.Tables(0)
            For Each dr In dt.Rows
                
                a = (dr("StartDateTime").ToString())
                Dim timeSpanDiff1 As TimeSpan = a.Subtract(start_display_datetime) 
                Dim mins1 As Integer = timeSpanDiff1.Hours * 60 + timeSpanDiff1.Minutes  
                start_cell_number = mins1 / 15 

                b = (dr("EndDateTime").ToString())
                Dim timeSpanDiff2 As TimeSpan = b.Subtract(start_display_datetime) 
                Dim mins2 As Integer = timeSpanDiff2.Hours * 60 + timeSpanDiff2.Minutes   
                end_cell_number = mins2 / 15  

                For i = start_cell_number To end_cell_number 
                    testarray(i) = (dr("User_Name").ToString())
                Next
            Next

            Dim noOfTimes As Integer = 0
            Dim CurrentName As String = Nothing
           
            For d = 0 To 31
                Dim tbcell As TableCell = New TableCell()
                tbcell.Text = " "
               
                If testarray(d) = Nothing Then
                    'No booking case
                    CurrentName = Nothing
                    tbcell.BackColor = Color.FromName("#FFFFFF")
                Else

                    
                    CurrentName = testarray(d)
                    Dim lnkbutton As LinkButton = New LinkButton()
                    lnkbutton.ID = "lnkbutton" & CurrentName.ToString()
                    lnkbutton.Text = CurrentName.ToString()
                    lnkbutton.PostBackUrl = ""
                    lnkbutton.ToolTip = "Click here "
                    AddHandler lnkbutton.Click, AddressOf OnClickLink
                   
                    Dim j As Integer
                    
                    For j = d To 31
                        If testarray(j) = CurrentName Then
                            'same name repeated
                            noOfTimes = noOfTimes + 1

                        Else
                            
                            Response.Write(" Span of " + noOfTimes.ToString() + " " + CurrentName)
                            d = d + noOfTimes
                            Exit For
                        End If

                    Next

                    tbcell.Controls.Add(lnkbutton)
                    tbcell.BackColor = Color.FromName("#CCCCCC")
                    tbcell.ColumnSpan = noOfTimes
                    noOfTimes = 0
                End If

                trow.Cells.Add(tbcell)
            Next

            Table1.Rows.Add(trow)
        Next

Protected Sub OnClickLink(ByVal sender As Object, ByVal e As EventArgs)
       FormView1.Visible = True
       Dim myConnection As New SqlConnection("Server=localhost;Database=Reservation;uid=sa;pwd=xxxxx")
       Dim ad As New SqlDataAdapter("SELECT * FROM name of table ", myConnection)
       Dim ds As New DataSet()
       ad.Fill(ds)
       FormView1.DataSource = ds
       FormView1.DataBind()

   End Sub

rameez Raja wrote:

Protected Sub OnClickLink(ByVal sender As Object, ByVal e As EventArgs) FormView1.Visible = True Dim myConnection As New SqlConnection("Server=localhost;Database=Reservation;uid=sa;pwd=xxxxx") Dim ad As New SqlDataAdapter("SELECT * FROM name of table ", myConnection) Dim ds As New DataSet() ad.Fill(ds) FormView1.DataSource = ds FormView1.DataBind() End Sub