สอบถามปัญหาการใช้ ASP Classic กับฐานข้อมูล Ms Access (.accdb)

Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="&Server.mappath("/frsdoae/Cooperation/app/storage/db/International_Cooperation.accdb")     ' oledb for ado2.0 up only
Set rs=Server.CreateObject("ADODB.Recordset")
Sql = "Select * FROM Framework  WHERE Type='เตือนภัย'ORDER by ID DESC"
rs.Open Sql, conn, 1, 3      
With Response
   Response.Write "<table border=0 cellpadding=1 cellspacing=1 align=center width='100%'>"
Color=0
i=1
Do While Not rs.Eof and i<= rs.PageSize
With Response
      If Color=0 Then
         .Write "<tr bgcolor=#eeeeee>"
         Color=1
      Else
         .Write "<tr bgcolor=#fefefe>"
         Color=0
      End If
      .Write "<td>" & rs("Framework") & "</td>"
      .Write "</tr>"
End With
rs.MoveNext
i=i+1
Loop

With Response
   .Write "</table>"   
   .Write "</body></html>"
End With

rs.Close
Set rs=Nothing
conn.Close
End With
Set conn=Nothing
%>