Foros del Web - Ver Mensaje Individual

esteller · #1 (**permalink**) 11/11/2008, 10:50

Muy buenas.
Acabo de instalar IIS y he puesto una pagina y no me la muestra.

me muestra esta correctamente:

Código:

<%
Response.Write("Nuestro Primer ASP")
%>

En canvio esta, no me la muestra:

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim objXML1, fso, tf, ts, s
Const ForReading = 1



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=*****;UID=*****;PWD=******"
Set Dades = Server.CreateObject("ADODB.RecordSet")
Dades.Open "select distinct ANI,MES from HORARIS",Conn,1
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath("../proves/xml.xml"))
tf.WriteLine("<?xml version=" & chr(34) & "1.0" & chr(34) & " encoding=" & chr(34) & "UTF-8" & chr(34) & "?>")
tf.WriteLine("<BATLLO>")
tf.WriteLine("<SECCIO id=" & chr(34) & "visitas_desvan" & chr(34) & " TIPUS=" & chr(34) & "mosaic2x1" & chr(34) & " IMPRIMIR=" & chr(34) & "false" & chr(34) & ">EL DESVAN, LA AZOTEA, LAS CHIMENEAS")
tf.WriteLine("<TITULAR>EL DESVAN, LA AZOTEA, LAS CHIMENEAS</TITULAR>")
tf.WriteLine("<TEXT>")
tf.WriteLine("<![CDATA[")
	
	do while not Dades.Eof     
        if Dades("MES")=1 then
           Devolver = "ENERO"
           txtMes="Enero"
        end if
        if Dades("MES")=2 then
           Devolver = "FEBRERO"
           txtMes="Febrero"
        end if
        if Dades("MES")=3 then
           Devolver = "MARZO"
           txtMes="Marzo"
        end if
        if Dades("MES")=4 then
           Devolver = "ABRIL"
           txtMes="Abril"
        end if
        if Dades("MES")=5 then
           Devolver = "MAYO"
           txtMes="Mayo"
        end if
        if Dades("MES")=6 then
           Devolver = "JUNIO"
           txtMes="Junio"
        end if
        if Dades("MES")=7 then
           Devolver = "JULIO"
           txtMes="Julio"
        end if
        if Dades("MES")=8 then
           Devolver = "AGOSTO"
           txtMes="Agosto"
        end if
        if Dades("MES")=9 then
           Devolver = "SEPTIEMBRE"
           txtMes="Septiembre"
        end if
        if Dades("MES")=10 then
           Devolver = "OCTUBRE"
           txtMes="Octubre"
        end if
        if Dades("MES")=11 then
           Devolver = "NOVIEMBRE"
           txtMes="Noviembre"
        end if
        if Dades("MES")=12 then
           Devolver = "DICIEMBRE"
           txtMes="Diciembre"
        end if
        
	Devolver = "<b>" & Devolver & " " & CStr(Dades("ANI")) & "</b>"
     	Set Dades2 = Server.CreateObject("ADODB.RecordSet")
	consulta ="select DIA,MES,ANI,INICINOBLE,FINOBLE,INICIGOLFES,FIGOLFES from HORARIS WHERE MES="+CStr(Dades("MES"))
	Dades2.Open consulta,Conn,1
       	do while not Dades2.Eof
		Devolver = Devolver & "<br />  " & CStr(Dades2("DIA")) & " " & txtMes & "<br />       Planta Noble: de " & Dades2("INICINOBLE") & "h a " & Dades2("FINOBLE") & "h<br />       Golfes: de " & Dades2("INICIGOLFES") & "h a " & Dades2("FIGOLFES") & "h"
		Dades2.MoveNext
       loop
     Dades.MoveNext
	tf.WriteLine("" & Devolver & "")
     loop

tf.WriteLine("]]>")
tf.WriteLine("</TEXT>")
tf.WriteLine("<IMAGEN URL=" & chr(34) & "images/visita_info1.jpg" & chr(34) & "></IMAGEN>")
tf.WriteLine("<IMAGEN URL=" & chr(34) & "images/visita_info2.jpg" & chr(34) & "></IMAGEN>")
tf.WriteLine("<IMAGEN URL=" & chr(34) & "images/visita_info3.jpg" & chr(34) & "></IMAGEN>")
tf.WriteLine("</SECCIO>")
tf.WriteLine("</BATLLO>")
tf.Close
Set fso = nothing
Set tf = nothing
Session.Abandon 
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Casa Batll&oacute;</title>
<meta name="description" content="Pàgina oficial de la Casa Batlló.">
<meta name="keywords" content="Casa Batlló,Gaudi,Antoni,gaudi,antonio,Antonio,antoni,gaudí,Gaudí,Barcelona,barcelona,casa batllo,Casa batllo,Casa Batllo,casa batlló,casa Batllo,casabatllo,batlló,Batlló,Batllo,batllo,Catalunya,catalunya,cataluña,Cataluña,Catalonia,catalonia,Antonio Gaudí,Espanya,espanya,spain,Spain,passeig de gracia,gracia,gràcia,Gracia,Gràcia,planta noble,jujol,cocheras y carboneras,1904-1906,1904,modernismo,modernisme,visita turistica,visita turística,lloguer sales,alquilar salas,alquiler salas,alquiler sala">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body background="gray" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="100%" height="100%">
  <param name="movie" value="INDEX.swf">
  <param name="quality" value="high">
<param name="scale" value="noscale" />
  <embed src="INDEX.swf" scale="noscale" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="100%" height="100%"></embed></object>
</body>
</html>

Al ejecutar esta me muestra esto:

Código HTML:

No se puede mostrar la página
Hay un problema con la página que está intentando ver y no se puede mostrar.

Please try the following:

    * Haga clic en el botón Actualizar o inténtelo de nuevo más tarde.
    * Abra la página principal de localhost y, a continuación, busque vínculos a la información que desea.

HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server

Información técnica (para personal de soporte técnico)

    * Tipo de error:
      Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
      [Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
      /batllo/index_.asp, línea 9

    * Tipo de explorador:
      Mozilla/5.0 (Windows; U; Windows NT 5.1; es-ES; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3

    * Página:
      GET /batllo/index_.asp

    * Hora:
      martes, 11 de noviembre de 2008, 17:46:00

    * Más información:
      Soporte técnico de Microsoft

A que puede ser debido, falta algo por instalar?? No interpreta bien VBSCRIPT??

Gracias por su atencion.
un saludo