<% ' 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("Veritabanı1_ConnectionString") FP_DumpError strErrorUrl, "Veritabanı açılamıyor" fp_rs.Open """önemli siteler""", 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(0) Dim arFormDBFields0(0) Dim arFormValues0(0) FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 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:",_ "index.htm",_ "Formu geri gönder." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> TA2NW WEB SİTEME HOŞ GELDİNİZ

 

Site kurulum aşamasındaSiteTasarım Mehmet Turalıoğlu -  TA2NW

12/10/06 Yeni Sayfa 2

 

 

 

 

 

 

 

 

 

                         

               

 

 

TA2NW  Mehmet Turalıoğlu

mail:ta2nw@trac.org.tr  

irtibat tel: 0542 367 89 48  

                               

                   Son Güncelleme: Yeni Sayfa 2

 

                                                                        

TA2NW -  Mehmet TURALIOĞLU - SAKARYA - HENDEK