|
<%
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.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("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
|
| |
<%
rsNEWS.MoveNext
Loop
Set rsNews=Nothing
Set cnn=Nothing
%>
|
|
|
