Tork

No problem, se der outro erro posta sua dúvida aí

if nome = "" And convenios <> "" then medico.open "SELECT * FROM medico WHERE convenios LIKE '%" & convneios= &"%' "

LulaMolusco! hehehehe o ppgsalomao tem ou não tem o que fazer? clique aqui para entender a pergunta hahahaha.. zueira!

porque escreve rs.Open duas vezes? Eu acho que é isso...

é, o Brinkster coloca um banner muito grande... o Libihost tem um problema, eles fecham sua conta a cada quinze dias acho.. para o pessoal não ficar ganhando dinheiro com host de graça..

Eu que comecei esse post ai pessoal.. Não sabia que ia gerar tantos outros posts.. Bom, da minha parte eu acho que podia deixar nesse tópico aqui só o primeiro post, do ursolouco e fechá-lo, porque se não tem votação não tem motivo para deixá-lo aberto.. Abraços.

o aspecto.net é o libihost.net ...

IF not rs.EOF Then Response.Write "Banido do site!" Response.End END IF

São aceitas sugestões?? Eu votaria no dark0!

<% Dim sql, rs Dim sqlInsere, rsInsere 'Recuperando o CNPJ digitado cnpj = Request.Form("cnpj") 'Fazendo a busca no banco de dados por cnpj igual ao digitado sql = "select * from escolas WHERE cnpj = " & cnpj & " " set rs = conexao.Execute(sql) 'Se não for o final dos campos (EOF) então... If not rs.EoF Then '...Inserir na tabela lista sqlInsere = "INSERT INTO lista (cnpj,...) VALUES('"&rs("cnpj")&"') " set rsInsere = conexao.Execute(sqlInsere) 'Senão Else 'diz que nada foi achado Response.Write ("nenhum registro encontrado") End If %>

Dá sim para colocar o ID do banco de dados em uma session. Vamos supor um login, certo? Aí o cara foi lá e digitou o nome e a senha. <% login = request.form("login") senha = request.form("senha") Set rsVerifica_Login = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM usuarios WHERE login = '" & login & "' and senha = '" & senha & "'" rsVerifica_Login.Open strSQL, conexao IF not rsVerifica_Login.EOF THEN Session("logado") = "sim" '----------------------------------------- Session("id") = rsVerifica_Login("id") '----------------------------------------- Response.Redirect "default.asp" ELSE Response.Redirect "login.asp" END IF %>

Caramba, esse tópico foi longe hein! Aí Edson, seria melhor se você postasse suas mensagens com letra minúscula, porque fica mais fácil de ler e não parece que você tá gritando, como já disse o jissa num outro tópico. Bom, posta o código que você está usando agora.

O que é isso? PHP? Como seria tirar o cabeçalho e o rodapé? não entendi....

deve ser porque ele n aceita "ç" e "ã" no campo e-mail

Eu acho que o erro é nessa parte ("../")&"\ed.doc tenta fazer assim: ("../")&"ed.doc