<%@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_Titlos as title, f_thumb, f_Imerominia as imerominia, f_small_description as extra_descr from utpv_2 order by f_Imerominia 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 Newsbank http://www.johnkent.com/newsbank.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) photothumb=news(2,i) photothumb = replace(photothumb & "","%SitePath%", "" & Application("SitePath") & "") if instr(photothumb, ",") then myarr10 = split(photothumb,",") photothumb = left(photothumb, instr(photothumb, ",") -1) if myarr10(1) <> "" then myphotophotoalt10 = myarr10(1) end if end if %> <%if photothumb<>"" then%>"/>]]><%end if%> http://www.johnkent.com/default.asp?entryID=<%=news(0,i)%>&siteID=1&pageID=5&tablePageID=2&langID=1 http://www.johnkent.com/default.asp?entryID=<%=news(0,i)%>&siteID=1&pageID=5&tablePageID=2&langID=1 <% next end if%>