<%
if Len(Session("id"))= 0 then
Response.redirect "default.asp"
end if
%>
Untitled Document
<%
dim SecilenResim,adres
SecilenResim=Request.QueryString("resim")
adres = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
on error resume next
dim Ayar_Baslik, Ayar_Keywords, Ayar_Description, Ayar_Author, Ayar_OkulAdi, Ayar_Backcolor, Ayar_UstResim
veri = "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("" & Ayar_DbYol & "")
set data = Server.CreateObject("adodb.connection")
set rs = Server.CreateObject("adodb.recordset")
data.open veri
sql = "Select * from Ayarlar Where OkulId = 1"
rs.Open Sql, veri, 1, 3
if rs.eof or rs.BOF then
Ayar_Baslik = "Interaktif Okullar"
Ayar_OkulAdi = "Interaktif Okullar"
Ayar_UstResim = "images/ust.jpg"
RehberlikMaili = "rehberlik@siteadresi.k12.tr"
else
Ayar_Baslik = rs("Ayar_Baslik")
Ayar_OkulAdi = rs("Ayar_OkulAdi")
Ayar_UstResim = rs("Ayar_UstResim")
RehberlikMaili= rs("RehberlikMaili")
end if
if not SecilenResim = "" then
Ayar_UstResim =SecilenResim
end if
rs.close
%>