Scusate qualcuno mi saprebbe dire come mai il seguente codice, se lo provo in locale funzione, mentre su server no?

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = http://www....it/....../promozioni.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from Promozioni ORDER BY Data")
Do while NOT objRs.EOF
response.write "Data = " & objRs("Data") & "
"
response.write "Descrizione = " & objRs("Descrizione") & "
"
response.write "Scadenza = " & objRs("Scadenza") & "
"
response.write "Visualizza = " & objRs("Visualizza") & "
"
response.write "<hr size='1' color='midnightbluè width='40%' align='left'>"
objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>