sub Genel_ayarlar  
  	response.write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=3789049&url="admin.asp?op=ayarlar"" data-href=""admin.asp?op=ayarlar"">Yönetim</a> >> <i>Genel Ayarlar </i>") 
  '-------------------veritabanı bağlantısı başlangıç  
          VT_YOL = SERVER.MAPPATH("db.mdb") 
  	DSN = "DBQ=" & VT_YOL &   ";Driver={Microsoft Access Driver (*.mdb)}" 
          SQL="select * from genel_ayarlar"         
          'response.write (sql)     
  	set BAGLANTI = Server.CreateObject("ADODB.Connection") 
          'BAGLANTI.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")) 
  	BAGLANTI.Open DSN 
   
  	set rs = server.createobject("ADODB.Recordset")  
  	rs.open SQL,BAGLANTI,1,3 
  	 
  	radet = rs.recordcount 
  	'response.write("bulunan kayıt sayısı:"&radet) 
  '-----------------Veri tabanı bağlnatı bitiş  
   
   
   
   
  	response.write("<br><br><br>") %> 
  	<table border=1><form name=genel_ayarlar action="admin.asp?op=genel_guncelle" method="post"> 
  	<tr> 
  	<td><b>Maillerin geleceği adres</b></td><td><input type=text name="mail" value=<%=rs(1)%> ></td> 
  	<tr> 
  	<td><b>Ana sayfa Logosu</b></td><td><%=rs(2)%></td><td><input type=file></td> 
  	<tr> 
  	<td><b>Firma bilgisi</b></td><td><textarea name="bilgi"><%=rs(3)%></textarea></td> 
  	<tr> 
  	<td><b>Site başlğı</b></td><td><input type=text name="baslik" value=<%=rs(4)%> ></td> 
  	</table> 
  	<input type=submit value="Değişiklikleri kaydet"> 
  	 
  <% 
  end sub 
   
  

 
   
  sub genel_guncelle  
  	response.write("<a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=3789049&url="ayarlar.asp"" data-href=""ayarlar.asp"">Yönetim</a> >> <i>Genel Ayarlar </i>") 
  	response.write ("<br>Genel ayarlarda yaptığınız değişiklikler kaydedildi.") 
  '-------------------veritabanı bağlantısı başlangıç  
          VT_YOL = SERVER.MAPPATH("db.mdb") 
  	DSN = "DBQ=" & VT_YOL &   ";Driver={Microsoft Access Driver (*.mdb)}" 
   	genel_mail=request.querystring("mail") 
  	genel_logo=request.querystring("logo") 
  	genel_bilgi=request.querystring("bilgi") 
  	genel_baslik=request.querystring("baslik") 
   
   
   
          SQL="update genel_ayarlar set genel_mail= ' " &genel_mail & " ' " _ 
                   &" where genel_sira_no=1" 
   		'&"genel_logo=' " &genel_logo & " ' "_ 
  		'&"genel_bilgi=' " &genel_bilgi & " ' "_ 
  		'&"genel_baslik=' " &genel_baslik & " '   
   
   
  	'sql="update genel_ayarlar set genel_mail='selam@dostum.com' where genel_sira_no=1" 
   
          response.write (sql)     
  	set BAGLANTI = Server.CreateObject("ADODB.Connection") 
          'BAGLANTI.open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")) 
  	BAGLANTI.Open DSN 
   
  	baglanti.execute(sql) 
   
  	'set rs = server.createobject("ADODB.Recordset")  
  	'rs.open SQL,BAGLANTI,1,3 
  	 
  	'radet = rs.recordcount 
  	'response.write("bulunan kayıt sayısı:"&radet) 
  '-----------------Veri tabanı bağlnatı bitiş  
   
   
   
  end sub 
  

 
  op=request.querystring("op") 
  op=trim(op) 
  'response.write("selecten önceye geldim"&op&".") 
  select case op 
  	case "genel": Genel_ayarlar  
  	case "genel_guncelle": Genel_guncelle  
  	case "urun": urun_ayarlar  
  	case "ziyaretci_defter": ziyaretci_defter_ayarlar  
  	case "secenekler": default 
  	case "ayarlar": ayarlar 
   
  	case else : yasak 
  end select