FINDIK FM ALBÜMLER

<% ' FP_ASP ASP otomatik olarak FrontPage Bileşeni tarafından işletilecek. Düzenlemeyin. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1254 Session.LCID = 1055 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Bağlantı oluşturulamıyor" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Kayıt ayarları oluşturulamıyor" fp_conn.Open Application("album_ConnectionString") FP_DumpError strErrorUrl, "Veritabanı açılamıyor" fp_rs.Open "Sonuçlar", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Kayıt ayarları açılamıyor" fp_rs.AddNew FP_DumpError strErrorUrl, "Veritabanına yeni kayıt ayarları eklenemiyor" Dim arFormFields0(1) Dim arFormDBFields0(1) Dim arFormValues0(1) arFormFields0(0) = "S1" arFormDBFields0(0) = "S1" arFormValues0(0) = Request("S1") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Kullanıcı_adı" End If FP_SaveFieldToDB fp_rs, Now, "Zaman_damgası" If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tarayıcı_türü" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Uzak_bilgisayar_adı" End If fp_rs.Update FP_DumpError strErrorUrl, "Veritabanı güncellenemiyor" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1254",_ "Form Onaylama",_ "İlişkteki bilgiyi gönderdiğiniz için teşekkür ederiz:",_ "album.htm",_ "Formu geri gönder." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> FINDIK FM ALBÜMLER

FINDIK FM ALBÜM

ALBÜM YARIŞMASI

YARIŞAN ALBÜMLER

1) Albüm yarışmasına daha önce üye olanlar ve yeni üye olanlar katılabilir.
2) Oluşturulacak albümlerde herhangi bir konu kısıtlaması yoktur. (Siyasi içerikli ve ahlak kurallarına aykırı resim yüklenemez)
3) Yarışma 15 Ekim 2008 tarihinde son bulacak, bu tarihten sonra anket hazırlanarak ziyaretçilerin beğenisine sunulacaktır.

RESİM ALBÜMÜNE KENDİ ALBÜMÜNÜZÜ HAZIRLAYABİLMEK İÇİN LÜTFEN YANDAKİ İLETİŞİM FORMUNU DODURUNUZ.... EN KISA ZAMANDA KULLANICI ŞİFRENİZ MAİL ADRESİNİZE GÖNDERİLECEKTİR.... ALBÜME ÜYE OLMAK İSYETİP İSTEMEDİĞİNİZİ LÜTFEN BELİRTİNİZ...