Ir para conteúdo
Fórum Script Brasil

Mateustg

Membros
  • Total de itens

    382
  • Registro em

  • Última visita

Tudo que Mateustg postou

  1. Mateustg

    Que Erro é Esse?

    humm, como faço para resolver isso? Não saco muito disso!
  2. Mateustg

    Que Erro é Esse?

    Olá, tentei fazer um relatório aqui...onde o cara digita o login e a senha e ao fazer isso eu pego o login dele e a hora q ele logou para fazer um relatório..fiz o seguinte: <!--#include file="conectar.asp"--> <% Response.Buffer = TRUE erro = "" AbreConexao idcat = request.querystring("idcat") idalbum= request.querystring("idalbum") cat = request.querystring("cat") album = Replace(Request.QueryString("album"),"'","") Nome = Replace(Request.Form("Nome"), "'","") Senha = Replace(Request.Form("Senha"),"'","") strSQL = "SELECT CADASTRO.*,ALBUM.Senha FROM ALBUM INNER JOIN CADASTRO ON ALBUM.id = CADASTRO.IdAlbum WHERE (((CADASTRO.Login)='"&Nome&"') AND ((CADASTRO.IdAlbum)="&idalbum&") AND ((ALBUM.Senha)='"&Senha&"'))" 'Response.Write strSQL Set rs = Conexao.Execute(strSQL) If NOT rs.EOF Then If Trim(Nome) = Trim(rs("Login")) AND Trim(Senha) = Trim(rs("Senha")) Then strPode = "album" & idalbum Session("pode") = strPode Session("senha")= Trim(Senha) Redir = "SIM" Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 01" End If End If Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 02" End If End If LA = "default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album LF = "logiver.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album If Redir = "SIM" Then sql_relatorio = "INSERT INTO acessos (Nome1, data_hora) VALUES ('" & Nome1 & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) Response.Redirect LA Else erro1 = "ERRO 03" End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Área restrita de Lotes</title> </head> <body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"> <%If erro <> "" Then Response.Write "<h1 style=""text-align:center"">Login ou Senha Invalida</h1><br>"%> <div id="prim" style="text-align:center;padding:50px;"> <br><font face="Verdana" size="2"><b>Login para ver o <%=album%></b></font> <form method="post" action="<%=LF%>"> <table id="log" style="color:#fff;background-color:#C0C0C0;"> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Login:</b></font></label></td> <td><input type="text" name="Nome" value=""></td> </tr> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Senha:</b></font></label></td> <td><input type="password" name="Senha" value=""></td> </tr> <tr> <td colspan="2" align="center"><input type="submit" name="ev" value="Entrar"></td> </tr> </table> </form> <a href="default.asp?idcat=1&amp;cat=Lotes" style="color: #FFFFFF"><b><img src="imagem/fechar.gif" border="0"> <font face="Verdana" size="2">Sair</font></b></a> </div> </body> </html> só que ele dá este erro: Microsoft JET Database Engine error '80004005' The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again. /album/logiver.asp, line 42 a linha 42 é esta abaixo, onde tento pegar o login/nome e a data para o relatório: sql_relatorio = "INSERT INTO acessos (Nome1, data_hora) VALUES ('" & Nome1 & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) o que faço?
  3. Mateustg

    Emitir Relatório

    Andreia, não sei o que houve, mas sem mais nem menos ele parou de funcionar, agora gera o seguinte erro: Microsoft JET Database Engine error '80004005' The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again. /album/logiver.asp, line 42 a linha 42 é: sql_relatorio = "INSERT INTO acessos (Nome1, data_hora) VALUES ('" & Nome1 & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) o que faço?
  4. Mateustg

    Quebra De Linha

    tentei o que o kuroi falou e funcionou beleza! Vlw!
  5. Mateustg

    Quebra De Linha

    Galera, to querendo saber o seguinte...acho q é simples, mas eu não sei...eu tenho o seguinte código: objCDO.Body = request.form("name")& " te enviou um cartão. Para visualizar o cartão acesse o link abaixo: http://www.vipseven.com.br/card/postcards/...quot;.htm" Neste formato acima, a pessoa recebe a mensagem da seguinte forma (Ex.): Mateustg te enviou um cartão. Para visualizar o cartão acesse o link abaixo: http://www.vipseven.com.br/card/postcards/...quot;.htm" Mas o que eu quero é dar uma quebra de linha pra ficar assim (Ex.): Mateustg te enviou um cartão. Para visualizar o cartão acesse o link abaixo: http://www.vipseven.com.br/card/postcards/...quot;.htm" Tentei usar o <br>, mas não aceita pois é objCDO.Body = o que fazer?
  6. Mateustg

    Emitir Relatório

    Andreia, vlw mesmo agora deu certo, eu estava tentando algo parecido com o que você me passou, porém estava colocando em local errado também. vlw mesmo!
  7. Mateustg

    Emitir Relatório

    bem andreia, eu não saco muito de asp...eu sei q neste código é feita a autenticação do login e senha, então como posso fazer um include que aproveita o Request.Form
  8. Mateustg

    Emitir Relatório

    Olá galera, é o seguinte...eu tenho este código aqui: <!--#include file="conectar.asp"--> <% Response.Buffer = TRUE erro = "" AbreConexao idcat = request.querystring("idcat") idalbum= request.querystring("idalbum") cat = request.querystring("cat") album = Replace(Request.QueryString("album"),"'","") Nome = Replace(Request.Form("Nome"), "'","") Senha = Replace(Request.Form("Senha"),"'","") strSQL = "SELECT CADASTRO.*,ALBUM.Senha FROM ALBUM INNER JOIN CADASTRO ON ALBUM.id = CADASTRO.IdAlbum WHERE (((CADASTRO.Login)='"&Nome&"') AND ((CADASTRO.IdAlbum)="&idalbum&") AND ((ALBUM.Senha)='"&Senha&"'))" 'Response.Write strSQL Set rs = Conexao.Execute(strSQL) If NOT rs.EOF Then If Trim(Nome) = Trim(rs("Login")) AND Trim(Senha) = Trim(rs("Senha")) Then strPode = "album" & idalbum Session("pode") = strPode Session("senha")= Trim(Senha) Redir = "SIM" Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 01" End If End If Else If Request.Form("ev") <> "" Then Session("pode") = "" Session("senha")= NULL erro = "ERRO 02" End If End If LA = "default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album LF = "logiver.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album If Redir = "SIM" Then Response.Redirect LA Else erro1 = "ERRO 03" End If %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <title>Área restrita de Lotes</title> </head> <body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"> <%If erro <> "" Then Response.Write "<h1 style=""text-align:center"">Login ou Senha Invalida</h1><br>"%> <div id="prim" style="text-align:center;padding:50px;"> <br><font face="Verdana" size="2"><b>Login para ver o <%=album%></b></font> <form method="post" action="<%=LF%>"> <table id="log" style="color:#fff;background-color:#C0C0C0;"> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Login:</b></font></label></td> <td><input type="text" name="Nome" value=""></td> </tr> <tr> <td><label><font face="Verdana" size="2" color="#000000"><b>Senha:</b></font></label></td> <td><input type="password" name="Senha" value=""></td> </tr> <tr> <td colspan="2" align="center"><input type="submit" name="ev" value="Entrar"></td> </tr> </table> </form> <a href="default.asp?idcat=1&amp;cat=Lotes" style="color: #FFFFFF"><b><img src="imagem/fechar.gif" border="0"> <font face="Verdana" size="2">Sair</font></b></a> </div> </body> </html> ele é responsavel por conferir o login e senha de acesso...o que eu estou querendo é que se a pessoa digitar o login e senha corretos, além dele entrar, o que já faz, gostaria de pegar o nome de login e a senha digitados e salvar dentro de uma outra tabela que tenho aqui, pois dai eu só mando listar depois num relatório, mas como eu consigo pegar o login e senha e armazenar nessa tabela? Vlw
  9. Mateustg

    Gravar Dois Dados?

    Na realidade não existe a mesma informação na tabela...um campo ele está pegando o id somente...queria pegar o nome também.
  10. Mateustg

    Gravar Dois Dados?

    olá...eu tenho este cód.: Case "en_cadastro" If Request.Form("enviado") = "sim" Then Sql = "INSERT INTO cadastro (idalbum,login,senha) " Sql = Sql & "VALUES('"&Request.Form("idalbum")&"','"&Request.Form("login")&"','"&Request.Form("senha")&"')" Conexao.Execute(Sql) Response.Write "Enviado Com Sucesso<BR><A href=admin.asp>Voltar</a>" Else %> <form method="POST" action="admin.asp?sessao=en_cadastro"> <input type="hidden" name="enviado" value="sim"> Lote:&nbsp;&nbsp;&nbsp;&nbsp;<select size="1" name="idalbum"> <% Set rs=Conexao.Execute("SELECT * FROM album ORDER BY nome") While not rs.EOF Response.Write "<option value="&rs("id")&">"&rs("nome")&"</option>" rs.Movenext Wend %> </select><BR> Ele insere no BD o idalbum, o login e a senha...eu gostaria de inserir ainda o nome do lote...mas este nome teria que ser pego onde faz o option...q mostra o nome do lote...o problema está ai, pois o lote já está armazenando o idalbum....então queria saber se tem como escolher pelo option o nome do lote e ai ele gravar no BD tanto o idalbum, como o nome do lote?
  11. Mateustg

    Link No Bd

    tentei fazer o que você falou, mas se eu fizer como você falou...começa a dar erros no sistema. há alguma outra maneira de fazer?
  12. Mateustg

    Link No Bd

    Estanho eu fiz o if testando a session...veja meu código: <% 'A primeira coisa a ser feita é verificar se o usuário está logado If session("nivel_acesso") = "" Then Response.Write "Você não está logado!" Response.End End If 'Vamos então, verificar o nivel de acesso do usuário e inserirmos o conteúdo correspondente If session("nivel_acesso") = 1 Then 'gerentes %> <!--#include file="conectar.asp"--> <html> <head> <title>Album de Fotos</title> </head> <body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"> <font face="Verdana" size="1"> <BR><HR size="1"><BR> <% AbreConexao idcat=request.querystring("idcat") idalbum=request.querystring("idalbum") cat=request.querystring("cat") album=request.querystring("album") login2 = Request.Form("txt_login") senha2 = Request.Form("txt_senha") '/////COMECA AS CATEGORIAS If idcat = "" Then Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome") If rsCats.EOF Then Response.Write "Nenhuma categoria encontrada!" Else While not rsCats.EOF Response.Write "<a href=""default2.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><br>" rsCats.Movenext Wend End If '/////COMECA OS ALBUNS Else If idalbum = "" Then Response.Write "<font size=2><B>"&cat&"</font></B>" Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome") If rsAlbum.EOF Then Response.Write "Nenhum lote encontrado!" Else Response.Write "<div align=""center""><table border=0 cellpadding=5 cellspacing=0 width=""70%"">" contar = 0 Do while not rsAlbum.eof If contar <> 5 Then Response.Write "<TR>" End If imagem=rsAlbum("imagem") If RsAlbum.eof then exit do Response.Write "<td><a href=""login.html""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></td><BR>" contar = contar +1 rsAlbum.Movenext Loop Response.Write "</tr></table></div>" End if '/////COMECA AS FOTOS Else Response.Write "<font size=2><B>"& cat &" > "& album & "</font></b><BR><BR>" Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"") If rsFotos.EOF Then Response.Write "Nenhuma foto encontrada!" Else Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 5 Then Response.Write "<tr>" End If If contar <> 5 Then Response.Write "<TR>" End If imagem=rsFotos("imagem") If RsFotos.eof then exit do Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if End If End If End If '/////COMECA LOGIN sessao = request.querystring("sessao") Select case sessao Case "log" Set rsCadastro = Conexao.Execute("SELECT * FROM cadastro WHERE login = '"&login2&"' and senha = '"&senha2&"'") If rsCadastro.EOF Then Response.Write "usuário ou senha inválido(s)!" Response.End End If 'Se chegou até aqui, é porque o login e senha estão corretos. 'Vamos então verificar o nível de acesso do usuário. session("nivel_acesso") = RSCadastro("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas Response.Redirect "default2.asp?idcat=" & 1 & "&cat=" & Lotes & "&idalbum=" & rsCadastro("idalbum")& "&album=" & rsCadastro("nome") & "" 'página restrita End Select %></font> <p><HR size="1"> </body> </html>
  13. Mateustg

    Link No Bd

    dark0, você é o cara...lhe devo uma....você me ajudou bastante...já consegui fazer funcionar aplicando um método aqui. Agora gostaria de uma outra pequena ajuda... se eu pegar o endereço e digitar na barra de endereço, ele está abrindo o album...e gostaria que não abrisse...só abrir se for pelo login...o que faço?
  14. Mateustg

    Link No Bd

    O meu problema é que da categoria para os lotes...tudo está na mesma página (defaul.asp)...a página que postei acima é a página default.asp, onde mostra todo o relacionamento. se eu crio o login separado (outra pág) ele dá erro, pois o link que leva para mostrar os lotes tem referencia com a pág. default.asp
  15. Mateustg

    Link No Bd

    galera, alguém pode me socorrer...to tentando fazer com que esta página abaixo em vez de ir para a página dos albuns, ela abra primeiro pedindo login e senha e depois sim...se os dados baterem, ela ir para o album selecionado. No item '/////COMECA OS ALBUNS, há o link que leva para o lote escolhido: <a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """> Em vez dele ir para este link, gostaria q fosse 1º para logar e depois sim para ele. Como faço? sendo que eu irei cadastrar qual album ele tem acesso. <!--#include file="conectar.asp"--> <html> <head> <title>Album de Fotos</title> </head> <body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2"> <font face="Verdana" size="1"> <BR><HR size="1"><BR> <% AbreConexao idcat=request.querystring("idcat") idalbum=request.querystring("idalbum") cat=request.querystring("cat") album=request.querystring("album") '/////COMECA AS CATEGORIAS If idcat = "" Then Set rsCats = Conexao.Execute("SELECT * FROM categorias ORDER BY nome") If rsCats.EOF Then Response.Write "Nenhuma categoria encontrada!" Else While not rsCats.EOF Response.Write "<a href=""default.asp?idcat="&rsCats("id")&"&cat="&rsCats("nome")&""">"&rsCats("nome")&"</a><br>" rsCats.Movenext Wend End If '/////COMECA OS ALBUNS Else If idalbum = "" Then Response.Write "<font size=2><B>"&cat&"</font></B>" Set rsAlbum = Conexao.Execute("SELECT * FROM album WHERE idcat="&idcat&" ORDER BY nome") If rsAlbum.EOF Then Response.Write "Nenhum lote encontrado!" Else Response.Write "<div align=""center""><table border=0 cellpadding=5 cellspacing=0 width=""70%"">" contar = 0 Do while not rsAlbum.eof If contar <> 5 Then Response.Write "<TR>" End If imagem=rsAlbum("imagem") If RsAlbum.eof then exit do Response.Write "<td><a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td><BR>" contar = contar +1 rsAlbum.Movenext Loop Response.Write "</tr></table></div>" End if '/////COMECA AS FOTOS Else Response.Write "<font size=2><B>"& cat &" > "& album & "</font></b><BR><BR>" Set rsFotos = Conexao.Execute("SELECT * FROM fotos WHERE idalbum="&idalbum&"") If rsFotos.EOF Then Response.Write "Nenhuma foto encontrada!" Else Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 5 Then Response.Write "<tr>" End If If contar <> 5 Then Response.Write "<TR>" End If imagem=rsFotos("imagem") If RsFotos.eof then exit do Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagem=rsFotos("imagem") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if End If End If %></font> <p><HR size="1"> </body> </html>
  16. Mateustg

    Link No Bd

    dark0, se eu quiser que a senha para um lote sempre seja a mesma, só mude o usuário? tipo, o lote 2 a senha sempre será 02, como posso fazer com que no BD seje colocado sempre esta senha, evitando que seje necessário o administrador ter q digitar todas as vezes?
  17. Mateustg

    Link No Bd

    vou tentar, mas só uma outra dúvida minha: para entrar em um lote ele usa este seguinte link: <a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """> eu devo fazer o login dentro desta mesma página (onde mostra o link) ou posso trocar o link para em vez de entrar no link da foto, entrar numa página chamada logon.asp por exemplo....ai na pág. logon eu coloco isto q você me falou???
  18. Mateustg

    Link No Bd

    certo, entendi a lógica....mas como posso fazer para comparar o lote q cadastrei com o lote clicado?
  19. Mateustg

    Alguém Sabe Se Existe?

    ok, funcionou beleza...vlw!
  20. Mateustg

    Alguém Sabe Se Existe?

    mas tipo...no asp eu uso assim: <!--#include file="topo.html" --> como seria no php??? tenho que usar igual?
  21. Olá, gostaria de saber se existe isso... no asp...eu posso usar include para exibir uma página...em php existe algo do tipo???
  22. Mateustg

    Link No Bd

    Resumindo tudo....eu tenho um sistema onde o mesmo mostra as categorias cadastradas (ex.: lote1, lote2) e ao clicar na categoria, é aberta as fotos dela. Já tenho toda a administração para criar categorias e as fotos, agora quero fazer que ao clicar na categoria, em vez de mostrar as fotos de uma vez, primeiro entre pedindo login e senha, pois só quem tem senha vai entrar e ver. Só que quero fazer o seguinte...no cadastro vou definir qual lote ele pode ver...(ex.: lote 2), então se ele entrar e clicar na categoria do lote2, ele irá digitar o login e senha e será levado ao lote 2. o que não to sabendo é que para cada categoria abrir e mostrar suas respectivas fotos, ele tem um link que leva para a categoria e para os albuns de foto: <a href=""default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & rsAlbum("id")& "&album=" & rsAlbum("nome") & """> Então quero que na administração eu possa cadastrar o login, a senha e escolher num select qual o lote q ele tem acesso....sendo que ao escolher lote 2 por exemplo...ele tem q definir que ao abri o lote2 e digitar os dados de login e senha cadastrados no BD, ele abra as fotos... entendeu?
  23. Mateustg

    Link No Bd

    alguém pode me ajudar?
  24. Mateustg

    Select Automatico..

    cara tentei mandar o email de novo e retornou...estranho.. mas vou postar o código aqui: ddd.asp <% ' Declare our variables... always good practice! Dim strURL ' The URL of this page so the form will work ' no matter what this file is named. Dim cnnSearch ' ADO connection Dim rstSearch ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim strSQL ' The SQL Query we build on the fly Dim strSearch ' The text being looked for '#Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "não" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function ' Retreive the URL of this page from Server Variables strURL = Request.ServerVariables("URL") ' Retreive the term being searched for. I'm doing it on ' the QS since that allows people to bookmark results. ' You could just as easily have used the form collection. strSearch = Request.QueryString("search") ' Since I'm doing this all in one page I need to see if anyone ' has searched for something. If they have we hit the DB. ' O/W I just show the search form and quit. %> <p>&nbsp;</p><table width="30%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5FA"> <tr> <td><p align="center"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Digite o nome da cidade para exibi&ccedil;&atilde;o do seu respectivo DDD :</font>:</STRONG></FONT></p> <form action="<%= strURL %>" method="get"> <div align="center"> <input name="search" value="<%= strSearch %>" /> <input name="submit" type="submit" value="Pesquisar" /> </div> </form> <p align="center"> <% If strSearch <> "" Then ' MapPath of virtual database file path to a physical path. ' If you want you could hard code a physical path here. strDBPath = Server.MapPath("ddd.mdb") ' Create an ADO Connection to connect to the sample database. ' We're using OLE DB but you could just as easily use ODBC or a DSN. Set cnnSearch = Server.CreateObject("ADODB.Connection") ' This line is for the Access sample database: cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" ' We're actually using SQL Server so we use this line instead: 'cnnSearch.Open Application("SQLConnString") ' Build our query based on the input. strSQL = "SELECT Cidade, UF, DDD " _ & "FROM DDD " _ & "WHERE Cidade LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR UF LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY Cidade;" ' Execute our query using the connection object. It automatically ' creates and returns a recordset which we store in our variable. Set rstSearch = cnnSearch.Execute(strSQL) ' Display a table of the data in the recordset. We loop through the ' recordset displaying the fields from the table and using MoveNext ' to increment to the next record. We stop when we reach EOF. ' For fun I'm combining some fields and showwing you can do more then ' just spit out the data in the form it is in in the table. %> </p> <div align="center"> <table border="0" cellpadding="4" cellspacing="1"> <tr> <th bgcolor="#6699CC"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Cidade :</font>:</STRONG></FONT></th> <th bgcolor="#6699CC"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: DDD:</font>:</STRONG></FONT></th> <th bgcolor="#6699CC"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: UF :</font>:</STRONG></FONT></th> </tr> <% Do While Not rstSearch.EOF %> <tr> <td bgcolor="#D7F2FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Cidade").Value %></font></td> <td bgcolor="#D7F2FF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("DDD").Value %></font></div></td> <td bgcolor="#D7F2FF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("UF").Value %></font></div></td> </tr> <% rstSearch.MoveNext Loop %> </table> <% ' Close our recordset and connection and dispose of the objects rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If ' That's all folks! See it's really not all that hard. %> </div></td> </tr> </table> <p>&nbsp;</p> No bd você cria a tabela ddd com os campos: id, cidade, uf e ddd ele vai pegar o uf q você escolher e mostrar todas as cidades referentes.
  25. Mateustg

    Select Automatico..

    te enviei o email, mas ta retornando
×
×
  • Criar Novo...