Get RSS from news - ASP and MSSQL

I have a RSS script that works fine with MsAccess and I need to change it to connect to MS SQL.

This is the connection code that works with Access:
Dim id
Dim currentDate
Dim pubDate

Const TABLE_NAME   = "News"
Const COL_ID       = "News_ID"
Const COL_MODIFIED = "News_date"
Const COL_TITLE    = "News_name"
Const COL_SUBTITLE = "News_headline"
Const COL_CONTENTS = "News_content"


id = Request.QueryString("News_ID")
if Not IsEmpty(id) And IsNumeric(id) then
      id = CInt(id)
      id = 0
end if

Set rs = Server.CreateObject("ADODB.RecordSet")
if id > 0 then
      query = query & " WHERE " & COL_ID & "=" & id
end if

rs.Open query, Session("ConnectionString")


And this is the SQL connection string I want to connect to instead of the MsAccess:

MM_connCMS_STRING = "Provider=SQLOLEDB;Data Source=SERVER NAME;Initial Catalog=AAA;User ID=AAA;Password=BBB;persist security info=False;"
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Anthony PerkinsCommented:
Looks good to me.  What is the problem?
GDB08Author Commented:
Thanks for the reply.
This code connects to MsAccess database.  I need help to change it so it connects to MS SQL database instead with the following connections string:
MM_connCMS_STRING = "Provider=SQLOLEDB;Data Source=SERVER NAME;Initial Catalog=AAA;User ID=AAA;Password=BBB;persist security info=False;"
GDB08Author Commented:
I solved it. Case closed.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Web Languages and Standards

From novice to tech pro — start learning today.