<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
Response.Buffer = True

VT_YOL = SERVER.MAPPATH("asddd/erolll###.mdb")
	DSN = "DBQ=" & VT_YOL &   ";Driver={Microsoft Access Driver (*.mdb)}"
Set BAGLANTI = Server.CreateObject("ADODB.Connection")
BAGLANTI.Open DSN

Session.Timeout=15
Session.CodePage=1254
Session.LCID=1055
Response.Charset="iso-8859-9"
trh = FormatDateTime(date)
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from video",BAGLANTI,1,3
toplam=rs.recordcount
rs.close()
function temizle(yazi)
yazi = Replace(yazi," ","_")
yazi = Replace(yazi,"-","+")
yazi = Replace(yazi,"Ç","C")
yazi = Replace(yazi,"Ş","S")
yazi = Replace(yazi,"İ","i")
yazi = Replace(yazi,"Ü","u")
yazi = Replace(yazi,"Ö","ö")
yazi = Replace(yazi,"ü","u")
yazi = Replace(yazi,"ö","o")
yazi = Replace(yazi,"ş","s")
yazi = Replace(yazi,"ç","c")
yazi = Replace(yazi,":","+")
yazi = Replace(yazi,"I","i")
yazi = Replace(yazi,"ı","i")
yazi = Replace(yazi,"Ğ","g")
yazi = Replace(yazi,"ğ","g")
temizle = yazi
end function
%>