problema sql con asp

[Beav]

hola!!!

Tengo un problemilla al tratar de pasar de una página a otra porque no me coge el ID que le corresponde, me sale como valor 0 cuando no debería de ser así.

La página de donde viene:

< a href="ampliar_noticia.asp?id=<%=RS("I_NOTICIA_1")% >">

¿Cómo hago para poder coger este I_NOTICIA_1 en la otra página para que me muestre la noticia correspondiente?

El código que tengo donde debe de salir la noticia completa es:

ipag=Request("ipag")
If (ipag="") Or Not (isNumeric(ipag)) Then
ipag=0
End If
ipag=Abs(ipag)

<%
AbrirConexion dbi,session("DNS")

Dim RS,sSQL

IF I_NOTICIA="" Then
I_NOTICIA=0
End If


sSQL= "SELECT X_NOTICIA.F_PUBLICACION, X_NOTICIA.ANTETITULO, X_NOTICIA.TITULO, X_NOTICIA.SUBTITULO, X_NOTICIA.CUERPO, " &_
" X_NOTICIA.AUTOR, X_NOTICIA.I_GRUPO_IMAGENES " &_
" FROM X_NOTICIA " &_
" WHERE (((X_NOTICIA.I_NOTICIA_1)=" & I_NOTICIA & "))"

CrearRS dbi,rs,sSQL,0

If Not RS.EOF Then

FECHA=BD_FECHA(RS("F_PUBLICACION"))
AUTOR=RS("AUTOR")
ANTETITULO=RS("ANTETITULO")
TITULO=RS("TITULO")
SUBTITULO=RS("SUBTITULO")
CUERPO=RS("CUERPO")
I_GRUPO_IMAGENES=RS("I_GRUPO_IMAGENES")

End If
CerrarObj(RS)


%>

gracias por todo!!!

[tammander]

Por casualidad I_NOTICIA no le has asignado el valor que viene en el querystring?

I_NOTICIA = request("id")
IF I_NOTICIA="" Then
I_NOTICIA=0
End If

segun veo esto es lo que llega a esa página:

< a href="ampliar_noticia.asp?id=<%=RS("I_NOTICIA_1")% >">



Un saludo

[Beav]

muchas gracias, era exactamente eso!!!

[Beav]

bueno ahora el problema q tengo es con el tamaño de las fotos, no consigo ponerlas como yo quiero. Una tiene que estar a 100x80, que sale bien y la otra a 318x253. Y lo que hago es que las dos se me ponen al mismo tamaño.
Este es el código:

'reconvertimos la imagen
IF TIPO_OBJETO="IMAGEN" THen
Set jpg = Server.CreateObject("Persits.Jpeg")
RUTA=Server.MapPath(dir_subida2) & "/" & strNombreFichero
jpg.Open(RUTA)

Width = ANCHO_FOTO 'ancho nuevo

If jpg.Height>Width Then
Height = jpg.Height * Width /jpg.Width 'ancho nuevo

jpg.Interpolation=1
jpg.Width = Width
jpg.Height = Height

' Sharpen resultant image
jpg.Sharpen 1, 130

jpg.Save RUTA
End If

'2º thumb
If ANCHO_THUMB2<>"" Then

Width = ANCHO_THUMB2 'ancho nuevo
If jpg.Height>Width Then
Height = jpg.Height * Width /jpg.Width 'ancho nuevo

jpg.Interpolation=1
jpg.Width = Width
jpg.Height = Height

' Sharpen resultant image
jpg.Sharpen 1, 130
End If
jpg.Save Server.MapPath(dir_subida2) & "\thumb\" & NOMBRE_FICHERO & "_2" & EXTENSION_FICHERO
End If


'creamos thumbnail
RUTA=Server.MapPath(dir_subida2) & "/" & strNombreFichero

Width = ANCHO_THUMB 'ancho nuevo
If jpg.Height>Width Then
Height = jpg.Height * Width /jpg.Width 'ancho nuevo

jpg.Interpolation=1
jpg.Width = Width
jpg.Height = Height

' Sharpen resultant image
jpg.Sharpen 1, 130
End If
jpg.Save Server.MapPath(dir_subida2) & "/thumb/" & strNombreFichero

End If

es que no sé donde tengo que tocar para que me salga, alguien me echa una mano?

[tammander]

No se si ya lo has mirado pero usas el componente jpge de persists, mira su página :

http://www.aspjpeg.com/manual_02.html


Hay un ejemplo exacto de lo que quieres hacer.




Un saludo