Trata esto, sustituye la IP del servidor SQL.
Código:
<%
strConnect = "Provider=SQLOLEDB.1;Persist Security Info=False;"&_
"Initial Catalog=ActividadesAna;Data Source=IP_Del_Equipo;"&_
"Use Procedure for Prepare=1;Auto Translate=True;"&_
"Packet Size=4096;User Id=alcc;Pwd=analuisa"
%>
<!-- METADATA type="typelib"
file="C:\program Files\Common Files\System\ado\msado15.dll" -->
%>