<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> GopacSI, demo SOA <% '17-Ags-2007, se implementa redirección al demo soa, con ubicación local. demo = Request.QueryString("demo") demo = replace(demo,"/","") demo = replace(demo,"\","") demo = replace(demo,"'","") demo = replace(demo,".","") if demo <> "" then 'Se toma el valor del archivo de texto "newip.txt", dinamicamente. Const fsoLectura = 1 Dim objFSO Dim ip Dim path 'Instanciación del objeto FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Abrir el archivo de texto Dim objTextStream Set objTextStream = objFSO.OpenTextFile("D:\Inetpub\gopac.com.mx\files\gopac.com.mx\uploadsIP\newip.txt", fsoLectura) 'Visualiza en el navegador el contendido del archivo de texto Dim Url8080, Url8081 Url8080 = objTextStream.ReadAll Url8081 = Replace(Url8080,"8080","8081") 'Response.Write(Url8081) '02 Septiembre 2008 ' El path /gopacv2/soluciones/soa/demosoa/ es la ruta de la version 2, se debe cambiar al path de la version 3 '/gopacv3/gopacso/Soa/demosoa/ 'El link a usar es: http://www.gopac.com.mx/demosoa.asp?demo=SOARedDemo %> <% else response.Redirect("http://www.gopac.com.mx/soluciones/soa/index.htm") end if %>