<% @language="vbscript" codepage="1254" %> <% Function cevir(sarki) sarki = Replace (sarki ," ", "-",1,-1,1) sarki = Replace (sarki ,"%20", "-",1,-1,1) sarki = Replace (sarki ," ","-",1,-1,1) sarki = Replace (sarki ,"'","-",1,-1,1) sarki = Replace (sarki ,"&","-",1,-1,1) sarki = Replace (sarki ,"ý","i",1,-1,1) sarki = Replace (sarki ,"ð","g",1,-1,1) sarki = Replace (sarki ,"ü","u",1,-1,1) sarki = Replace (sarki ,"þ","s",1,-1,1) sarki = Replace (sarki ,"ö","o",1,-1,1) sarki = Replace (sarki ,"ç","c",1,-1,1) sarki = Replace (sarki ,"I","i",1,-1,1) sarki = Replace (sarki ,"Ð","G",1,-1,1) sarki = Replace (sarki ,"Ü","U",1,-1,1) sarki = Replace (sarki ,"Þ","S",1,-1,1) sarki = Replace (sarki ,"Ý","i",1,-1,1) sarki = Replace (sarki ,"Ç","C",1,-1,1) sarki = Replace (sarki ,"Ö","O",1,-1,1) cevir=sarki End Function %> <% Function cevir(sanatci) sanatci = Replace (sanatci ," ", "-",1,-1,1) sanatci = Replace (sanatci ,"%20", "-",1,-1,1) sanatci = Replace (sanatci ," ","-",1,-1,1) sanatci = Replace (sanatci ,"'","-",1,-1,1) sanatci = Replace (sanatci ,"&","-",1,-1,1) sanatci = Replace (sanatci ,"ý","i",1,-1,1) sanatci = Replace (sanatci ,"ð","g",1,-1,1) sanatci = Replace (sanatci ,"ü","u",1,-1,1) sanatci = Replace (sanatci ,"þ","s",1,-1,1) sanatci = Replace (sanatci ,"ö","o",1,-1,1) sanatci = Replace (sanatci ,"ç","c",1,-1,1) sanatci = Replace (sanatci ,"I","i",1,-1,1) sanatci = Replace (sanatci ,"Ð","G",1,-1,1) sanatci = Replace (sanatci ,"Ü","U",1,-1,1) sanatci = Replace (sanatci ,"Þ","S",1,-1,1) sanatci = Replace (sanatci ,"Ý","i",1,-1,1) sanatci = Replace (sanatci ,"Ç","C",1,-1,1) sanatci = Replace (sanatci ,"Ö","O",1,-1,1) cevir=sanatci End Function %> <%Function mapdateformat(datex) Dim GMT GMT = "+02:00" mapdateformat = DatePart("yyyy",datex) & "-" & _ Sifirekle(DatePart("m", datex)) & "-" & _ Sifirekle(DatePart("d", datex)) & "T" & _ Sifirekle(DatePart("h", datex)) & ":" & _ Sifirekle(DatePart("n", datex)) & ":" & _ Sifirekle(DatePart("s",datex)) & GMT End Function Function Sifirekle(metin) If Len(metin) = 1 Then Sifirekle = "0" & metin Else Sifirekle = metin End If End Function Response.Buffer=False baslama=Timer Veri_yolu = Server.MapPath("db/mp3.mdb") Set endDB = Server.CreateObject("ADODB.Connection") endDB.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu) %><% set rsSonsatir = Server.CreateObject("ADODB.Recordset") rsSonsatir.ActiveConnection = endDB rsSonsatir.Source = "select*from mp3 order by mp3.id desc" rsSonsatir.CursorType = 0 rsSonsatir.CursorLocation = 2 rsSonsatir.LockType = 3 rsSonsatir.Open() rsSonsatir_numRows = 0 %><% Dim RepeatSonsatir__numRows RepeatSonsatir__numRows = 40000 Dim RepeatSonsatir__index RepeatSonsatir__index = 0 rsSonsatir_numRows = rsSonsatir_numRows + RepeatSonsatir__numRows %> <% k=1 While ((RepeatSonsatir__numRows <> 0) AND (NOT rsSonsatir.EOF)) if k mod 2 = 0 Then bg = "#D0C8C8" tik = "icons/t.gif" bos = "icons/f.gif" else bg = "#ffffff" tik = "icons/tw.gif" bos = "icons/fw.gif" end if %> <%i=i+1%> http://www.turkudinle.org/<%=rsSonsatir("id")%>/<%=cevir(rsSonsatir("sanatci"))%>/<%=cevir(rsSonsatir("sarki"))%>.html <%=mapdateformat(Now())%> <% RepeatSonsatir__index=RepeatSonsatir__index+1 RepeatSonsatir__numRows=RepeatSonsatir__numRows-1 rsSonsatir.MoveNext() k=k+1 %><%wend%><% rsSonsatir.close set rsSonsatir=nothing endDB.close set endDB=nothing %>