Problema con PDF

22/04/2004 - 12:29 por Fernando Uranga | Informe spam
Muy buenas.

Tengo un auténtico polstergeist con un ASP. De entrada, este SP me está
funcionado bien en varios sitios, pero en un cliente en concreto, al
invocarlo no funciona y además me deja el IIS tirado. En cuanto lo
invoco, dejan de funcionar TODOS los ASP's que tengo en ese mismo
directorio y, si intento entrar desde IIS en las porpiedades el
directorio virtual, se queda frito y hay que reinisar el equipo.

Ya estoy desesperado ¿Alguien sabe qué os... puede estar pasando?

Graicas de antemano.

Fernando Uranga

Preguntas similare

Leer las respuestas

#1 Dalton
22/04/2004 - 13:51 | Informe spam
Como has puesto pdf en el asunto te comento mi caso por si puede serte de
utilidad.

Estaba utilizando un componente externo, ised.dll, para generar pdf desde
asp.
El caso es que cuando actualizé a una nueva versión el servidor se quedaba
colgado; no procesaba ningún tipo de archivo. A base de muchos contactos con
el desarrollador del componente pudo averiguar que la librería utilizada
daba problemas si el IIS5 estaba bajo W2000.
Desarrolló un nuevo componente que soluciónó el problema.

Espero te haya servido de ayuda.
Salu2
Respuesta Responder a este mensaje
#2 Fernando Uranga
22/04/2004 - 16:35 | Informe spam
Buenas:

Gracias por la ayuda, pero el problema es otro. En realidad, queria
haber puesto "Problemas con ASP", pero me he liado porque el ASP que me
falla lo quen hace es abrir un fichero PDF que tengo en una base de datos.

Un saludo.

Fernando Uranga

Dalton escribió:
Como has puesto pdf en el asunto te comento mi caso por si puede serte de
utilidad.

Estaba utilizando un componente externo, ised.dll, para generar pdf desde
asp.
El caso es que cuando actualizé a una nueva versión el servidor se quedaba
colgado; no procesaba ningún tipo de archivo. A base de muchos contactos con
el desarrollador del componente pudo averiguar que la librería utilizada
daba problemas si el IIS5 estaba bajo W2000.
Desarrolló un nuevo componente que soluciónó el problema.

Espero te haya servido de ayuda.
Salu2


Respuesta Responder a este mensaje
#3 Sashka
22/04/2004 - 21:15 | Informe spam
El problema debe estar en el user control... porque no le pones un on error
resume next y te fijas en el error que te da...

Sashka
MS MVP Access

"Fernando Uranga" escribió en el mensaje
news:
Envío por si acaso el ASP en cuestión.

Un saludo.

Fernando Uranga








-
-


<%option explicit%>
<%response.expires=0%>
<%response.buffer = false %>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name=Formulario>
<%
Dim Test ,sql,conn,nombrefichero,parametrocoddoc
dim tdatos,coddoc,revision,version,tdatos1,resultado

nombrefichero=""
parametrocoddoc = request("CODDOC")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open application("Conexion")


if isnull(parametrocoddoc) or parametrocoddoc="" then
parametrocodoc =""
else
sql = "select coddoc,revision,version from doc where


coddoc='"&parametrocoddoc&"' and codest in (2,6)"
Response.Write "<br>SQL1 = " & sql

tdatos = lookup(conn,sql)
if tdatos(0)<>"0" then
coddoc = tdatos(0)
revision = tdatos(1)
version = tdatos(2)
sql = "select nombre from bpd where coddoc='"&coddoc&"' and


revision='"&revision&"' and version='"&version&"'"
Response.Write "<br>SQL2: " & sql
tdatos1 = lookup(conn,sql)
nombrefichero = tdatos1(0)

'response.write "Conexion= "& application("conexion") &


"Coddoc = " & cstr(coddoc) & "Revision = " & cstr(revision) & "Version= " &
cstr(version) & "Documento = " &
application("dirdocumentos")&cstr(nombrefichero)

Set Test = Server.CreateObject("Proyecto1.UserControl1")
Response.Write "<br>Antes"
resultado Test.RecogerDatosBPD(application("conexion"),cstr(coddoc),cstr(revision),cst


r(version),0,"",application("dirdocumentos")&cstr(nombrefichero))
Response.Write "<br>Después"
Set Test = Nothing
end if
end if

Conn.close
%>
</form>
</body>
</html>
<%
if nombrefichero="" or nombrefichero="0" then
response.write "Error en el Código "& parametrocoddoc
else
response.write "<a href=http://"


&application("httpdocumentos")&"/"&nombrefichero&" target=""_blank"">Abrir
"&nombrefichero& "</a>"
'response.write "<script>location=(


'"&application("httpdocumentos")&""&nombrefichero&"');</script>"
end if


function lookUp(Conn, sql1)
dim num, cursor,i,valor
Set cursor=Conn.Execute(sql1)

if Err.Number<>0 then
response.write "<br>Err: " & Err.Description
end if

if (Not cursor.EOF) then
num = cursor.fields.count
ReDim valor(num)
for i=0 to (cursor.fields.count)-1
valor(i)=cursor(i)
next
lookUp=valor
else
ReDim valor(1)
valor(0) = 0
lookUp = valor
end if
cursor.close
end function

%>
Respuesta Responder a este mensaje
#4 Fernando Uranga
23/04/2004 - 18:00 | Informe spam
Ok, gracias, lo miraré.

Un saludo.

Fernando Uranga

Sashka escribió:
El problema debe estar en el user control... porque no le pones un on error
resume next y te fijas en el error que te da...

Sashka
MS MVP Access

"Fernando Uranga" escribió en el mensaje
news:

Envío por si acaso el ASP en cuestión.

Un saludo.

Fernando Uranga









-
-



<%option explicit%>
<%response.expires=0%>
<%response.buffer = false %>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name=Formulario>
<%
Dim Test ,sql,conn,nombrefichero,parametrocoddoc
dim tdatos,coddoc,revision,version,tdatos1,resultado

nombrefichero=""
parametrocoddoc = request("CODDOC")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open application("Conexion")


if isnull(parametrocoddoc) or parametrocoddoc="" then
parametrocodoc =""
else
sql = "select coddoc,revision,version from doc where



coddoc='"&parametrocoddoc&"' and codest in (2,6)"

Response.Write "<br>SQL1 = " & sql

tdatos = lookup(conn,sql)
if tdatos(0)<>"0" then
coddoc = tdatos(0)
revision = tdatos(1)
version = tdatos(2)
sql = "select nombre from bpd where coddoc='"&coddoc&"' and



revision='"&revision&"' and version='"&version&"'"

Response.Write "<br>SQL2: " & sql
tdatos1 = lookup(conn,sql)
nombrefichero = tdatos1(0)

'response.write "Conexion= "& application("conexion") &



"Coddoc = " & cstr(coddoc) & "Revision = " & cstr(revision) & "Version= " &
cstr(version) & "Documento = " &
application("dirdocumentos")&cstr(nombrefichero)

Set Test = Server.CreateObject("Proyecto1.UserControl1")
Response.Write "<br>Antes"
resultado >


Test.RecogerDatosBPD(application("conexion"),cstr(coddoc),cstr(revision),cst
r(version),0,"",application("dirdocumentos")&cstr(nombrefichero))

Response.Write "<br>Después"
Set Test = Nothing
end if
end if

Conn.close
%>
</form>
</body>
</html>
<%
if nombrefichero="" or nombrefichero="0" then
response.write "Error en el Código "& parametrocoddoc
else
response.write "<a href=http://"



&application("httpdocumentos")&"/"&nombrefichero&" target=""_blank"">Abrir
"&nombrefichero& "</a>"

'response.write "<script>location=(



'"&application("httpdocumentos")&""&nombrefichero&"');</script>"

end if


function lookUp(Conn, sql1)
dim num, cursor,i,valor
Set cursor=Conn.Execute(sql1)

if Err.Number<>0 then
response.write "<br>Err: " & Err.Description
end if

if (Not cursor.EOF) then
num = cursor.fields.count
ReDim valor(num)
for i=0 to (cursor.fields.count)-1
valor(i)=cursor(i)
next
lookUp=valor
else
ReDim valor(1)
valor(0) = 0
lookUp = valor
end if
cursor.close
end function

%>





email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida