<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% arrDayNames = Array("","Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat") arrMonthNames = Array("", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") response.ContentType = "text/xml" response.Charset = "utf-8" SQL = "select id, f_title as title, f_date as imerominia, f_descr as extra_descr ,f_pdf from utpv_6 order by f_order desc" Set oConn = Server.CreateObject("ADODB.Connection") Set oRs = Server.CreateObject("ADODB.Recordset") oConn.Open Application("ConStr") set oRs = oConn.execute(SQL) if oRs.EOF = false then news = oRs.getRows() end if oRs.close oConn.close set oRs = nothing set oConn = nothing %> http://www.johnkent.com Interviews http://www.johnkent.com/interviews.asp http://www.johnkent.com/Images/john.jpg http://www.johnkent.com/ 176 64 el-gr Tue, 22 Dec 2009 04:00:00 GMT Tue, 22 Dec 2009 09:41:01 GMT johnkent.com portal john@youtravel.com john@youtravel.com <% if isarray(news) then for i = 0 to ubound(news) news(3,i)=replace(news(3,i),"'","") if news(4,i)<>"" then news(4,i)=replace(news(4,i),"%SitePath%","") end if %> ]]> http://www.johnkent.com<%=news(4,i)%> http://www.johnkent.com<%=news(4,i)%> <% next end if%>