creo q ahora nos estamos entendiendo jaajajj
hice algunas modificaciones y funcionó
aqui está como lo dejé por si le sirve a alguien:
<%
Dim MM_Conexion_STRING, DirecionIP, LanOrigen
LanOrigen = mid(DirecionIP,1,3)
if LanOrigen = "200" then
serverSQL = "200.71.xxx.xx"
else
serverSQL = "192.168.x.x"
end if
MM_Conexion_STRING = "PROVIDER=SQLOLEDB;DATA SOURCE="& serverSQL &";UID=sa;PWD=sa;DATABASE=gestion_proyecto"
%>
saludos, y gracias!
caso cerrado
