<%@ Language = VBScript %> KYRA'S PARADISE - BUNGALOWS - ΠΗΛΙΟ - ΕΛΛΑΔΑ
 
Αρχική Σελίδα
Greek Version English Version Αρχική Σελίδα Bookmark Us Αρχική Σελίδα
<% 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")%>
<% rsNEWS.MoveNext Loop rsNEWS.MoveFirst %>
...Πουθενά αλλού στον παγκόσμιο χάρτη βουνό και θάλασσα δεν συνταιριάζοντε τόσο έντεχνα...
  Λεπτομέρειες »
 
<% Do while not rsNEWS.EOF %> <% rsNEWS.MoveNext Loop Set rsNews=Nothing Set cnn=Nothing %>
"><%=rsNEWS("title")%>
<%=rsNEWS("news_date")%>
<% Dim txt_file, objFile, filePath, objOpenFile,str_all txt_file=rsNEWS("id_news")&".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