Request Form

[Guest Bob Esponja]

Bom dia a todos! Estou com um problema com um sisteminha de CEP, q estou tentando criar. O cod é o seguinte:

<%
Set conexao=Server.CreateObject("ADODB.Connection")
Con.CursorLocation=3
Con.open "DRIVER={SQL Server};server=IP_DO_MEU_SERVIDOR;uid=LOGIN;pwd=SENHA;DATABASE=CEP;"
Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS=Con.Execute("SELECT * FROM CEPRJ WHERE CEP8='" & Request("txtCEP") & "'")
If (RS.BOF AND RS.EOF) Then
"<script> alert(""'CEP não ENCONTRADO'"") </script>"
Else
'insere nos campos do formulario o registro do banco de dados
frmDados.txtEndereco.value=(RS("TIP_LOG")) & " " & (RS("NOME_LOG"))
frmDados.txtBairro.value=(RS("BAIRRO_1"))
End If  
set conexao=Nothing
set RS=Nothing %>

Ele devolve um "erro interno do servidor", sendo q todas as permissoes estao checadas, tudo direitinho. Vou explicar como funciona, ou deveria funcionar o sistema:

Primeiro, eu tenho uma pag onde o usuario entra com o nome e cep. Depois, eu pego esse CEP (txtCEP) e procuro para ver se ele encontrado o logradouro no meu bd. Se ele encontrar, na página seguinte, dentro de um outro form(frm.Dados), ele insere nos campos (txtEndereco) e (txtBairro) os registros de logradouro do meu bd. Se ele não encontrar, ele manda um ALERT dizendo que não encontrou. Se puderem me ajudar, ficarei grato.

Obrigado.

[dark0]

olá

olhe em vermelho:

<%

Set conexao=Server.CreateObject("ADODB.Connection")

Con.CursorLocation=3

Con.open "DRIVER={SQL Server};server=IP_DO_MEU_SERVIDOR;uid=LOGIN;pwd=SENHA;DATABASE=CEP;"

Set RS=Server.CreateObject("ADODB.RecordSet")

Set RS=Con.Execute("SELECT * FROM CEPRJ WHERE CEP8='" & Request("txtCEP") & "'")

If (RS.BOF AND RS.EOF) Then

response.write "<script> alert(""'CEP não ENCONTRADO'"") </script>"

Else

'insere nos campos do formulario o registro do banco de dados

frmDados.txtEndereco.value=(RS("TIP_LOG")) & " " & (RS("NOME_LOG"))

frmDados.txtBairro.value=(RS("BAIRRO_1"))

End If 

set conexao=Nothing

set RS=Nothing %>

teste e veja se funciona..

t+

[Guest Bob Esponja]

não funcionou não dark0. estou na mesma. vlw a intenção

Se alguém souber como me ajudar, posta ai.

abcs.

[dark0]

que erro ta dando?:

[Guest Bob Esponja]

Como eu publico e testo, o erro que dá é "http 500 erro interno do servidor".

[DackAle]

especifique o erro, olhe umas linhas abaixo, melhor vai em ferramentas, opções da internet, avançadas, e desmarque, mostrar erro de https amigaveis... assim ele mostra o erro

<%
Set conexao=Server.CreateObject("ADODB.Connection")
Con.CursorLocation=3
Con.open "DRIVER={SQL Server};server=IP_DO_MEU_SERVIDOR;uid=LOGIN;pwd=SENHA;DATABASE=CEP;"
Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS=Con.Execute("SELECT * FROM CEPRJ WHERE CEP8='" & Request("txtCEP") & "'")
If RS.EOF Then
%>
<script language="Javascript">

alert ("CEP Não encontrado")

</script>
<%
Else
frmDados.txtEndereco.value=(RS("TIP_LOG")) & " " & (RS("NOME_LOG"))
frmDados.txtBairro.value=(RS("BAIRRO_1"))
End If  
set conexao=Nothing
set RS=Nothing %>

Mas tenta isso =)

E se não funcionar depois de fazer aquilo que lhe falei cola o erro para nos =)

Abraços

[dark0]

se só mostra erro 500..

Faça assim:

- Propriedades de Internet - AVANÇADAS - desmarque a opção: Mostrar URL AMigaveis

depois rode seu codigo, e veja o erro..

t+

[Guest Bob Esponja]

<%
Dim conexao
Set conexao=Server.CreateObject("ADODB.Connection")
Con.CursorLocation=3
Con.open "DRIVER={SQL Server};server=MY_SERVER_IP;uid=MEU_LOGIN;pwd=MINHA_SENHA;DATABASE=CEP;"
Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS=Con.Execute("SELECT * FROM CEPRJ WHERE CEP8='" & Request("txtCEP") & "'")
If RS.EOF Then
%>
<script language="Javascript">

alert ("CEP Não encontrado")

</script>
<%
Else
frmDados.txtEndereco.value=(RS("TIP_LOG")) & " " & (RS("NOME_LOG"))
frmDados.txtBairro.value=(RS("BAIRRO_1"))
End If  
set conexao=Nothing
set RS=Nothing %>

o meu codigo esta assim dark. Eu desmarquei a opção nas opções do Internet Explorer e agora ele me retorna o erro:

ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/pesquisa/cadmorad.asp, line 33

já mudei a string varias vezes, mas n estah funcionando. Tem ideia do que possa ser ?

agradeço desde já a todos q estão me ajudando

[dark0]

ali diz erro na linha 33

mas seu codigo não tem nem 30 linhas..

qual é a linha 33?

[Victor]

fecha o recordset, pois você o abriu e não fechou!!!!

recorset.close

[Bob Esponja]

O recordset já esta fechado.

Set RS=Nothing

na ultima linha do cod. A linha 33 e a seguinte:

Con.open "DRIVER={SQL Server};server=IP_DO_MEU_SERVIDOR;uid=LOGIN;pwd=SENHA;DATABASE=CEP;"

O erro continua....

ps. Me cadastrei no forum !

[dark0]

Bem vindo ao fórum!

Bom, posta todo o codigo aí..

porque senao fica mais complicado olhar..

[Bob Esponja]

O código é imenso.... hehehe

São 564 linhas pra ser mais preciso. A unica parte q interessa é essa mesmo. Vou postar o código até essa parte, mas se parecer meio confuso, não liguem não, ok ? Ai vai...

<!-- #INCLUDE VIRTUAL="\database\connect.asp" -->
<!-- #INCLUDE VIRTUAL="\database\pdemanda.asp" -->
<%


If Request("action")="" Then Response.Redirect "."
Dim CPF
CPF=Request("txtCPF")
CPF=Left(CPF,9) & "-" & right(CPF,2)

RSMuni.Open "SELECT * FROM tb_Municpios Where UF='RJ' ORDER BY Nome;", Con
Dim Munis
Do While Not RSMuni.EOF
	Munis=Munis & "<option value=""" & RSMuni("CODIGO") & """>" & RSMuni("NOME") & "</option>" & vbcrlf
	RSMuni.MoveNext
Loop

Dim ReadOnly,MSG
if request("action")="readonly" then ReadOnly = " disabled "


Select Case True
	Case Left(Request("action"),12)="invalidfield"
  Msg="O Campo '" & Mid(Request("action"),14) & "' não foi preenchido corretamente." & "<br>Você não pode efetuar seu cadastro sem preencher todos os campos obrigatórios."
	Case Left(Request("action"),12)="invalidvalue"
  Msg="O Campo '" & Mid(Request("action"),14) & "' é inválido." & "<br>Você não pode efetuar seu cadastro sem preencher todos os campos obrigatórios."
End Select
%>
<%
Dim conexao
Set conexao=Server.CreateObject("ADODB.Connection")
Con.CursorLocation=3
Con.open "DRIVER={SQL Server};server=SERVER_IP;uid=LOGIN;pwd=MY_PASSWORD;DATABASE=CEP;"
Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS=Con.Execute("SELECT * FROM CEPRJ WHERE CEP8='" & Request("txtCEP") & "'")
If RS.EOF Then
%>
<script language="Javascript">

alert ("CEP Não encontrado")

</script>
<%
Else
frmDados.txtEndereco.value=(RS("TIP_LOG")) & " " & (RS("NOME_LOG"))
frmDados.txtBairro.value=(RS("BAIRRO_1"))
End If  
set conexao=Nothing
set RS=Nothing %>

Melhorou ?

obrigado.