yasal mp3 bedava mp3 iyibisey mp3


	Dosya Boyutu : MB Süre : saniye

Son Çıkan Albümler

	Duygun
	Atarmı Bu Ka

	Yaşar
	Gençlik Marş

	Murat Boz
	Uçurum - Yan

	Gönen
	Hayal Bile E

Devamı ť

En Çok İndirilenler

Sibel Can - Tarkan - Çakmak Çakmak

indir

Ferhat Göçer - Cennet

indir

Barış Akarsu - Islak Islak

indir

Barış Akarsu - Gözlerin (Yalancı Yarim)

indir

Burak Kut - Komple

indir

Ozan - Boşu Boşuna

indir

Rober Hatemo - Beyaz Ve Sen

indir

Kıraç - 100. Yıl Şarkısı

indir

İsmail YK - Şekerim

indir

Yurtseven Kardeşler - Kanka

indir

Devamı ť

En Yeni Şarkılar

Diler Ebeperi - Semazen

indir

Enver Demirağ - Gel Benim Gelin Yarim

indir

Vahdet Vural - Büyük Suç

indir

Ahmet Sazlı - Ok

indir

Küçük Aydın - Hocaların Hocası

indir

Erkan Koç - Yeni Camii Avlusunda

indir

Hakan Sarıca - Karaya Vurur

indir

İlkay Akkaya - Gurbet

indir

Ali Tekinture - Beni Bırakıp Gitme

indir

Mehtap Çakır - Kevengin Yolları

indir

Devamı ť

----------------------------- Sub postSQL(Sender as Object, E as CommandEventArgs) Dim myConnection As String = ConfigurationSettings.AppSettings("dsnKey") Dim conSQL As New OdbcConnection(myConnection) dim varValeurs as string = IIf(chk.checked, 25, "") 'DateTime dt = Convert.ToDateTime(nDate.Text,yyyyMMdd) '+dateTime.now.ToString("yyyyMMdd")+ 'Begin PostSQL------------------------------ Dim MySQL as string = "Insert into news " _ & "(nDate,nTitre,nContent,nPicture,nValeurs)" _ & " VALUES ('"+Convert.ToDateTime(nDate.Text).toString("yyyyMMdd")+"','"+nTitre.text+"','"+nContent.text+"','"+nPicture.fileName+"','"+varValeurs+"')" 'End PostSQL-------------------------------- conSQL.Open() Dim promosInsertCmd As OdbcCommand = New odbcCommand(MySQL, conSQL) promosInsertCmd.ExecuteNonQuery conSQL.close() ResetAll() formTable.visible = true lblTitre.text = "grer les timbres" bindUpdateList() addrgButton.visible = true 'End try End Sub sub updateRecord(Source as Object, E as CommandEventArgs) Dim varID as string = hidChkID.value Dim myConnection As String = ConfigurationSettings.AppSettings("dsnKey") Dim conSQL As New OdbcConnection(myConnection) Dim MySQL as string 'Begin UpdateSQL------------------------------ MySQL = "UPDATE news SET" & _ " nDate = '" & Convert.ToDateTime(nDate.Text).toString("yyyyMMdd") & "', " & _ " nTitre = '" & nTitre.text & "', " & _ " nContent = '" & nContent.text & "', " & _ " nPicture = '" & nPicture.fileName & "' " & _ "WHERE ID = "& varID &"" 'End UpdateSQL-------------------------------- Dim promosInsertCmd As OdbcCommand = New odbcCommand(MySQL, conSQL) conSQL.Open() promosInsertCmd.ExecuteNonQuery conSQL.close() bindUpdateList() End sub sub deleteRecord(sender As Object, Args As CommandEventArgs) Dim varID as string = request("delRegBox") Dim myConnection As String = ConfigurationSettings.AppSettings("dsnKey") Dim conSQL As New OdbcConnection(myConnection) conSQL.open() Dim strSQLDel as String = "DELETE FROM news WHERE ID in ("+varID+")" Dim delCmd As OdbcCommand = New OdbcCommand(strSQLDel, conSQL) Dim rowsAffected As Integer = 0 rowsAffected = delCmd.ExecuteNonQuery conSQL.CLOSE() bindUpdateList() end sub sub showCalendar(sender As Object, Args As CommandEventArgs) calendar.visible = true end sub sub changeDate(sender As Object, Args As EventArgs) nDate.text = calendar.SelectedDate end sub sub bindList end sub sub preview(sender As Object, Args As CommandEventArgs) ShowPreview() end sub Sub showPreview lblpDate.text = nDate.text lblpTitre.text = nTitre.text lblpTexte.text = nContent.text if nPicture.fileName <> "" then pPic.Src = "../../images/news/thb" & nPicture.fileName pPic.visible = true else pPic.visible = false end if tblPrev.visible = true end sub

Modifier ou supprimer

<%# DataBinder.Eval(Container.DataItem, "ntitre") %>	">
<%# DataBinder.Eval(Container.DataItem, "ntitre") %>	">
Effacer selection

	Date



	Titre



	Contenu



	Image


	CheckBoxes

Prévisualisation: