Try changing
objConnection.open = "Provider=SQLNCLI10;Server
=apdserver
\SQLEXPRES
S;Database
=Intranet;
Uid=webuse
r;Pwd=pass
word;Trust
ed_Connect
ion=Yes;Da
taTypeComp
atibility=
80"
to
objConnection.open = "Provider=SQLNCLI10;Server
=apdserver
\SQLEXPRES
S;Database
=Intranet;
Uid=webuse
r;Pwd=pass
word;Trust
ed_Connect
ion=No;Dat
aTypeCompa
tibility=8
0"
You can find more information here
http://www.connectionstrings.com/sql-server-2008