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ı »


Bu sitede bulunan içerik MÜ-YAP Bağlantılı Hak Sahibi Fonogram Yapımcıları Meslek Birliği tarafından lisanslanmıştır. © 2007 powered by www.ringofon.com

----------------------------- 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
 
 
<%# DataBinder.Eval(Container.DataItem, "ntitre") %>">
<%# DataBinder.Eval(Container.DataItem, "ntitre") %>">
 Effacer selection


 
Date
   
Titre
   
Contenu
   
Image
   
CheckBoxes
   
   
 
 
 
Prévisualisation: