Torna al Thread
Dim cnn As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Giannicola\JayKayPromo\App_Data\ASPNETDB.MDF;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim cmd1 As New SqlClient.SqlDataAdapter("SELECT foto_percorsofile, descrizione_foto, commento_foto, squadra_di_appartenza FROM foto_squadra ", cnn)
Dim dt As New DataTable()
Dim startRecord As New Integer
Protected Sub Button_Avanti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avanti.Click
startRecord = Avanti.CommandArgument
startRecord = startRecord + 2
Avanti.CommandArgument = startRecord
Indietro.CommandArgument = startRecord
dt.Clear()
cmd1.Fill(startRecord, 2, dt)
If dt.Rows.Count = 0 Then
startRecord = startRecord - 2
Avanti.CommandArgument = startRecord
Indietro.CommandArgument = startRecord
dt.Clear()
cmd1.Fill(startRecord, 2, dt)
End If
DataList1.DataSource = dt
Page.DataBind()
End Sub
Protected Sub Button_Indietro_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Indietro.Click
If Indietro.CommandArgument <> "" Then
If Indietro.CommandArgument >= 4 Then
startRecord = Indietro.CommandArgument
startRecord = startRecord - 2
Indietro.CommandArgument = startRecord
dt.Clear()
cmd1.Fill(startRecord, 2, dt)
DataList1.DataSource = dt
Page.DataBind()
ElseIf Indietro.CommandArgument < 4 Then
startRecord = 0
dt.Clear()
cmd1.Fill(startRecord, 2, dt)
DataList1.DataSource = dt
Page.DataBind()
End If
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If IsPostBack = False Then
startRecord = 0
Avanti.CommandArgument = startRecord
End If
dt.TableName = "Foto"
cmd1.Fill(startRecord, 2, dt)
DataList1.DataSource = dt
Page.DataBind()
cnn.Close()
End Sub