<% '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ Function return_RFC822_Date(myDate, offset) 'session.LCID = 1033 Dim myDay, myDays, myMonth, myYear Dim myHours, myMonths, mySeconds myDate = CDate(myDate) myDay = WeekdayName(Weekday(myDate),true) myDays = zeroPad(Day(myDate), 2) myMonth = zeroPad(Month(myDate), 2) myYear = Year(myDate) myHours = zeroPad(Hour(myDate), 2) myMinutes = zeroPad(Minute(myDate), 2) mySeconds = zeroPad(Second(myDate), 2) return_RFC822_Date = myYear&"-"& _ myMonth&"-"& _ myDays&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&""& _ offset 'session.LCID = 1055 End Function Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ %> http://www.artieksihaber.com Arti Eksi Haber tr Copyright &copy; 2008, Arti Eksi Haber. Arti Eksi Haber <%=return_RFC822_Date(Now(),"")%> http://www.artieksihaber.com http://www.artieksihaber.com/images/yeniufuk_logo.png <% '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'Response.Buffer = True 'Response.ContentType = "text/xml" '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ MySQLServer = "94.199.204.40" MySQLUser = "artieksihaber_k3" MySQLPass = "unabx85x750%$" MySQLDb = "artieksihaber_v3" Set aksoyBag = Server.CreateObject("ADODB.Connection") aksoyVeri = "DRIVER={MySQL ODBC 3.51 Driver};server="&MySQLServer&";uid="&MySQLUser&";pwd="&MySQLPass&";database="&MySQLDb&";option=3;port=3306;option=16384;" aksoyBag.Open aksoyVeri aksoyBag.Execute "SET NAMES 'latin5'" aksoyBag.Execute "SET CHARACTER SET latin5" aksoyBag.Execute "SET COLLATION_CONNECTION = 'latin5_turkish_ci'" '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ Set TabloTopVeri_76 = aksoyBag.Execute("Select Count(*) As TabloTopVeri_76 From trmodulhaber Where HaberYayinDurum=2") VeriTabloTop_76 = Cint(TabloTopVeri_76("TabloTopVeri_76")) GelenVeri_76 = Request.QueryString("Sayfa_76") If GelenVeri_76 = "" OR Not IsNumeric(GelenVeri_76) Then GelenVeri_76 = Int(1) Else GelenVeri_76 = Int(GelenVeri_76) End If GosTopVeri_76 = Int(50) SiraIslem_76 = GelenVeri_76*GosTopVeri_76 SiraIslem_76 = SiraIslem_76-GosTopVeri_76 KaySiraIslem_76 = Int(VeriTabloTop_76/GosTopVeri_76)+1 Set KatHaberListe = aksoyBag.Execute("Select * From trmodulhaber Where HaberYayinDurum=2 Order By HaberId desc LIMIT " & SiraIslem_76 & ", " & GosTopVeri_76 & ";" ) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ Function KarekterTemizle(metin) metin = Replace(metin,"’","'") metin = Replace(metin,"“","''") metin = Replace(metin,"”","''") metin = Replace(metin,"…",".") metin = Replace(metin,".",".") metin = Replace(metin,",","'") metin = Replace(metin,"`","'") metin = Replace(metin,"-","") metin = Replace(metin,"–","") metin = Replace(metin,"‘’","") metin = Replace(metin,"‘","") metin = Replace(metin,"`","") metin = Replace(metin,"„","") metin = Replace(metin,"!","") metin = Replace(metin,"(","") metin = Replace(metin,")","") metin = Replace(metin,"'","") metin = Replace(metin,"`","") metin = Replace(metin,"'","") metin = Replace(metin,"’","") metin = Replace(metin,"=","") metin = Replace(metin,"&","") metin = Replace(metin,"%","") metin = Replace(metin,"!","") metin = Replace(metin,"#","") metin = Replace(metin,"<","") metin = Replace(metin,">","") metin = Replace(metin,"*","") metin = Replace(metin,":","") metin = Replace(metin,";","") metin = Replace(metin,"â","a") metin = Replace(metin,"Â","A") metin = Replace(metin,"ð","g") metin = Replace(metin,"Ð","G") metin = Replace(metin,"Ý","I") metin = Replace(metin,"ý","i") metin = Replace(metin,"ç","ç") metin = Replace(metin,"Ç","c") metin = Replace(metin,"ö","o") metin = Replace(metin,"Ö","Ö") metin = Replace(metin,"ü","u") metin = Replace(metin,"û","u") metin = Replace(metin,"Ü","Ü") metin = Replace(metin,"þ","s") metin = Replace(metin,"Þ","S") metin = Replace(metin,"/","-") metin = Replace(metin,"And","") metin = Replace(metin,"'","'") metin = Replace(metin,"Chr(34)","") metin = Replace(metin,"Chr(39)","") KarekterTemizle = metin End Function '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ If KatHaberListe.EOF And KatHaberListe.BOF Then Else While not KatHaberListe.Eof Set KatHaberBilgi = Createobject("ADODB.Recordset") KatHaberBilgi.open "SELECT * FROM trmodulhaber Where HaberId=" & KatHaberListe("HaberId") & " order by HaberId asc", aksoyBag , 1 , 3 Set KatHaberKategori = Createobject("ADODB.Recordset") KatHaberKategori.open "SELECT * FROM trmodulhaberkategori Where DegerId=" & KatHaberListe("HaberKategori") & " order by DegerId asc", aksoyBag , 1 , 3 Response.Write "" Response.Write "" Response.Write ""&KarekterTemizle(KatHaberBilgi("HaberOnMetin"))&"]]>" Response.Write "" Response.Write "" & return_RFC822_Date(KatHaberListe("HaberZaman"),"") & "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" KatHaberListe.MoveNext Wend End If '------------------------------------------------------------------------------------------------------------------------------------------------------------------------ %>