]> Anafikir.com http://www.anafikir.com tr Copyright 2005-2006 selim.yoruk@anafikir.com TMQ Inc http://blogs.law.harvard.edu/tech/rss<% Function rDate(myDate, offset) Dim myDay, myDays, myMonth, myYear Dim myHours, myMonths, mySeconds myDate = CDate(myDate) myDay = WeekdayName(Weekday(myDate),true) myDays = Day(myDate) myMonth = MonthName(Month(myDate), true) myYear = Year(myDate) myHours = zeroPad(Hour(myDate), 2) myMinutes = zeroPad(Minute(myDate), 2) mySeconds = zeroPad(Second(myDate), 2) rDate = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ offset End Function Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function%> <%Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nhy/cr.mdb") Set gi = Server.CreateObject("ADODB.Recordset") Sorgu = "Select * from b order by date desc" gi.Open Sorgu,Baglanti,1,3 for i=1 to 50 uz=instr(gi("entry"), "") yaz="
["&gi("kat")&"]
"&left(gi("entry"), uz-1)&"...

İçeriğin tümüne ulaşmak için tıklayınız"%> http://www.anafikir.com/goster.asp?t=<%=gi("bid")%><![CDATA[<%=gi("ba")%>]]>]]><%=gi("kat")%>rss@anafikir.com<%=rdate(gi("date"), "+0300")%> <%gi.movenext next%>