ASP - Conexion con asp

Amigos tengo el siguiente problema tengo una aplicacion asp que estaba funcionando super, pero hicieron una combio de domio de las maquinas y me arroja el siguiente drama.

Tipo de error:
Microsoft OLE DB Provider for SQL Server (0x80004005)
[DBNETLIB][ConnectionOpen (Connect()).]No existe el servidor SQL Server o se ha denegado el acceso al mismo.
/aplicaciones/mailing/correo.asp, línea 16

<!-- #include file="../Inc/db.inc.asp" -->
<!--#include file="../scripts/crypt.asp"-->
<%
dim archivo(500)
Response.expires=0

cnstring1 = "Provider=sqloledb; Server=" & servidorsql & "; Database=AP_Informatica; User Id=sa"
cn.ConnectionString = cnstring1

archivoa=request("arc")
Set con = Server.CreateObject("ADODB.Connection") 'objeto coneccion
Set RecSet = Server.CreateObject("ADODB.RecordSet")
Set RecSet1 = Server.CreateObject("ADODB.RecordSet")
Set Per = Server.CreateObject("ADODB.Recordset")

Con.Open cn ' esta es la linea 16

ahora la pagina que se conecta es la siguiente:

<%
'Estas lineas se utilizan para forzar la ejecución de la página desde el servidor (Sin cache)

Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0

dim cnstring, cnstringgub, cnstringrem, cnstringser, cn, rs, cmd, servidorsql, fondo,cnstringactivo,cndibam,cnactivo

' servidorsql = "DIBAM_SQL"
servidorsql = "10.83.230.116"
' servidorsql = "ACAVIERES"
servidorCorreo = "10.83.230.6"

cnstring = "Provider=sqloledb; Server=" & servidorsql & "; Database=Intranet; User Id=sa"

y no entindo que es lo ke tiene

si alguien me puede ayudar se agradecere