Imagem de acordo com "tipo"

[eronventer 2]

Ae pessoal,

 

primeiramente, nao sou programador hehehe mas como o programador de onde trabalho esta fora preciso arrumar uma coisinha.

 

ASP [/tr][tr]<%

sql = "SELECT ID,TITULO,CHAMADA,IMAGEM_P FROM REVISTA WHERE ID_TIPO=1 ORDER BY ID DESC"

set rs = Server.CreateObject("ADODB.recordset")

rs.Open sql, conn

id1=rs("id")

ti1=rs("titulo")

ch1=rs("chamada")

im1=rs("imagem_p")

sql = "SELECT ID,TITULO,CHAMADA,IMAGEM_P FROM REVISTA WHERE ID_TIPO=2 ORDER BY ID DESC"

set rs = Server.CreateObject("ADODB.recordset")

rs.Open sql, conn

id2=rs("id")

ti2=rs("titulo")

ch2=rs("chamada")

im2=rs("imagem_p")

sql = "SELECT ID,TITULO,CHAMADA,IMAGEM_P FROM REVISTA WHERE ID_TIPO=3 ORDER BY ID DESC"

set rs = Server.CreateObject("ADODB.recordset")

rs.Open sql, conn

id3=rs("id")

ti3=rs("titulo")

ch3=rs("chamada")

im3=rs("imagem_p")

sql = "SELECT ID,TITULO,CHAMADA,IMAGEM_P FROM REVISTA WHERE ID_TIPO=4 ORDER BY ID DESC"

set rs = Server.CreateObject("ADODB.recordset")

rs.Open sql, conn

id4=rs("id")

ti4=rs("titulo")

ch4=rs("chamada")

im4=rs("imagem_p")

sql = "SELECT * FROM REVISTA WHERE ID_TIPO="&request("tipo")

set rs = Server.CreateObject("ADODB.recordset")

rs.Open sql, conn

%>

<%

tipo = request("tipo")

if tipo = rs("1") then

tipo_img = "bem_viver"

 

else tipo = rs("2") then

tipo_img = "lazer"

 

else tipo = rs("3") then

tipo_img = "bistro"

 

else tipo = rs("4") then

tipo_img = "pitadas"

end if

%>

[/tr]

 

o codigo acima em negrito que preciso arrumar era pra ser, se tipo for = 1 então tipo_img = "lazer, por exemplo"

 

mais abaixo desse codigo, na parte html eu teria:

 

<img src="img/tit_<%=tipo_img%>.jpg" width="345" height="20" border="0">

mas nao ta rolando, acontece o seguinte erro:

 

Microsoft VBScript compilation error '800a0401' Expected end of statement /site2004/revista/conteudo.asp, line 42 else tipo = rs("2") then--------------------^

[rOcKLoCo 0]

<%tipo = request("tipo")if tipo = rs("1") then     tipo_img = "bem_viver"elseif tipo = rs("2") then     tipo_img = "lazer"elseif tipo = rs("3") then     tipo_img = "bistro"elseif tipo = rs("4") then     tipo_img = "pitadas"end if%>

qdo você faz um if e usa else e nesse else você quer colocar outra condição, ou você usa o elseif condição ou faz

 

if condicao then

else

if condicao then

end if

end if

[FabricioGomes 0]

nao seria assim:

 

<%tipo = request("tipo")if tipo = "1" then   tipo_img = "bem_viver"elseif tipo = "2" then   tipo_img = "lazer"elseif tipo = "3" then   tipo_img = "bistro"elseif tipo = "4" then   tipo_img = "pitadas"else   tipo_img = "img_padrao_para_tipo_nao_definido"end if%>

espero ter ajudado

 

PS: depois de ter incluido a msg, vi que ja tinha a variavel tipo...

[eronventer 2]

rOcKLoCo

 

no seu codigo gerou o seguinte erro:

 

ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /site2004/revista/conteudo.asp, line 39

agradeço a ajuda do mesmo jeito

 

 

FABRICIOGOMES

 

mtu obrigado, funcionou perfeitamente

[rOcKLoCo 0]

rOcKLoCo

 

no seu codigo gerou o seguinte erro:

 

ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /site2004/revista/conteudo.asp, line 39

agradeço a ajuda do mesmo jeito

 

 

FABRICIOGOMES

 

mtu obrigado, funcionou perfeitamente

pensei q você estava comparando com o resultado do Recordset... e nem percebi q estavam errados os nomes dos campos!!

 

falows