Цитата Sham:
|
<% Response.ContentType = "text/xml" %> »
|
Спасибо помогло если кому нибудь интересно вот исходныйй текст который получился
<%@ Language=VBScript %>
<% Response.ContentType = "text/xml" %>
<%
Response.Write "<?xml version=" & chr(34) & "1.0" & chr(34) & " encoding=" & chr(34) & "windows-1251" & chr(34) & "?>" & chr(13)
Response.Write "<rss version=" & chr(34) & "2.0" & chr(34) & ">" & chr(13)
Response.Write "<channel>" & chr(13) & chr(13)
Response.Write "<title>Ipak yulim</title>" & chr(13)
Response.Write "<link>http://10.14.144.95/</link>" & chr(13)
Response.Write "<description>Ipak yul i</description>" & chr(13)
Response.Write "<image>" & chr(13)
Response.Write "<url>http://10.14.144.95/images/Ipak.gif</url><link>http://10.14.144.95</link><title>10.14.144.95 Новости</title>"& chr(13)
Response.Write "</image>" & chr(13) %>
<%
'Создание объекта подключения.
Response.Write "<lastBuildDate>" & Date() & " " & Time() & "</lastBuildDate> " & chr(13)
Set cnn = Server.CreateObject("ADODB.Connection")
Set rstCustomers = Server.CreateObject("ADODB.Recordset")
'Открытие подключения с помощью строки подключения OLE DB.
cnn.Open "Provider=ibole.Provider.v4;Persist Security Info=True;Data Source=localhost:C:\Inetpub\webbase\WBASE.FDB;Mode=Read;%LOGIN-INFO%"
strSQL = "select FIRST 10 * from news order by time_stamp desc;"
rstCustomers.Open strSQL, cnn
Set objTITLE = rstCustomers("TITLE")
Set objTIME_STAMP = rstCustomers("TIME_STAMP")
Set objTEXT = rstCustomers("TEXT")
Set objID = rstCustomers("ID")
Do Until rstCustomers.EOF
Response.Write " <item>" & chr(13) & "<title>" & objTITLE & "</title>" & chr(13)
Response.Write "<link>http://10.14.144.95/asp/podrobno.asp?id=" & objID & "</link> " & chr(13)
Response.Write " <description>" & objTEXT &"</description> " & chr(13)
Response.Write " <pubDate>" & date() & " " & time() & "</pubDate> "& chr(13)
Response.Write " <guid>http://10.14.144.95/asp/podrobno.asp?id=" & objID & "</guid>" & chr(13) & "</item> "
rstCustomers.MoveNext
Loop
%>
</channel> </rss>
