Ir para conteúdo
Fórum Script Brasil

manogaucho

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    79

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que manogaucho postou

  1. manogaucho
    Mudei ficou assim: ?> <html> <body> <form action="login.php" name="cadastro" method="post"> Nome: <input type="text" name="nome"><br> Senha: <input type="text" name="senha"><br> <input type="submit" value="enviar"> </form> </body> </html> <? $nome= $_POST['nome']; $senha = $_POST['senha']; //faz a confirmação de nome e senha no db $logar = mysql_query("SELECT LINK FROM conta WHERE NOME='$nome' AND SENHA='$senha'") or die("erro ao selecionar"); if (strlen($senha)< 1) echo '<p align="center"> Senha Incorreta, Por favor<BR><a href="java script:history.back(1);">tente denovo</a></p>'; elseif ($linha mysql_fetch_array($logar) ){ header("location:$linha "); } else { echo '<p align="center">Senha ou apelido invalido.<BR><a href="java script:history.back(1);">Tente novamente.</a></p>'; } ?> mas deu este erro: PHP Parse error: syntax error, unexpected T_STRING in E:\home\buscariogran\Web\guia\login.php on line 24 Há linha 24 é: elseif ($linha mysql_fetch_array($logar) ){ Ok
  2. manogaucho
    Com tua ajuda fiz assim: ?> <html> <body> <form action="login.php" name="cadastro" method="post"> Nome: <input type="text" name="nome"><br> Senha: <input type="text" name="senha"><br> <input type="submit" value="enviar"> </form> </body> </html> <? $nome= $_POST['nome']; $senha = $_POST['senha']; //faz a confirmação de nome e senha no db $logar = mysql_query("SELECT LINK FROM conta WHERE NOME='$nome' AND SENHA='$senha'") or die("erro ao selecionar"); if (strlen($senha)< 1) echo '<p align="center"> Senha Incorreta, Por favor<BR><a href="java script:history.back(1);">tente denovo</a></p>'; elseif (mysql_num_rows($logar)>0 ){ header("location:http://www.meusite.com.br"); } else { echo '<p align="center">Senha ou apelido invalido.<BR><a href="java script:history.back(1);">Tente novamente.</a></p>'; } ?> O Mesmo esta funcionando,Mas no lugar de mostar o http://www.meusite.com.br, quero que mostre o link que esta no campo LINK da tabela..
  3. manogaucho
    Ajudou um pouco, mas o sistema que estou querendo criar é so para autenticação de senha e nome que mostarrá o campo LINK da tabela usuario. tem como mandar algum codigo pra facilitar... Demais Muito Obrigado!!!
  4. manogaucho
    O que tenho ate agora é a pagina conexão e a pagina principal onde é digitado nome e senha, pra chamar o campo LINK databela. <? include "conexao.php"; ?> <table width="670"> <tr> <td height="22"><form name="form1" method="post" action=""> <p align="center">&nbsp;</p> <p align="center">NOME: <input name="campo_nome" type="text" id="campo_nome"> </p> <p align="center">SENHA: <input name="campo_senha" type="text" id="campo_senha"> </p> <p align="center">&nbsp;</p> <p align="center"> <input type="submit" name="Submit" value="ENTRAR"> </p> <p>&nbsp; </p> </form></td> </tr>
  5. manogaucho
    Fiz alguns testes, mas não deu certo, então decidir fazer tudo do zero, novamente.... Logico desta fez com ajuda...
  6. manogaucho
    Tudo Bem! Estou querendo criar um sitema bem simples. Funciona assim: Uma pagina inicial, com campos pra nome e senha, há onde o usuario coloca seu login e senha e mostra uma campo de uma tabela sql. O que fiz ate agora: Criei uma banco de dados em sql chamado conta, depois criei uma tabela chamada usuario, com os campos ID,NOME, SENHA e LINK. criei o arquivo de conexão ao banco de dados com o nome conexao.php ( este esta funcionando). O sistema é basico, vão digitar nome e senha e a pagina mostrará a tabela LINK do usuario correspondente a tabela NOME E SENHA. Demais agradeço a ajudas!!!
  7. manogaucho
    Fiz e respondeu assim, onde tem xxxxxx eras meus dados que apareciam, apaguei por segurança. Microsoft VBScript compilation error '800a0409' Unterminated string constant /Includes/conexao.asp, line 6 cnn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=XXXXXXX;DATABASE=XXXXXX;USER --------------------------------------------------------------------------------------------------^
  8. manogaucho
    Mudei deu mesmo erro
  9. manogaucho
    Eu utilizo já uma conexão so que não desta maneira, o endereço do banco esta correto, tentei colocar com www, http://, http://www, na frete do endereço, mas não funcionou, podera ser outro erro, ou o driver errado, de uma olhada no jeito que utilizo para conectar ao meu banco, o problema que toda select, que faço tem que criar esta conexão, meu host é da UOL, não sei se ajuda. 'Variáveis com os valores de sua base de dados. strDataSoure = "xxxxxxxxxxx" strDataBase ="xxxxxxxxxxx" strUser = "xxxxxxxxxxx" strPWD = "xxxxxxxxxx" 'Geramos a query SQL que irá acessar os dados na base de dados 'Conforme alteração 1 ' Fazer select em tabela teste2, que contem os campos: id (int(11) e texto(varchar(50)) strQuery = "select id_geral from topo " ' Definir String de conexao para base MySQL strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure strConexao = strConexao & "; DATABASE=" & strDataBase strConexao = strConexao & ";Uid="& strUser strConexao = strConexao & ";Pwd="& strPWD Obrigado pelo ajuda!!!
  10. manogaucho
    Mudei o conexao.asp como pediu, so deixei assim, o resto deletei: 1 <% 2 Set Conexao = Server.CreateObject("ADODB.Connection") 3 strConexao = "driver=MySQL ODBC 5.1 Driver;server=http://endereço.com;uid=login;pwd=senha;_database=nomebanco" 4 Conexao.Open strConexao 5 %> Agora apresenta este erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified /Includes/conexao.asp, line 4 Acredito que seja de permissão.
  11. manogaucho
    Tudo bem! Queria criar uma conexão com banco de dados SQL em asp criei o arquivo conexao.asp dentro da pasta Includes, ficou assim <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <html> <head> <title>O SITE DA NOSSA TERRA</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <% Set Conexao = Server.CreateObject("ADODB.Connection") strConexao = "driver=MySQL ODBC 5.1 Driver;server=xxxxxx;uid=xxxxxxx;pwd=xxxxxx;_database=xxxxxx" Conexao.Open strConexao %> <body> </body> </html> chamei ele com este arquivo teste.asp, ficou assim: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Includes/conexao.asp"--> <html> <head> <title>O SITE DA NOSSA TERRA</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> </body> </html> Mas quando tento abrir a pagina da este erro: Active Server Pages error 'ASP 0141' Page Command Repeated /Includes/conexao.asp, line 1 The @ command can only be used once within the Active Server Page. Qual será este erro. ----------------------------------------------- 06/05/2009 Depois de muita ajuda, foi possivel criar a conexão sem erros, vamos la no arquivo conexao.asp ficou assim: <% strDataSoure = "xxxxxxxxx" strDataBase ="xxxxxxxxx" strUser = "xxxxxxxx" strPWD = "xxxxxxxxxxx" strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure strConexao = strConexao & "; DATABASE=" & strDataBase strConexao = strConexao & ";Uid="& strUser strConexao = strConexao & ";Pwd="& strPWD %> e arquivo para chamar ficou assim ( exemplo ) testeconexao.asp: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!-- #include file="Includes/config.asp" --> <html> <head> <title>CONEX&Atilde;O</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% strQuery = "select cat_geral from categoria where cat_categoria = 'mercearia' ORDER BY RAND()" set objConn = server.CreateObject("ADODB.Connection") objConn.open strConexao set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strQuery, strConexao do until rs.EOF for each x in rs.Fields Response.Write(CStr(x.Value)) & " " next Response.Write "<br>" rs.MoveNext loop objConn.close set rs = nothing set objConn = nothing %> Agradeço a todos que ajudaram. Demais Muito Obrigado!
  12. manogaucho
    Tudo bem, Desculpas a demora para responder, mas vamos lá. Eu utilizo para conexão com meu banco de dados não um arquivo conexao.asp, mas sim cada pagina tem a sua conexão. Não sei se vou ter que mudar tudo, para poder fazer este tipo de busca. Te adicionei no meu MSN.
  13. manogaucho
    Todo bem. Fiz assim: Fiz Este ComboBox: <form action="" method="post" name="form_busca" id="form_busca"> <p>&nbsp;</p> <p> <select name="categoria" id="select3"> <option>TELE-ENTRAGA <option>INFORM&Aacute;TICA </select> <select name="bairro" id="select4"> <option>porque. S&Atilde;O PEDRO</option> <option>BGV</option> </select> <input type="submit" name="Submit" value="PESQUISAR"> </p> <p>&nbsp;</p> </form> Tentei varias coisas , mas não tive sucesso Queria que o resultado mostra-se em outra pagina, Queria que mostra-se o resultado das colunas cat_categoria e cat_bairro fosse cat_geral. Tem um banco chamado “categoria” que contem cat_id,cat_categoria_cat_bairro e cat_geral. Não estou entendendo , to bem perdido, não estou conseguindo fazer a ligação do meu selec t com meu form. Desculpas mas sou super novo neste mundo asp, SQL, mas sou sincero em disser que estou bem perdido, Espero resposta uma que entre nesta minha cabeçinha e que a tua paciencia não esgote. Valeuuuu.
  14. manogaucho
    Não tinha entendido, mas agora caiu a ficha, peço sinceras desculpas, agradeço tua paciência comigo, valeu e vou tentar agora! Qualquer coisa duvida coloco aqui!
  15. manogaucho
    Este é o site que quero colocar a busca rapidaENTRE AQUI ele esta funcionando pelas categorias,so queria acrecentar este menu de busca para facilitar a busca, assim os usuário que moram no bairro BGV querem arrumar uma tele-entrega do bairro mesmo, não ir no menu Tele-Entregas e olhar todas, assim o menu de "sistema de busca" é fundamental para meu pequno site. O menu ficaria assim: Exemplo escolhido bairro BGV e Tele-Entrega. Demais mUito Obrigado!!
  16. manogaucho
    Tudo Bem! Estou com problemas para criar um sistema de busca entre dois campos que o resultado é outro campo. Vou explicar melhor: Meu banco é mysql com windows ( asp) Tenho uma banco chamado categoria e ele possui os campos cat_id, cat_categoria,cat_bairro e cat_geral. Preciso montar um sistema de busca ou pesquisa em formularo que tenha CATEGORIA ( cat_categoria) e BAIRRO ( cat_bairro) para o usuário selecionar o resultado é o campo cat_geral, eu estava imaginando este formulario com menu com lista onde teria as categoria cadastradas no menu e outro bairro, asim faciltando a pesquisa. "Minha duvida é criar o buscador ou pesquisa, já exixtem dados nestas tabelas, queria por exemplo que no menu categoria estivesse as categoria exixtentes exemplo tele-entrega e ferragem e no bairro exemplo BGV e Parque São Pedro, assim quando quise escolher por exemplo buscar tele-entragas bairro bgv , de o resultado da tabela cat_geral que tenha na cat_categoria e cat_bairro escolhidos pelo usuáro. Não sei se estou conseguindo me explicar, o grande detalhe que não tenho nada montado para este sistema de busca, to começando do zero"
  17. manogaucho
    Minha duvida é criar o buscador ou pesquisa, já exixtem dados nestas tabelas, queria por exemplo que no menu categoria estivesse as categoria exixtentes exemplo tele-entrega e ferragem e no bairro exemplo BGV e Parque São Pedro, assim quando quise escolher por exemplo buscar tele-entragas bairro bgv , de o resultado da tabela cat_geral que tenha na cat_categoria e cat_bairro escolhidos pelo usuáro. Não sei se estou conseguindo me explicar, o grande detalhe que não tenho nada montado para pesquisa to começando do zero
  18. manogaucho
    Tudo Bem! Estou com problemas para criar um sistema de busca entre dois campos que o resultado é outro campo. Vou explicar melhor: Meu banco é mysql com windows ( asp) Tenho uma banco chamado categoria e ele possui os campos cat_id, cat_categoria,cat_bairro e cat_geral. Preciso montar um sistema de busca ou pesquisa em formularo que tenha CATEGORIA ( cat_categoria) e BAIRRO ( cat_bairro) para o usuário selecionar o resultado é o campo cat_geral, eu estava imaginando este formulario com menu com lista onde teria as categoria cadastradas no menu e outro bairro, asim faciltando a pesquisa.
  19. manogaucho
    Fiz umas mudanças e deu certo, com a ajuda do "Rafael Spilki" e de outros amigos ficou assim a mudança sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.SEU_DOMINIO_TEMPORARIO" 'Informe o domínio do seu painel de controle. cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = "CONTA DE E-MAIL VÁLIDA PARA AUTENTICAR" 'conta@seu_dominio cdoConfig.Fields.Item(sch & "sendpassword") = "SENHA DO E-MAIL" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = "conta@seu_dominio" 'ENDEREÇO DE E-MAIL QUE SERÁ EXIBIDO NO FROM DA MENSAGEM cdoMessage.To = objCliente("Email") cdoMessage.Subject = "Confirmação de inserção de anúncio." cdoMessage.ReplyTo = objCliente("Email") cdoMessage.HTMLBody = VarConfEmail cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing response.write "O e-mail foi processado e enviado com sucesso" %>
  20. manogaucho
    Tudo bem, fiz todas as mudanças possiveis nesta semana mas não deu certo, já não sei o que fazer. Mandei um E-mail para o pessoal da UOL sobre este assunto e eles me responderam assim: Para envio de e-mails através do site, é necessária a utilização de SMTP autenticado. Ou seja, você terá de implementar em seu código, a autenticação no momento do envio. Abaixo, indicamos uma FAQ de exemplo da utilização do componente CDOSYS: http://tutorial.uolhost.com.br/index.php?i...sta&res=505 Lembramos que para esta autenticação, você deve utilizar uma conta do seu domínio e sua respectiva senha, assim como o seu servidor smtp, que seria: stmp.meudominio.dominiotemporario.com Acho que pode ajudar.
  21. manogaucho
    Tudo bem! Tenho este codigo em asp. Ele serve para, mandar um e-mail de confirmação para o usuario, na finalização do cadastro ou pedido, abaixo esta o codigo. Set EnvioEmail = Server.CreateObject("CDONTS.NewMail") EnvioEmail.From = Titulo & "<" & EmailPadrao & ">" EnvioEmail.To = objCliente("Email") EnvioEmail.BodyFormat = 0 EnvioEmail.MailFormat = 0 EnvioEmail.Subject = "Confirmação de inserção de anúncio." EnvioEmail.Body = VarConfEmail EnvioEmail.Send Set EnvioEmail = Nothing Response.Write "<tr><td align='center' class='TituloVermelho'>Você acaba de receber um e-mail de confirmação.<br>Para que possa ativar seu an&uacute;ncio, entre no mesmo e acesse o link!</td></tr>" So que meu servidor ( UOL ) Suporta Componente CDOSYS fiz umas mudanças, e ficou assim. Dim EnvioEmail Set EnvioEmail = Server.CreateObject("CDO.Message") EnvioEmail.From = Titulo & "<" & EmailPadrao & ">" EnvioEmail.To = objCliente("Email") EnvioEmail.Subject = "Confirmação de inserção de anúncio." Set EnvioEmail = Nothing Response.Write "<tr><td align='center' class='TituloVermelho'>Você acaba de receber um e-mail de confirmação.<br>Para que possa ativar seu an&uacute;ncio, entre no mesmo e acesse o link!</td></tr>" Agora ele mostra a mensagem "Você acaba de receber um e-mail de confirmação.", o cadastro ou pedido entra no banco de dados, mas não envia E-mail para o usuario. Queria uma ajuda para este novo problema. abaixo esta o codigo todo do arquivo "InsAnuncio.asp" como baixei da internet <!-- #include file="Includes/BarraCima.asp" --> <!--#include file="Includes/Form2.asp"--> <!-- #include file="Includes/Upload.asp" --> <% Dim VarAct Dim objSecoes Dim objPlanos Dim VarCodAutenticacao Set objSecoes = Conn.Execute("SELECT * FROM Secoes ORDER BY Secao") Set objPlanos = Conn.Execute("SELECT * FROM Planos ORDER BY Cod") VarAct = Request.QueryString("Act") VarCodAutenticacao = GerarChave(06) Dim objEstados2 Set objEstados2 = Conn.Execute("Select * from Estados order by Estado asc") %> <script LANGUAGE="Javascript"> <!-- // function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </SCRIPT> <tr> <td valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td> <td align="center" valign="top" bgcolor="#FFFFFF"> <table width="468" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td> </tr> <tr> <td align="center" class="TituloCinzaMedio">INSER&Ccedil;&Atilde;O DE AN&Uacute;NCIO </td> </tr> <tr> <td align="center">&nbsp;</td> </tr> <tr> <td align="center"> <% Dim VarNomeProduto Dim VarBreveDescricao Dim VarDescricao Dim VarValor Dim VarFormaPagamento Dim VarEstado Dim VarCidade Dim VarSecao Dim VarPlano Dim VarLocal Dim VarFoto Dim VarFoto1 Dim VarFoto2 Dim VarFoto3 Dim VarFoto4 Dim VarFoto5 Dim Foto1 Dim Foto2 Dim Foto3 Dim Foto4 Dim Foto5 Dim VarMesPagamento Dim InsBd Dim x If VarAct = "Cadastrar" Then '------------------------------------------------------------- Dim Uploader, File Set Uploader = New FileUploader Uploader.Upload() If Uploader.Files.Count > 0 Then For Each File In Uploader.Files.Items File.SaveToDisk CaminhoFoto VarFoto = VarFoto &"|"& File.FileName Next VarFoto = Right(VarFoto, Len(VarFoto)-1) VarFoto = Split(VarFoto, "|") End If VarNomeProduto = Replace(Uploader.Form("NomeProduto"),"'","''") VarBreveDescricao = Replace(Uploader.Form("BreveDescricao"),"'","''") VarDescricao = Replace(Replace(Uploader.Form("Descricao"),vb script:this.value=''" value="Digite uma cidade" size="1"><span class='TextoCinzaMascara'> (Ex: Mogi das Cruzes)</span></td> </tr> <%=LinhaHorizontal%> <tr> <td class="TituloCinzaEscuro">Se&ccedil;&atilde;o:*</td> <td> <select name="Secao" size="1" class="Form13319"> <option selected value="">Selecione a se&ccedil;&atilde;o</option> <% While not objSecoes.EOF Response.Write "<option value='"& objSecoes("Cod") &"'>"& objSecoes("Secao") &"</option>" objSecoes.MoveNext : Wend %> </select> </td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Fotos</td> </tr> <% With Response .Write LinhaHorizontal .Write FCampos(6) .Write LinhaHorizontal .Write FCampos(7) .Write LinhaHorizontal .Write FCampos(8) .Write LinhaHorizontal .Write FCampos(9) .Write LinhaHorizontal .Write FCampos(10) .Write LinhaHorizontal End With %> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Plano</td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center"> <select name="Plano" class="Form17019"> <option selected>Selecione o plano</option> <% While not objPlanos.EOF Response.Write "<option value='"& objPlanos("Cod") &"'>"& objPlanos("Plano")&"</option>" objPlanos.MoveNext Wend %> </select>&nbsp;<a href="#" class="TextoCinzaEscuro" onClick="MM_openBrWindow('PopPlanos.asp','','scrollbars=yes,width=600,height=300')">Conhe&ccedil;a nossos planos</a> </td> </tr> <%=LinhaHorizontal%> <tr> <td height="20" colspan="2" align="center" class="TituloCinzaEscuro">&nbsp;</td> </tr> <% With Response .Write FCampos(11) End With %> <tr> <td height="30" colspan="2" align="center" valign="bottom"><%=Voltar%></td> </tr> </form> </table> <% End If %> </td> </tr> </table> </td> <td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td> </tr> </table> </td> </tr> <!-- #include file="Includes/Rodape.asp" --> Agradeço a ajuda, se precisar de mais algum arquivo eu mando ou post aqui. Abraços!!!!
  22. manogaucho
    Resolvido era problema no caminho absoluto do meu site, não estava correto, Muito obrigado Por toda ajuda! Foi uma grande escola para mim, escrevendo esta finalização lembrei de uma frase que gosto muito. "Ninguém é tão pobre que não posso ajudar e ninguém é tão rico que não precise de ajuda."
  23. manogaucho
    Tudo bem! Não vai a imagen para pasta selecionada, ela não upa mesmo!
  24. manogaucho
    Mudei meu config.asp , ele ficou assim. <% Session.LCID = 1046 Server.ScriptTimeOut = 1800 'Declaração de variáreis Dim Conn Dim Voltar Dim LinhaHorizontal Dim LinhaHorizontal2 Dim LinhaHorizontal3 Dim LinhaHorizontal4 Dim CamposObrigatorios Dim CorDestaque Dim Counter Dim Num Dim chr_array Dim Chave Dim Valores 'Abertura de Banco de dados Sub AbreBd() set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBQ="&Server.MapPath("database/DBClassificados.mdb")&";Driver={Microsoft Access Driver (*.mdb)}" 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open "DBQ=c:\Domains\aspconnection.net\db\DBClassificados.mdb;Driver={Microsoft Access Driver (*.mdb)};" End Sub 'Fechamento de Banco de dados Sub FechaBd() Conn.Close Set Conn = Nothing End Sub 'Variáveis gerais Voltar = "<a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Voltar</a>" LinhaHorizontal = "<tr><td colspan=2><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>" LinhaHorizontal2 = "<tr><td colspan=2><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>" LinhaHorizontal3 = "<tr><td height=18><img src=Imagens/LinhaBarras.gif width=100% height=1></td></tr>" LinhaHorizontal4 = "<tr><td height=18><img src=../Imagens/LinhaBarras.gif width=100% height=1></td></tr>" CamposObrigatorios = "<tr><td colspan=2 align=right class='TextoCinzaEscuro'>* Campos obrigatórios</td></tr>" CorDestaque = "bgcolor='#D3FF3C'" 'Especifica a cor de fundo das células dos anúncios em destaque 'Variáveis constantes gerais 'Const EndLocal = "http://localhost/Classificados/" 'Caminho 'Const LocalFoto = "http://localhost/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão 'Const LocalBanner = "http://localhost/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners. 'Const CaminhoFoto = "D:/ganhetempo/sites/Classificados/Imagens/Fotos/" 'Const CaminhoBanner = "D:/ganhetempo/sites/Classificados/Imagens/Banners/" Const EndLocal = "http://www.buscariogrande.com.br/Classificados/" 'Caminho Const LocalFoto = "http://www.buscariogrande.com.br/Classificados/Imagens/Fotos/" 'Pasta onde as fotos dos imóveis ficarão Const LocalBanner = "http://www.buscariogrande.com.br/Classificados/Imagens/Banners/" 'Local onde ficarão os Banners. Const CaminhoFoto = "http://www.buscariogrande.com.br/Classificados/Imagens/Fotos/" Const CaminhoBanner = "http://www.buscariogrande.com.br/Classificados/Imagens/Banners/" Const Titulo = "BUSCARIOGRANDE CLASSIFICADOS" Const TableColor = "" 'Cor da tabela Const TitColor = "#6BA9D0" 'Cor da célula dos títulos Const TdColor01 = "" 'Cor da célula 01 Const TdColor02 = "" 'Cor da célula 02 Const SAddress = "mail.ganhetempo.com" 'Endereço de envio de e-mail do servidor Const EmailPadrao = "felipe@ganhetempo.com" 'Endereço de e-mail padrão Const VerifyString = "ABCDEFGHIJKLMNOPQRSTUVJXYZabcdefghijklmnopqrstuvwxyz1234567890_@." 'Caracteres válidos para log. Const TotalPorPagina = 15 'Total de registros por página. Const PrazoEnvio = 10 'Prazo para envio de aviso de pagamento (antes do anuncio expirar) Const BoletoItau = 1'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoBB = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoCaixa = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoBradesco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoReal = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const BoletoUnibanco = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const Deposito = 1 'Coloque 1 caso for utilizar esta opção ou coloque 0 caso não for utilizar. Const CNPJ = "000.000.000/0000-00" 'Função de senha Function Verify(ByVal VerifyValue, ByVal VerifyString) Verify = True For Counter = 1 To Len(VerifyValue) If Instr(1, VerifyString, Mid(VerifyValue, Counter, 1)) = 0 Then Verify = False Exit for Exit Function End If Next End Function 'Função para gerar senha aleatória Function GerarChave(Valores) Dim chr_Array(35) chr_array(0) = "0" chr_array(1) = "1" chr_array(2) = "2" chr_array(3) = "3" chr_array(4) = "4" chr_array(5) = "5" chr_array(6) = "6" chr_array(7) = "7" chr_array(8) = "8" chr_array(9) = "9" chr_array(10) = "a" chr_array(11) = "b" chr_array(12) = "c" chr_array(13) = "d" chr_array(14) = "e" chr_array(15) = "f" chr_array(16) = "g" chr_array(17) = "h" chr_array(18) = "i" chr_array(19) = "j" chr_array(20) = "k" chr_array(21) = "l" chr_array(22) = "m" chr_array(23) = "n" chr_array(24) = "o" chr_array(25) = "p" chr_array(26) = "q" chr_array(27) = "r" chr_array(28) = "s" chr_array(29) = "t" chr_array(30) = "u" chr_array(31) = "v" chr_array(32) = "w" chr_array(33) = "x" chr_array(34) = "y" chr_array(35) = "z" Randomize Do While Len(Chave) < 06 Num = chr_array(Int(35 * Rnd )) Chave = Chave + Num Loop GerarChave = Chave End Function '######################################################################################################################################################### 'Dados bancarios para depósito Const DSeuBanco = "Ex.: Banco do Brasil" 'Seu banco Const DSuaAgencia = "0000-0" 'Sua Agência Const DSuaConta = "0000000-0" 'Sua Conta Const DNomeCedente = "Nome do Favorecido" 'Favorecido '######################################################################################################################################################### 'Dados para configuração do boleto bancário (Itaú) Const vBancoItau = "341" 'código do banco Const vDVBancoItau = "7" 'Digito verificador do banco Const vAgenciaItau = "0000" 'agencia Const vContaItau = "00000" 'conta Const vDVContaItau = "0" 'digito verificador da conta Const vCarteiraItau = "175" 'código da carteira Const vLetraCarteiraItau = "" 'sigla da carteira Const vMoedaItau = "9" 'tamanho da moeda Const vEspecieItau = "R$" 'cifra da moeda Const vCodigoCedenteItau = "" 'código do cedente Const vCedenteItau = "BUSCARIOGRANDE" 'nome do cedente Const vDadosCedenteItau = "Rio Grande - RS - CEP 96216-220" 'dados do cedente Const vCNPJItau = "00.000.000/0001-00" Const vVencimentoItau = 10 '######################################################################################################################################################### 'Dados para configuração do boleto bancário (Bradesco) Const vBancoBradesco = "237" 'código do banco Const vDVBancoBradesco = "2" 'Digito verificador do banco Const vAgenciaBradesco = "0000" 'agencia Const vContaBradesco = "00000" 'conta Const vDVContaBradesco = "0" 'digito verificador da conta Const vCarteiraBradesco = "06" 'código da carteira Const vLetraCarteiraBradesco = "" 'sigla da carteira Const vMoedaBradesco = "9" 'tamanho da moeda Const vEspecieBradesco = "R$" 'cifra da moeda Const vCodigoCedenteBradesco = "" 'código do cedente Const vCedenteBradesco = "BUSCARIOGRANDE" 'nome do cedente Const vDadosCedenteBradesco = "Rio Grande - RS - CEP 96216-220"'dados do cedente Const vCNPJBradesco = "00.000.000/0001-00" Const vVencimentoBradesco = 10 '######################################################################################################################################################### 'Dados para configuração do boleto bancário (Caixa Econômica Federal) Const vBancoCaixa = "104" 'código do banco Const vDVBancoCaixa = "0" 'Digito verificador do banco Const vAgenciaCaixa = "0000" 'agencia Const vContaCaixa = "00000" 'conta Const vDVContaCaixa = "0" 'digito verificador da conta Const vCarteiraCaixa = "SR" 'código da carteira Const vLetraCarteiraCaixa = "" 'sigla da carteira Const vMoedaCaixa = "9" 'tamanho da moeda Const vEspecieCaixa = "R$" 'cifra da moeda Const vCodigoCedenteCaixa = "" 'código do cedente Const vCedenteCaixa = "BUSCARIOGRANDE" 'nome do cedente Const vDadosCedenteCaixa = "Rio Grande - RS - CEP 96216-220" 'dados do cedente Const vCNPJCaixa = "00.000.000/0001-00" Const vVencimentoCaixa = 10 '######################################################################################################################################################### 'Dados para configuração do boleto bancário (Banco do Brasil) Const vBancoBB = "001" 'código do banco Const vDVBancoBB = "9" 'Digito verificador do banco Const vAgenciaBB = "0000" 'agencia Const vContaBB = "00000" 'conta Const vDVContaBB = "0" 'digito verificador da conta Const vCarteiraBB = "18" 'código da carteira Const vLetraCarteiraBB = "" 'sigla da carteira Const vMoedaBB = "9" 'tamanho da moeda Const vEspecieBB = "R$" 'cifra da moeda Const vCodigoCedenteBB = "" 'código do cedente Const vCedenteBB = "BUSCARIOGRANDE" 'nome do cedente Const vDadosCedenteBB = "Rio Grande - RS - CEP 96216-220" 'dados do cedente Const vCNPJBB = "00.000.000/0001-00" Const vVencimentoBB = 10 '######################################################################################################################################################### 'Dados para configuração do boleto bancário (Banco Real) Const vBancoReal = "356" 'código do banco Const vDVBancoReal = "5" 'Digito verificador do banco Const vAgenciaReal = "0000" 'agencia Const vContaReal = "00000" 'conta Const vDVContaReal = "0" 'digito verificador da conta Const vCarteiraReal = "57" 'código da carteira Const vLetraCarteiraReal = "" 'sigla da carteira Const vMoedaReal = "9" 'tamanho da moeda Const vEspecieReal = "R$" 'cifra da moeda Const vCodigoCedenteReal = "" 'código do cedente Const vCedenteReal = "BUSCARIOGRANDE" 'nome do cedente Const vDadosCedenteReal = "Rio Grande - RS - CEP 96216-220" 'dados do cedente Const vCNPJReal = "00.000.000/0001-00" Const vVencimentoReal = 10 '######################################################################################################################################################### 'Dados para configuração do boleto bancário (Unibanco) Const vBancoUnibanco = "409" 'código do banco Const vDVBancoUnibanco = "0" 'Digito verificador do banco Const vAgenciaUnibanco = "0000" 'agencia Const vContaUnibanco = "00000" 'conta Const vDVContaUnibanco = "0" 'digito verificador da conta Const vCarteiraUnibanco = "00" 'código da carteira Const vLetraCarteiraUnibanco = "" 'sigla da carteira Const vMoedaUnibanco = "9" 'tamanho da moeda Const vEspecieUnibanco = "R$" 'cifra da moeda Const vCodigoCedenteUnibanco = "" 'código do cedente Const vCedenteUnibanco = "BUSCARIOGRANDE" 'nome do cedente Const vDadosCedenteUnibanco = "Rio Grande - RS - CEP 96216-220" 'dados do cedente Const vCNPJUnibanco = "00.000.000/0001-00" Const vVencimentoUnibanco = 10 '######################################################################################################################################################### 'Formata data para o formato brasileiro (dd/mm/aaaa) Function FormataData ( theDate ) If ( theDate = "" or IsNull(theDate)) Then FormataData = "&nbsp;" Else FormataData = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_ Year(theDate) End If End Function 'Formata data para o formato americano (mm/dd/aaaa) Function FormataDt ( theDate ) If ( theDate = "" ) Then FormataDt = "" Else FormataDt = Replace(Space(2-Len(Month(theDate))), Chr(32), Chr(48)) & Month(theDate) & "/" & Replace(Space(2-Len(Day(theDate))), Chr(32), Chr(48)) & Day(theDate) & "/" &_ Year(theDate) End If End Function %> Depois de mudar fiz outro cadastro de produtos, o caminho da imagem no banco de dados mudou , para ( http://www.buscariogrande.com.br/Classific...apa_de_file.jpg ) ESTRANHO É ESTES DOIS CARCTER { }, da uma olhada no caminho da foto, como abre no navegador, AQUI OLHA Vou ficar de olho novamente! Abraços!!!
  25. manogaucho
    Não upo as imagens, fica com aquele endereço mesmo que tu mandou, não esta certo no banco de dados o caminho fica assim ( http://www.ganhetempo.com/Classificados/Im...yrnj}_mural.jpg ) estranho este endereço 'http://www.ganhetempo.com" não é do meu site, o meu endereço é http://www.buscariogrande.com.br/. RESUMINDO ELE ESTA CADASTRANDO O CAMINHO ERRADO, TEMOS QUE ACERTAR ISTO. ACREDITO QUE SEJA ISTO!
×
×
  • Criar Novo...