Foros del Web » Programando para Internet » ASP Clásico »

Imagenes segun una caracteristica

 Estas en el tema de Imagenes segun una caracteristica en el foro de ASP Clásico en Foros del Web. Hola, mi problema es que tengo 4 imagenes, que son por cada casa segun mi organizacion (espero que lo entiendan), los nombres de las casas ...
  #1 (permalink)  
Antiguo 28/05/2004, 17:34
Avatar de HPNeo  
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 11 meses
Puntos: 0
Imagenes segun una caracteristica
Hola, mi problema es que tengo 4 imagenes, que son por cada casa segun mi organizacion (espero que lo entiendan), los nombres de las casas estan en una base de datos, hice el codigo con if, then, else y no cambia la imagen: el servidor no abre la imagen, pero cuando quito esa parte del codigo, si se pude ver.
El codigo esta dentro de <body>, y es:

Dim gry, rav, huf, sly, g, r, h, s, I

gry="images/png/gry.gif"
rav="images/png/rav.gif"
huf="images/png/huf.gif"
sly="images/png/sly.gif"

g="Gryffindor"
r="Ravenclaw"
h="Hufflepuff"
s="Slytherin"

<codigo asp de entrada a base de datos>
If (RS.Fields("Casa") = g then
I=gry
ElseIf RS.Fields("Casa") = r then
I=rav
ElseIf RS.Fields("Casa") = h then
I=huf
Else RS.Fields("Casa") = s then
I=sly
End If
'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If

<img src="<%= I %>" width="200" height="240" border="0">

Gracias por responder.

HPNeo
__________________
HPNeo
  #2 (permalink)  
Antiguo 29/05/2004, 05:58
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 22 años, 5 meses
Puntos: 0
No veo el problema. Prueba pidiendo un lcase al rs.fields. Pero es que aparentemente todo está bien. Compruebas si el campo es Gryffindor o lo que sea, y imprimes la imagen según corresponda.
¿Cual es el error? ¿Que resultado esperas?
__________________
Tu portal de manga y anime.
  #3 (permalink)  
Antiguo 29/05/2004, 09:57
Avatar de HPNeo  
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 11 meses
Puntos: 0
El problema es que cuando abro la pagina, sale un error de que no se puede mostrar la pagina, y si pruebo un select case en vez de if, then else?
Gracias
__________________
HPNeo
  #4 (permalink)  
Antiguo 29/05/2004, 09:59
Avatar de HPNeo  
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 11 meses
Puntos: 0
Si deseas, te doy todo el codigo.
__________________
HPNeo
  #5 (permalink)  
Antiguo 29/05/2004, 14:55
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 22 años, 5 meses
Puntos: 0
Mmm ... esto: "<codigo asp de entrada a base de datos>" no lo tendrás en tu archivo .asp ¿verdad?

Por que si quieres meter un comentario en asp, es con la comilla ' (supongo que ya sabrás). Y si te da un error de que no se puede mostrar la página ... es que tal y como lo has puesto, pues no se si es por que no cierras las etiquetas <% %> en su debido lugar o que pasa.

Pon el código comotú lo tienes, pero no me pegues los 1000lineas de la pagina :P (solo lo que está en relación a esto)
__________________
Tu portal de manga y anime.
  #6 (permalink)  
Antiguo 29/05/2004, 15:43
Avatar de HPNeo  
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 11 meses
Puntos: 0
Ok, aqui va:
<%
Dim login, clave, oConn, RS
Dim gry, rav, huf, sly, g, r, h, s, I

gry="images/png/gry.png"
rav="images/png/rav.png"
huf="images/png/huf.png"
sly="images/png/sly.png"

g="Gryffindor"
r="Ravenclaw"
h="Hufflepuff"
s="Slytherin"

If Request.Form("login") = "" OR Request.Form("clave") = "" then
Response.Redirect "hogwarts.asp"
Else
login = Trim(Request.Form("login"))
clave = Trim(Request.Form("clave"))
login = Replace(login,"'","''")
clave = Replace(clave,"'","''")

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/lodhp.mdb")

sql = "SELECT * FROM Alumnos WHERE Nick = '"& login &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("Clave") = clave then
Bienvenido <B>"& login &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

If (RS.Fields("Casa") = g then
I=gry
ElseIf RS.Fields("Casa") = r then
I=rav
ElseIf RS.Fields("Casa") = h then
I=huf
Else RS.Fields("Casa") = s then
I=sly
End If

RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>

<img src="<%= I %>" width="152" height="181" border="0" align="top">
__________________
HPNeo
  #7 (permalink)  
Antiguo 12/06/2004, 09:55
Avatar de HPNeo  
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 11 meses
Puntos: 0
Responde por favor
__________________
HPNeo
  #8 (permalink)  
Antiguo 12/06/2004, 15:29
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 22 años, 5 meses
Puntos: 0
Tenías varios errores de sintaxis. Sin probar si va bien la DB o no, te pego aquí el código bien escrito (luego si no te funciona ya buscamos a ver cual puede ser otro problema).

<%
Dim login, clave, oConn, RS
Dim gry, rav, huf, sly, g, r, h, s, I

gry="images/png/gry.png"
rav="images/png/rav.png"
huf="images/png/huf.png"
sly="images/png/sly.png"

g="Gryffindor"
r="Ravenclaw"
h="Hufflepuff"
s="Slytherin"

If Request.Form("login") = "" OR Request.Form("clave") = "" then
Response.redirect "hogwarts.asp"
Else
login = Trim(Request.Form("login"))
clave = Trim(Request.Form("clave"))
login = Replace(login,"'","''")
clave = Replace(clave,"'","''")

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/lodhp.mdb")

sql = "SELECT * FROM Alumnos WHERE Nick = '"& login &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("Clave") = clave then
Response.write "Bienvenido <B>"& login &"</B>"
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

If RS.Fields("Casa") = g then
I=gry
ElseIf RS.Fields("Casa") = r then
I=rav
ElseIf RS.Fields("Casa") = h then
I=huf
ElseIf RS.Fields("Casa") = s then
I=sly
End If

RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>

<img src="<%= I %>" width="152" height="181" border="0" align="top">
__________________
Tu portal de manga y anime.
  #9 (permalink)  
Antiguo 13/06/2004, 14:15
Avatar de HPNeo  
Fecha de Ingreso: mayo-2004
Ubicación: The Matrix
Mensajes: 223
Antigüedad: 20 años, 11 meses
Puntos: 0
Gracias, lo probare y luego te cuento
Bye
__________________
HPNeo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 16:19.