Rickardo

essa é minha pagina -> http://www.brcbr.com.br/full/mini_mo.asp veja que tem 3 coluna e sempre um campo fica em branco como resolvo isso?? grato abaixo vai meu codigo '................................................................................................................................................. <% Dim pasta_dados, conexao, dados, tbl, buscar, rsquery, tipo, imagem imagem = "n_foto.jpg" pasta_dados="e:\home\brd\dados\db\cadastro.mdb" set Conexao=server.createobject("ADODB.connection") dados = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";" Conexao.open dados set tbl = server.createObject("adodb.recordset") tbl.Open "cadastro", conexao buscar = "SELECT * FROM produtos where tipo = '19 pol' " set rsquery = conexao.execute(buscar) colunas=2 x=0 response.write "<table><tr><td></td><td></td><td></td><tr>" while not rsquery.eof if x<colunas then response.write "</td><td>" x=x+1. else response.write "</td></tr><tr><td>" x=0 end if %> <img src="./img/ <% If rsquery("foto") = "0" Then Response.Write imagem Else Response.Write rsquery("foto") End If %>"> <br> <% response.write rsquery("foto")%> <br> <% response.write rsquery("nome") rsquery.movenext wend response.write "</td></tr></table>" %> '.................................................................................................................................................

eu mandei 3 x :S email com os arquivos.. mais vou mandar de novo... alias.. fiz isso e não funcionou:S

por exemplo.. eu tenho foto1 = é a ampliada foto2 = é a pequena1 que ao clicar toma ligar da grande (foto 1) foto3 = é a pequena 2 que ao clicar toma ligar da grande (foto 1) logo vai ficar assim? onclick="document.foto1.src='foto2' é assim?

aproveitei esse post e coloquei minha duvida.. sa casó .... você conhece o mercado livre... pois é bem na parte onde aparece a imagem do produto eu queria fazer algo parecido.. tipo... 1 imagem grande e 4 menores abaixo.. ao clicar na foto abaixo.. ela tomasse o lugar da grande.... como posso fazer?? grato..

já resolvi meu problema... mais agora volto à 1º pergunta que fiz.. já tentei fazer de tudo e não consegui................ alguém aí pode me ajudar??? já enviei até pra nossa amiga moderador.. mais acho que ela não teve tempo de ver..

:rolleyes: kkkkkkkkkkkkkkkk mais é um cocô mesmo.. pensei que tivesse resolvido... mais agora só aparece o valor do rsquery("foto") e o n_foto.jpg não parece... e no caso deveria aparecer se o rsquery("foto") for "" nulo <% If (rsquery("foto1") = "") Then Response.Write "n_foto.jpg" Else Response.Write rsquery("foto1") End If%>

foi a 1º coisa que fiz antes de posta e o interessante é que se eu coloco apago esse if e só coloco ]<% =rsquery("foto")%> aparece certinho o que tem dentro do bd. o que pode ser?

Tenho essa função <% If rsquery("foto")=TRUE Then Response.Write =rsquery("foto") Else Response.Write "n_foto.jpg" End If%> porem só me aparece n_foto.jpg mesmo que tenha algo no campo foto onde eu estou errando??? :blink: :huh: ;)

hei amigos...e amigas.. calma.. ... sem nervozismo... ainda não consegui resolver meu problema..... ....... enviei meus arquivos pra você andreia_sp... no meu caso... acho que o 1º é que não estou conseguindo criar uma lógica pra poder descrever e programar emcima dela.... no entanto.. aindo estou penando.. mais tenho uma seguinte duvida... ( diferente dessa que já postei) estou tentando fazer uma pagina pra exibir umas foto que tão cadastradas no bd. logo .. 1º faço a busca no campo foto 2º exibe o resultado... ( até aí beleza..) minha duvida é .... como crio uma função onde -- caso o campo esteja em branco ( sem nada dentro) exiba uma imagem pre definida com o nome de n_foto.jpg?? não sei se é possivel..me responda.. sem_foto = "n_foto.jpg" funcao = ( se o resultado for positivo motra o resultado se o resultado for negativo mostra sem_foto fim da função ) funcao é possivel?? como escrevo isso em asp?

você recebeu meu email.. ?? porque não deu certo...

está dando esse erro Microsoft VBScript compilation error '800a0401' Expected end of statement /full/ver_produto.asp, line 97 Response.Write "<!-- #include file="log.asp" -->" ------------------------------------^

a propósito isso aqui está certo? <% if session("login_login") = true then Response.Write "<%=alt("obs")%> " else Response.Write "<!-- #include file="log.asp" -->" end if %>

acho que não estamos nos entendendo.. você tem MSN?? pra que eu te mande meus arquivos e tu entenda o que eu estou querendo fazer..

esse é o form. <form id="form1" name="form1" method="post" action="autentica.asp"> <table width="100%" border="0" cellspacing="4" bgcolor="#F7F7F7"> <tr> <td colspan="5"><label></label><label><span class="style5">Para visualizar o pre&ccedil;o vo&ccedil;e deve fazer o login, caso n&atilde;o <font color="#000000" face="Geneva, Arial, Helvetica, sans-serif">seja clientes cadastrado, se desejar pode se cadastrar <a href="cadastro.asp">clicando aqui </a></font> </span></label></td> </tr> <tr> <td>Login:</td> <td><input type=text name="Login" value="" class="style5" size="20" /></td> <td>Senha:</td> <td><input type=password name="Senha" value="" class="style5" size="10" /></td> <td><input type="image" src="ok_busca.gif" name="Submit" value="Submit" /></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> </form> ------------------------- esse autentica.asp <% Dim pasta_dadoss, conexaos, dadoss, tbls, rsquery, sqls, rsLogin, Login, Senha pasta_dadoss="e:\home\brd\dados\db\cadastro.mdb" set Conexaos=server.createobject("ADODB.connection") dadoss = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dadoss&";" Conexaos.open dadoss set tbls = server.createObject("adodb.recordset") tbls.Open "cadastro", conexaos sql = "select * from cadastro where email = '"&request.form("login")&"' and senha = '"&request.form("senha")&"' and ativo = 'sim'" set rsLogin = conexao.execute(sql) if not rsLogin.eof then Login = rsLogin("email") Senha = rsLogin("senha") Session("login")=TRUE Session("senha")=TRUE Response.Write " aqui é pra aparecer a variavel do valor" else Response.Write " erro ao logar tente novamente" end if rsLogin.close conexao.close set conexao = nothing set rsLogin = nothing %> ??????

valeu... entendo como tu falas.. porem não sei transcrever isso..

:S como pode me ajudar??? o problema é que meu login não trabalha com cooquies... no meu login só faz um select.. :S desculpe mais ainda sou meio burrim..

olhem essa pagina http://www.brcbr.com.br/full/ver_produto.asp?id=10 quero que o cara faça o login e clik em 'ok' aí se o login for válido.. mostra o valor ao invés do form de login. se for falso mostra o campo login e a mensagem pra entrar em contato com o departamento técnico. alguém aí pode me ajuda??? andreia_sp... socorro.. help-me.. valeu Rickardo Costa

andreia o négócio ai é o seguinte... tambem estou tendo esse problema.. desenvolvi um ecommerce.. e na hora de configurar o pagamento fizemos um contrato com o bradesco que fornece o modulo de pagamento completo via cartão, boleto financiamento e tudo.. e isso esses dados é por string.. o problema é que eu tambem não estou conseguindo implementar o codigo deles a minha loja.. já tentei contratar pessoas para implementar isso e não consegui ninguém.. caso se interesse em fazer um orçamento pra mi.. estarei esperando.. rickardocc@gmail.com.. Grato.. Rickardo Costa

quero fazer assim. tenho uma imagem ao passar o mouse sobre a imagem avance pro frame nº 10 sei que é agumacoisa { gotoandplayer (10); } grato..

como aplico um efeito + ou - igual a esse http://www.bionda.com.br/servicos.php a imagem da mão

valeu .. caso resolvido... agradeço a todos..

naverdade estou querendo modificar aquele a minha nova necessidade.. veja se isso que mudei aqui está certo if not rsLogin.eof then Login = rsLogin("login") Senha = rsLogin("senha") if login = true and senha = true and tipo="ADM" then response.redirect = "adm_index.asp" elseif login = true and senha = true and tipo="USER" then response.redirect = "user_index.asp" else Response.Write "<div align=""center""><font size=""3"" face=""Geneva, Arial, Helvetica, sans-serif""><b>Dados digitados incorretamente, verifique seu login e senha!</font>" Response.Write " <p><font size=""2"" face=""Geneva, Arial, Helvetica, sans-serif""> <font color=""#0099FF""><a href=""java script:history.back(1)"">&lt;&lt;Voltar</a></font></font>" Response.Write " </div>" Response.Write " </font></p>" Response.Write "</div>" end if end if rsLogin.close conexao.close set conexao = nothing set rsLogin = nothing

e eu coloco isso abaixo do IF que já tem??

Andreia_sp Desculpe digitei errado o correto ´´e login = true senha = true poderia ser ( veja abaixo if login = true and senha = true and tipo="ADM" then response.redirect = "adm.asp" elseif login = true and senha = true and tipo="USER" then response.redirect = "user.asp" else response.write "errado" end if

tenho essa função aqui <% Option Explicit Dim pasta_dados, conexao, dados, tbl, buscar, rsquery, sql, rsLogin, Login, Senha, Tipo pasta_dados="e:\home\brd\dados\db\cadastro.mdb" set Conexao=server.createobject("ADODB.connection") dados = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&pasta_dados&";" Conexao.open dados set tbl = server.createObject("adodb.recordset") tbl.Open "cadastro", conexao sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) if not rsLogin.eof then Login = rsLogin("login") Senha = rsLogin("senha") Session("login")=TRUE Session("senha")=TRUE Response.Redirect"adm_index.asp" else Response.Write "<div align=""center""><font size=""3"" face=""Geneva, Arial, Helvetica, sans-serif""><b>Dados digitados incorretamente, verifique seu login e senha!</font>" Response.Write " <p><font size=""2"" face=""Geneva, Arial, Helvetica, sans-serif""> <font color=""#0099FF""><a href=""java script:history.back(1)"">&lt;&lt;Voltar</a></font></font>" Response.Write " </div>" Response.Write " </font></p>" Response.Write "</div>" end if rsLogin.close conexao.close set conexao = nothing set rsLogin = nothing %> tenho um campo na tabela chamado de "tipo" queia acrescentar um parametro onde se senha = true senha = true tipo = "ADM" -> redireciona pra pagina adm.asp senha = true senha = true tipo = "USER" -> redireciona pra user.asp caso contrario Response.Write " dados errado" aguem pode ajudar?? não estou tendo logica pra fazer.. grato.