Espartaco

Acho que tenho um script que faz o q você quer....mas o que você quer? Selecionar um file do mirco e enviar para o servidor?

Apareceu uma mensagem de erro Microsoft OLE DB Provider for ODBC Drivers error '80040e10' [Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1. /shopfacil/lojas.asp, line 71

Olá, cá estou afundado em dúvidas Essa deve ser bem fácil para quem já está a mais tempo nessa longa jornada ao domínio do ASP, que não é meu caso. No sistema que montei, as lojas são exibidas, e caso o campo pag_prod do banco de dados seja preenchido com S (sim), o sistema deve mostrar o link para a página de produtos, se estiver N (não), deve mostrar a Mensagem "Essa loja não expõe produtos no site". O problema é que ela mostra o link para ver ofertas mesmo que no BD esteja marcado como N (não) Segue o código: <% AbreConexao dep = request.querystring("dep") If dep = "" Then %> <font size="3">Escolha um departamento</font> <%Sql = "SELECT * FROM departamentos ORDER BY nome asc" Set rs = Conexao.Execute(Sql) If rs.EOF Then %> <font size="2">Nenhum departamento encontrado!</font> <% Else While not rs.EOF %> <font size="2"><a href="lojas.asp?dep=<%=rs("id")%>"> <%=rs("nome")%></font></a><br> <% rs.MoveNext Wend rs.close End If Set rs = nothing %> <% else %> <% regs = 5 pag = request.querystring("pagina") If pag = "" Then pag = 1 End If %> <% Set rs = Createobject("ADODB.recordset") set Rs.ActiveConnection = Conexao rs.cursortype = 3 rs.pagesize = regs Sql = "SELECT * FROM lojas WHERE departamento = "& dep &" ORDER BY nome_loja" rs.Open SQL if rs.EOF then%> <font size="2">Não foi localizado nenhuma loja desse departamento.</font> <% else prod = ("pagina_prod") rs.Absolutepage = pag contador = 0 Do While Not rs.EOF AND contador < rs.Pagesize contador = contador +1 %> <table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="40%" id="AutoNumber1"> <tr> <td width="18%">Nome:</td> <td width="82%"><%=rs("nome_loja")%></td> </tr> <tr> <td width="18%">Endereço</td> <td width="82%"><%=rs("endereco")%></td> </tr> <tr> <td width="18%">Telefone:</td> <td width="82%"><%=rs("telefone")%></td> </tr> <tr> <td width="18%">Ofertas</td> <td width="82%"><%If prod = "n" Then Response.Write "Esta loja não expôe produtos no site" Else Response.Write "&nbsp;<a href=""redir.asp?id=" & rs("id") & """ target=""_self"">Ver Ofertas desta loja&nbsp;</a>(" & rs("hits") & "&nbsp;cliques desde&nbsp;" & rs("added") & ")</font>" End If%></td> </tr> </table> <% rs.MoveNext Loop %> Página <% For i = 1 To rs.PageCount If i = cint(pag) Then Response.Write i Else dep=request.querystring("dep") Response.Write "<a href='" & request.servervariables("script_name") & "?dep="&dep&"&pagina=" & i & "'>" & i & "</a> " End If Next rs.close FechaConexao Set rs = nothing end if end if%> Mais uma pergunta a título de curiosidade...o que é VBScript.Encode Eu tava aki, nas minhas análises de códigos, olhando uns scripts baixados de um site americano e me deparei com esse tal de <%@ LANGUAGE = VBScript.Encode %> O que é isso? para quer serve? não tem como fazer nada para mudar esses códigos? <%=#@~^EwAAAA==j/dbW `JUYME#vF+!*lgUAAA==^#~@%> QUE BICHO É ESSE????

Obrigado camarada....funcinou bem.

Olá moçada, será que algém me dá uma dica dse como eu poderia montar um sistema que calculasse o juro, com base em 3 dados informados: Preço, Parcelas, Juro por Mês. Esses 3 dados seria inseridos no BD via form e na página de impressão, ele calcularia quanto seria cobrado por mês em cada parcela e o valor final, já com juros. Valeu...

Entre em contato comigo pelo e-mail espartaco_vettorazzi@yahoo.com.br que te passo os macetes e até posso desenvolver o script, desde que seu servidor seja Windows

Por que não tenta usar flash? É muito mais leve e flexível, inclusive você poderá colocar controles ao usuários (back, forwared, play, stop, pause) Me envie um e-mail que faço para você. espartaco_vettorazzi@yahoo.com.br

Olá Morgana... Segui os procedimentos que você me passou, realmente funcionaram, exceto com alguns "porém", provavelmente decorrentes da minha total falta de compatibilidade com o gigantesco Photoshop. Para criar o retângulo, deu tudo certo, porém uma inconveniente linha (aquela que tracei no começo do processo) permaneceu na figura, depois de eu teclar o Enter (numérico). Pergunta 1: Como faço para esse contorno sair dali? Pergunta dois: para fazer o texto seguir o contorno da linha que eu quero, também segui seus sábios conselhos, no entanto, gostaria que fosse mais flexível o efeito. Exemplo: Digamos que eu tenha uma foto aérea de uma prais, onde a linha que divide a areia do mar seja sinuosa (/¨\_/¨\_/), como faço para o texto acompanhar a linha da praia sem ser distorcido? Agradeço a ajuda e boa vontade. Espártaco Vettorazzi

Tenho mais uma questão para os feras do ScriptBrasil. Espero que não se chateiem com minhas perguntas. Vamos à situação: Como já mencionei anteriormente, meu site é uma espécie de catálogo eletrônico das lojas da minha cidade, onde a página lojas.asp?loja=id é gerada dinamicamente de acordo com o id da loja, buscado no Banco de Dados, e da loja.asp?id=id, que apresenta os produtos da referida loja. Pois bem, os detalhes do produto são exibidos na página detalhes_prod.asp?prod_id=id. Na página dos produtos, gostaria de criar um sistema para recomendar a página (produto) para outras pessoas. Usei o seguinte: Um link em java script assim escrito: <a href="javascript: amigo()"><img src=recomende.jpg border=0></a> E no topo desta página a referência para o javascript supracitado: <script LANGUAGE="JScript"> function AbortEntry(sMsg, eSrc){window.alert(sMsg);eSrc.focus();} function HandleError(eSrc){var val = parseInt(eSrc.value); if (isNaN(val)){ document.registro1.intQuant.value = '1'; } if (val <= 0) { document.registro1.intQuant.value = '1'; } } function amigo(){ window.open('enviaamigo.asp?acao=abre&produto=<%=prod_id%>','email','resizable=no,width=270,height=225,scrollbars=no'); } </script> O problema é que não consigo fazer a página enviaamigo.asp achar o nome do produto correspondente àquele id. Fui claro??? Agradeço a quem me mostrar o caminho das pedras. Espártaco

Me passa teu e-mail que te mando um script adaptado por mim. Funciona bem.

SÓ UMA PERGUNTA VOCÊ QUER QUE: A FOTO SEJA CARREGADA DO MICRO PARA UMA PASTA NO SERVER, OU; VOCÊ QUER QUE A FOTO SEJA INSERIDA COMO NÚMEROS BINÁRIOS LONGOS NO BD, OU; VOCÊ QUER QUE ELA SEJA UM LINK PARA UMA FOTO JÁ ON-LINE EM OUTRO LOCAL? DEPENDENDO DO CASO, POSSO AJUDAR

Olá Minhas perguntas podem paracer ingênuas, mas na condição de aprendiz, gostaria que me ajudassem Como poderia fazer para fazer a referência das páginas, como se fosse um mapa, igual aí no fórum ewxemplo abaixo.... Script Brasil Forum -> Web developer -> ASP / ASP.net

Experimenta esse <script language="JavaScript"> function mailMe( form ) { // put some checks here return true; } </script> <form name="email" method="POST" action="mailto:seuemail@seuprovedor.com?subject=Contato pelo site" onSubmit="return mailMe( this.form )" enctype="text/plain"> Seu Nome<b>:&nbsp; </b> </b> <font color="#0000A0" face="Arial"> <b> <input type="text" name="Nome" value size="30" ></b></font><b>&nbsp;&nbsp;&nbsp;&nbsp; </b> <p align="left"> E-mail:<b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0" face="Arial"> <b> <input type="text" name="Email" value size="30" ></b></font><b>&nbsp;&nbsp; <br> <br> </b> <font color="#0000A0"> <b> <input type="radio" name="Sobre" value="O Site" checked></b></font>Sobre o site<b>&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Sobre" value="A Academia"></b></font>Sobre a<b> </b> Empresa<p align="left"> <b><br> </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de elogio" checked></b></font>Elogio<b>&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de critica"></b></font>Crítica<b>&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de duvidas"></b></font>Dúvida<b>&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de sugestao"></b></font>Sugestão<b> </b><p align="left"> Assunto<b>:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0" face="Arial"> <b> <input type="text" name="Assunto" value size="30" ></b></font><b>&nbsp;&nbsp; <br> <br> </b>Coloque aqui seu texto até 240 caracteres<b>:<br> <font color="#0000A0" size="2" face="Arial"> <textarea NAME="Comentarios" ROWS="8" COLS="34" wrap="virtual"></textarea></font><font size="2"><br> </font> <font size="2" face="Arial"> <font color="#0000A0"> <input type="submit" value="Enviar"><input type="reset" value="Limpar"></font><font size="2"></form>

Coloca o script aí no fórum para ser analisado

Para a primeira pergunta: <script language="JavaScript1.2"> /* Cross browser marquee script II- © Dynamic Drive (www.dynamicdrive.com) For full source code, installation instructions, 100's more DHTML scripts, and Terms Of Use, visit dynamicdrive.com */ //Specify the marquee's width (in pixels) var marqueewidth=150 //Specify the marquee's height var marqueeheight=150 //Specify the marquee's scroll speed (larger is faster) var speed=2 //Specify the marquee contents var marqueecontents='<font face="Arial"><strong><big>Aqui você coloca sua mensagem e o <a href="resultado.htm">hyperlink.</a> Sua mensagem pode ter o tamanho que você quiser</big></strong></font>' if (document.all) document.write('<marquee direction="up" scrollAmount='+speed+' style="width:'+marqueewidth+';height:'+marqueeheight+'">'+marqueecontents+'</marquee>') function regenerate(){ window.location.reload() } function regenerate2(){ if (document.layers){ setTimeout("window.onresize=regenerate",450) intializemarquee() } } function intializemarquee(){ document.cmarquee01.document.cmarquee02.document.write(marqueecontents) document.cmarquee01.document.cmarquee02.document.close() thelength=document.cmarquee01.document.cmarquee02.document.height scrollit() } function scrollit(){ if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){ document.cmarquee01.document.cmarquee02.top-=speed setTimeout("scrollit()",100) } else{ document.cmarquee01.document.cmarquee02.top=marqueeheight scrollit() } } window.onload=regenerate2 </script> <!-- --><ilayer width=&{marqueewidth}; height=&{marqueeheight}; name="cmarquee01"> <layer name="cmarquee02" width=&{marqueewidth}; height=&{marqueeheight};></layer> </ilayer><!-- --> Para a segunda pergunta <form method="POST" target="_blank" action="pagina.hasp">

<html><head><title>:::::Titulo:::::</title></head> <body oncontextmenu="return false"> <body ondragstart="return false"> <body onselectstart="return false"> <style type="text/css"> body { background-color:0B5696; font-family: Bookman Old Style,Gill Sans MT,Verdana,Redensek; color:ffffff ; font-weight: normal; font-size: 85%; body { scrollbar-arrow-color:#000000; scrollbar-base-color:#0B5696; scrollbar-dark-shadow-color:#000000 ; scrollbar-light-shadow-color:#0B5696; scrollbar-track-color#:000000; } A:link { text-decoration: none; color:"#ffffff" } A:visited { text-decoration: none; color:"#ffffff" } A:hover { text-decoration: none; color:"#FFFF00" } .entry { font-family: Bookman Old Style, Gill Sans MT, Veranda; color: ffffff; font size: 95%; background-color:000000; margin-left:10px; margin-right:10px; padding: 5px; position: auto; top: auto; left: auto; height: 360px; width: 300px; overflow-y: none; overflow-x: none; resize=yes; filter: alpha(opacity=70); } </style> <!--UPLOAD IMAGE AND EDIT THE URL BELOW--!> <center> <TABLE BACKGROUND="stranger.jpg" BORDER="5" BORDERCOLOR=000000 CELLPADDING="5" CELLSPACING="0" height="450px" width="775px"> <tr><td height=15 colspan=4 b></td></tr><tr><td width=20></td><td width=300 valign=bottom><p align=left> <!--EDIT YOUR LINKS BELOW--!> <b> <a href=" ">Link</a> | <br> <a href=" ">Link</a> | <br> <a href=" ">Link</a> | <br> <a href=" ">Link</a> | <br> <a href="mailto:">Email</a> | <br> <a href=" ">Guestbook</a> | <br></b> <!--END OF LINKS--!> </td> <td width=10><div class="entry"><div id=cdiv style="height: 350px; overflow: auto; width: 400px; padding: 1px;"> <B><center> <font face="verdana" size="3"> *** PLACE TITLE HERE *** <BR><BR><BR><font face="verdana" size="2"> <!--PLACE YOUR PAGE CONTENTS WHERE THE BLAH BLAHS ARE--!> <p></p> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> BLAH BLAH BLAH BLAH<BR><BR> <!--END OF PAGE CONTENTS--!> <p></p> **************************<BR><BR> <BR><br> </td><td width=20></td></tr></table> </center></td></tr></table> </body> </html>

segue aí o script desejado. Nele não precisa Servidor,'funciona com JavaScript, mas o usuário precisa ter o Outlook ou similar na máquina....Bom proveito <script language="JavaScript"> function mailMe( form ) { // put some checks here return true; } </script> <form name="email" method="POST" action="mailto:seuemail@seuprovedor.com?subject=Contato pelo site" onSubmit="return mailMe( this.form )" enctype="text/plain"> Seu Nome<b>:&nbsp; </b> </b> <font color="#0000A0" face="Arial"> <b> <input type="text" name="Nome" value size="30" ></b></font><b>&nbsp;&nbsp;&nbsp;&nbsp; </b> <p align="left"> E-mail:<b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0" face="Arial"> <b> <input type="text" name="Email" value size="30" ></b></font><b>&nbsp;&nbsp; <br> <br> </b> <font color="#0000A0"> <b> <input type="radio" name="Sobre" value="O Site" checked></b></font>Sobre o site<b>&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Sobre" value="A Academia"></b></font>Sobre a<b> </b> Empresa<p align="left"> <b><br> </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de elogio" checked></b></font>Elogio<b>&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de critica"></b></font>Crítica<b>&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de duvidas"></b></font>Dúvida<b>&nbsp;&nbsp; </b> <font color="#0000A0"> <b> <input type="radio" name="Mensagem" value="de sugestao"></b></font>Sugestão<b> </b><p align="left"> Assunto<b>:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </b> <font color="#0000A0" face="Arial"> <b> <input type="text" name="Assunto" value size="30" ></b></font><b>&nbsp;&nbsp; <br> <br> </b>Coloque aqui seu texto até 240 caracteres<b>:<br> <font color="#0000A0" size="2" face="Arial"> <textarea NAME="Comentarios" ROWS="8" COLS="34" wrap="virtual"></textarea></font><font size="2"><br> </font> <font size="2" face="Arial"> <font color="#0000A0"> <input type="submit" value="Enviar"><input type="reset" value="Limpar"></font><font size="2"></form>

Não fumbecou....acho que o problema é a incompatilidade entre o ASP e EU...não nscemos um para o outro Alguns nomes de tabelas e campos são só para ilustrar, o meu tem muito mais campos nas tabelas, mas as mais importantes eu coloquei aki Tabelas do BD DEPARTAMENTOS (nessa tabela vão os departamentos, como farmácias, confecções, mercados...) LOJAS (nessa tabela vão as lojas dentro de cada departamento) PRODUTOS (nessa tabela vão os produtos dentro de cada loja) NOTAS (nessa tabela vai as notas que o visitantes dão para a loja) Seguem abaixo os campos das respectivas tabelas Tabela DEPARTAMENTOS | ID | NOMEID | Tabela LOJAS ID | NOME | ENDERECO | DEPARTAMENTO | DESCRICAO | CLIQUES | MEDIA | ADICIONADO | Tabela PRODUTOS | ID_PROD | NOME_PROD | IMAGEM_PROD | PRECO_PROD | ID_LOJA | Tabela NOTAS | ID_LOJA | NOTA | xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A página das categorias já está pronta e cada link aponta para exibir_lojas.asp?cat=171 (no exmplo a categoria 171 é moda intima) A página exibir_lojas.asp tem o código abaixo... (eu exclui o que não interessa) <% AbreConexao cat = request.querystring("cat") If cat = "" Then %> <%Sql = "SELECT * FROM categorias ORDER BY nome asc" Set rs = Conexao.Execute(Sql) If rs.EOF Then %> <font color="#FFFFFF" size="2">Nenhum departamento encontrado!</font> <% Else While not rs.EOF %> <font size="2"><a href="exibir_lojas.asp?cat=<%=rs("id")%>"><%=rs("nome")%></a><BR> <% rs.MoveNext Wend rs.close End If Set rs = nothing %> <% else regs = 15 pag = request.querystring("pagina") If pag = "" Then pag = 1 End If %> <% Set rs = Createobject("ADODB.recordset") set Rs.ActiveConnection = Conexao rs.cursortype = 3 rs.pagesize = regs Sql = "SELECT * FROM lojas WHERE departamento = "& cat &" ORDER BY nome" rs.Open SQL if rs.EOF then prod = ("pagina_prod")%> <% else rs.Absolutepage = pag contador = 0 Do While Not rs.EOF AND contador < rs.Pagesize contador = contador +1 %> Nome: <%=rs("nome")%> Endereço: <%=rs("endereco")%> Descrição: <%=rs("descricao")%> Cliques: <%=rs("cliques")%> Média: <%=rs("media")%> Adicionado em: <%=rs("adicionado")%> <a href="redir.asp?id=<%=rs("id")%>">Ver ofertas desta loja</a> <% rs.MoveNext Loop %> <br><font size="2" face="Verdana">Página(s): <% For i = 1 To rs.PageCount If i = cint(pag) Then Response.Write i Else cat=request.querystring("cat") Response.Write "<a href='" & request.servervariables("script_name") & "?cat="&cat&"&pagina=" & i & "'>" & i & "</a> " End If Next rs.close FechaConexao Set rs = nothing end if end if%> XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX AO CLICAR NO LINK "VER OFERTAS DESTA LOJA, VAI PARA A REDIR.ASP QUE COMPUTA O CLIQUE E REDIRECIONA PARA A LOJA EM QUESTÃO. ESSE É O CÓDIGO DA REDIR.ASP <% AbreConexao id = request.querystring("id") Sql1 = "SELECT * FROM LOJAS WHERE id =" & id & "" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL1, ConStr, 3, 3 cliquesa = rs("cliques") cliquesb = "1" x = cliquesa + cliquesb Sql = "UPDATE LOJAS SET cliques = '" & x & "' WHERE id = " & id & " " Conexao.Execute(Sql) %> <meta http-equiv="refresh" content="0; URL=PRODUTOS.asp?loja=<%=rs("id")%>"> <% rs.close FechaConexao Set rs = nothing %> xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx NA PÁGINA PRODUTOS.ASP É QUE ESTÁ OCORRENDO O PROBLEMA. QUANDO ADICIONO UM PRODUTO NA TABELA PRODUTOS, ELE É MOSTRADO EM TODAS AS LOJAS E NÃO SÓ NAQUELE QUE EU QUERIA QUE APARECESSE POR EXEMPLO, SE COLOCO UM CARRO NA LOJA "VIRTUAL AUTOMÓVEIS"E UMA CALCINHA NA LOJA "VIRTUAL LINGERIE", OS DOIS PRODUTOS SÃO EXIBIDAS NAS DUAS LOJAS SEGUE O CÓDIGO NA PÁGINA PRODUTOS.ASP....(ROMOVI O QUE NÃO É NECESSÁRIO PARA VC) <% AbreConexao loja = request.querystring("loja") regs = 20 pag = request.querystring("pagina") If pag = "" Then pag = 1 End If Set rs = Createobject("ADODB.recordset") set Rs.ActiveConnection = Conexao rs.cursortype = 3 rs.pagesize = regs Sql = "SELECT * FROM PRODUTOS WHERE id = "& loja &" ORDER BY nome ASC" rs.Open SQL if rs.EOF then%> <% else%> ......... <%rs.Absolutepage = pag contador = 0 Do While Not rs.EOF AND contador < rs.Pagesize contador = contador +1 %> PRODUTO: <%=rs("NOME_PROD")%> IMAGEM: <%=rs("IMAGEM_PROD")%> preço: <%=rs("PRECO_PROD")%> <% rs.MoveNext Loop %> <font size="2" face="Verdana">Página(s): <% For i = 1 To rs.PageCount If i = cint(pag) Then Response.Write i Else loja=request.querystring("loja") Response.Write "<a href='" & request.servervariables("script_name") & "?loja="&loja&"&pagina=" & i & "'>" & i & "</a> " End If Next rs.close FechaConexao Set rs = nothing end if%>

Vou tentar essas dicas que me passaram, se não der certo amanhã volto inquietar vocês. Obrigado pela disposição em ajudar e parabéns ao site pela grande e bem organizada estrutura.... Espártaco

Teja registrado...