Kald til DB

Jeg sidder men en side som virker fint men de DB kald jeg havde lavet, men nu hvor jeg skal oplode mine filer skal jeg ændre mine kald, og for en amatør som min er det ikke bare lige noget man gør, siden vi snakker om er http://www.mgbiler.dk
og linket lager.

---------------------------------------------------------------------

<%
  Dim objConn
  Dim RS

\'Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"demo.mdb\")

Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set RS = Server.CreateObject (\"ADODB.Recordset\")

objConn.Open strConnect

objRS.Open \"Images\", objConn, 0, 1, 2


strSQL = \"Select * From Images\"
Set RS = objConn.Execute(strSQL)

countSQL = \"Select Count(ID) As Count From Images\"
RS2 = objConn.Execute(countSQL)
%>