[ot] asp.. vb script

22/01/2005 - 23:49 por Jordi Maycas | Informe spam

Hola, tengo esta pagina con marcos. El problema radica en la llamada a
File.asp con el parametro Session("valor"), debido a que una vez estoy en la
pagina File.asp, si hago un response.write(Session("valor")), lo muestra
como vacio. Se que no es recomendable usar marcos y de hecho lo iba a
descartar, pero ayer, funcionaba.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"
"http://www.w3.org/TR/html4/frameset.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<% Dim ID
ID = Request("ID")
Session("valor")=Request("ID")
'Response.Write("valor=" & Session("valor"))
%>
<frameset rows="*" cols="366,613">
<frame src="File.asp?ID=" & Session("valor")>
<frameset rows="96,299" cols="*">
<frame src="prueba5.asp">
<frame src="perfil.asp?ID=" & Session("valor")>
</frameset>
</frameset>
<noframes><body>
</body></noframes>
</html>

FILE. ASP

<%
' -- file.asp --
' Retrieves binary files from the database

Response.Buffer = True
Dim connStr,prueba
prueba=Session("valor") 'AQUI PRUEBA NO TIENE NINGUN VALOR.. I DEBERIA
TENERLO.
if len(prueba)<1 Then
prueba=7
End if
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("\..\XXXXX\XXXXX.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
dim cadena
cadena="select [Data Fichero],[Contenido] from Files where ID=" & prueba
'PRUEBA NO TIENE VALOR...NO VA
'Response.Write(cadena)

rs.Open cadena, connStr, 2, 4

If Not rs.EOF Then
Response.ContentType = rs("Contenido")
Response.BinaryWrite rs("Data Fichero")
End If

rs.Close
Set rs = Nothing
%>

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Jhonny Vargas P. [MVP]

23/01/2005 - 00:47 | Informe spam

Te acabo de responder en el foro de vb

Realiza esta pregunta donde corresponda. microsoft.public.es.asp

Saludos,
Jhonny Vargas P.
Santiago de Chile

"Jordi Maycas" escribió en el mensaje
news:%

Hola, tengo esta pagina con marcos. El problema radica en la llamada a
File.asp con el parametro Session("valor"), debido a que una vez estoy en
la
pagina File.asp, si hago un response.write(Session("valor")), lo muestra
como vacio. Se que no es recomendable usar marcos y de hecho lo iba a
descartar, pero ayer, funcionaba.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"
"http://www.w3.org/TR/html4/frameset.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin título</title>
</head>
<% Dim ID
ID = Request("ID")
Session("valor")=Request("ID")
'Response.Write("valor=" & Session("valor"))
%>
<frameset rows="*" cols="366,613">
<frame src="File.asp?ID=" & Session("valor")>
<frameset rows="96,299" cols="*">
<frame src="prueba5.asp">
<frame src="perfil.asp?ID=" & Session("valor")>
</frameset>
</frameset>
<noframes><body>
</body></noframes>
</html>

FILE. ASP

<%
' -- file.asp --
' Retrieves binary files from the database

Response.Buffer = True
Dim connStr,prueba
prueba=Session("valor") 'AQUI PRUEBA NO TIENE NINGUN VALOR.. I DEBERIA
TENERLO.
if len(prueba)<1 Then
prueba=7
End if
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("\..\XXXXX\XXXXX.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
dim cadena
cadena="select [Data Fichero],[Contenido] from Files where ID=" & prueba
'PRUEBA NO TIENE VALOR...NO VA
'Response.Write(cadena)

rs.Open cadena, connStr, 2, 4

If Not rs.EOF Then
Response.ContentType = rs("Contenido")
Response.BinaryWrite rs("Data Fichero")
End If

rs.Close
Set rs = Nothing
%>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida