Ir para conteúdo
Fórum Script Brasil

Mateustg

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    382

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Mateustg

  2. Que Erro é Esse?

    em ASP

    Postado

    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. Emitir Relatório

    em ASP

    Postado

    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?

  5. Quebra De Linha

    em ASP

    Postado

    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?

  8. Emitir Relatório

    em ASP

    Postado

    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

  10. Gravar Dois Dados?

    em ASP

    Postado

    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?

  12. Link No Bd

    em ASP

    Postado

    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. Link No Bd

    em ASP

    Postado

    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. Link No Bd

    em ASP

    Postado

    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. Link No Bd

    em ASP

    Postado

    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. Link No Bd

    em ASP

    Postado

    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. Link No Bd

    em ASP

    Postado

    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???

  22. Link No Bd

    em ASP

    Postado

    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?

  24. Select Automatico..

    em ASP

    Postado

    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.

×
×
  • Criar Novo...