i have tried to run this code, below is the error message i get...
<?xml version="1.0" encoding="ISO-8859-1"?>
<% Response.Buffer = true
Response.ContentType = "text/xml"
Function ApplyXMLFormatting(strInput)
strInput = Replace(strInput,"&", "&"
strInput = Replace(strInput,"'", "'"
strInput = Replace(strInput,"""", """
strInput = Replace(strInput, ">", ">"
strInput = Replace(strInput,"<","<"
ApplyXMLFormatting = strInput
End Function
%>
<rss version="2.0">
<channel>
<title>Recent Posts on ASPMessageboard.com</title>
<link> <description>ASPMessageboard.com is a site where developers of
Microsoft's Active Server Pages and Active Server Pages .NET
can come to ask questions and get answers!</description>
<language>en-us</language>
<copyright>Copyright 2003 Jupitermedia Corporation.
All Rights Reserved.</copyright>
<ttl>20</ttl>
<%
strConnect = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("rss.mdb"
Set objConn = Server.CreateObject ("ADODB.Connection"
objConn.Open strConnect
strSQL = "SELECT * FROM tblRss Order by Title Desc;"
Set objRS = objConn.Execute(strSQL)
Do While Not objRS.EOF
%> <item>
<title><%=ApplyXMLFormatting(objRS("title"
.Value)%>
</title>
<link><%=ApplyXMLFormatting(objRS("link"
.Value)%>
</link>
<description><%=ApplyXMLFormatting(objRS("intro"
.Value)%></description>
</item>
<%
objRS.MoveNext
Loop
%>
</channel>
</rss>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
error message is
A string literal was expected, but no opening quote character was found. Error processing resource ' Line 14, Position 26
<font face="Arial" size=2>
-------------------------^
any ideas?
thanks
M
<?xml version="1.0" encoding="ISO-8859-1"?>
<% Response.Buffer = true
Response.ContentType = "text/xml"
Function ApplyXMLFormatting(strInput)
strInput = Replace(strInput,"&", "&"
strInput = Replace(strInput,"'", "'"
strInput = Replace(strInput,"""", """
strInput = Replace(strInput, ">", ">"
strInput = Replace(strInput,"<","<"
ApplyXMLFormatting = strInput
End Function
%>
<rss version="2.0">
<channel>
<title>Recent Posts on ASPMessageboard.com</title>
<link> <description>ASPMessageboard.com is a site where developers of
Microsoft's Active Server Pages and Active Server Pages .NET
can come to ask questions and get answers!</description>
<language>en-us</language>
<copyright>Copyright 2003 Jupitermedia Corporation.
All Rights Reserved.</copyright>
<ttl>20</ttl>
<%
strConnect = "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("rss.mdb"
Set objConn = Server.CreateObject ("ADODB.Connection"
objConn.Open strConnect
strSQL = "SELECT * FROM tblRss Order by Title Desc;"
Set objRS = objConn.Execute(strSQL)
Do While Not objRS.EOF
%> <item>
<title><%=ApplyXMLFormatting(objRS("title"
</title>
<link><%=ApplyXMLFormatting(objRS("link"
</link>
<description><%=ApplyXMLFormatting(objRS("intro"
</item>
<%
objRS.MoveNext
Loop
%>
</channel>
</rss>
<%
objRS.Close
Set objRS = Nothing
objConn.Close
Set objRS = Nothing
Set objConn = Nothing
%>
error message is
A string literal was expected, but no opening quote character was found. Error processing resource ' Line 14, Position 26
<font face="Arial" size=2>
-------------------------^
any ideas?
thanks
M