<%@ Language = VBScript %> KYRA'S PARADISE - BUNGALOWS - PELION
 
Αρχική Σελίδα
Greek Version English Version Homepage Bookmark Us Homepage
<% Dim rsNEWS set rsNEWS=server.CreateObject ("ADODB.Recordset") rsNEWS.Open "SELECT * FROM tbl_news ORDER BY news_date desc ", cnn Do while not rsNEWS.EOF %>
"><%=rsNEWS("title_eng")%>
<% rsNEWS.MoveNext Loop rsNEWS.MoveFirst %>
…Nowhere else in the world map the mountain and sea weren't so skillfully matched…
  Details »
 
<% Do while not rsNEWS.EOF %> <% rsNEWS.MoveNext Loop Set rsNews=Nothing Set cnn=Nothing %>
"><%=rsNEWS("title_eng")%>
<%=rsNEWS("news_date")%>
<% Dim txt_file, objFile, filePath, objOpenFile,str_all txt_file=rsNEWS("id_news")&"_eng.txt" filePath=Server.MapPath("db_data\news\"&txt_file) Set objFile=Server.CreateObject("Scripting.FileSystemObject") set objOpenFile=objFile.OpenTextFile(filePath,1) Set objFileSize =objFile.GetFile(filePath) If (objFileSize.Size <> 0) then response.write objOpenFile.ReadAll end if %>
^ top