PRISCILA STOCHINI

ENTÃO ESSE LOGIN É O NOME DA PAGINA QUE TEM O CODIGO PARA RESTRINGIR A PÁGINA???

Session("login") = True (...) ESSE LOGIN É UMA VARIAVEL CERTO???? MAS DA ONDE ELA ESTÁ VINDO ..ESSE É MINHA MAIOR DUVIDA!!

SERÁ QUE ESSE É TODO O PROBLEMA...??? QUANDO EU DIGITO O USUARIO E A SENHA DA O ERRO 2!!! SENDO QUE ESTÁ CERTO O USUARIO E A SENHA

Olha eu aqui denovo... bom agora eu to precisando de uma ajudinha.... tem uma página inicial...onde nesse tenho um lugar para usuarios cadastrados entrarem com login e senha... esse FORM puxa um arquivo de validação....e esse após a validação deveria chamar a página inicial do usuario... Vou colocar os códigos para que me ajudem... PÁGINA INICIAL <% MSN = request.querystring("erro") If MSN = 1 Then mensagem = "Usuário e/ou Senha inválido!" End If If MSN = 2 Then mensagem = "Você precisa se logar para visualizar o conteúdo deste site!" End If If MSN = 3 Then mensagem = "Você deslogou do sistema. Obrigado e volte sempre." Response.AddHeader "refresh","3;url=index.asp" End if %> (...) <form method="post" action="valida.asp" name="login"> <font size="2"><span class="style13">Usuário: &nbsp; <input type="text" name="nome" size="12"> Senha: &nbsp;</span>&nbsp;&nbsp; <input type="password" name="senha" size="12"> <br> <input type="submit" value="VALIDAR"> </font> </form> (...) VALIDAÇÃO <!--#include file="conecta.asp"--> <!--#include file="session.asp"--> <% vuser = Request.Form("nome") vpass = Request.Form("senha") Dim sql, rs, bco sql = "select * from usuarios where nome='"&vuser&"' and senha='"&vpass&"'" Abreconn Set rs = bco.execute(sql) If rs.eof Then rs.close Set rs = Nothing fechaconn Response.Redirect("index.asp?erro=1") Else Session("login") = True Session("nome") = vuser rs.Close Set rs = Nothing fechaconn Response.Redirect("PRINCIPALXYZ000.htm") End if %> CONECTA <% Sub AbreConn Dim bco, sql, rs Set bco = server.CreateObject("ADODB.connection") bco.open("driver={Microsoft Access Driver (*.mdb)}; DBQ=usuarios.mdb") End Sub '----------------------------- Sub FechaConn bco.close Set bd = Nothing End sub %> SESSION <% If Session ("login") = False Then Response.Redirect "index.asp?erro=2" End If Response.Expires = -1000 %>

Microsoft JET Database Engine error '80040e14' Number of query values and destination fields are not the same. /TESTE_ASP/enviando.asp, line 23 está dando esse erro... Bom, preciso ao mesmo tempo que enviar dados de formulario preciso "cadastrar" tambem o dia e a hora do servidor no bco...como faço isso...acho que é isso que está fazendo dar esse erro...

Num, é numero no bco... gravo o numero de um endereço tem problema se eu colocar como texto no bco????

tem algum problema se eu colocar campo que irão numero como texto...???

Pessoal tem tanto numero quanto texto no meu banco...como faço pra definir se é num ou texto no meu codigo????-

Por exemplo se eu tiver um campo de telefone consequentemente numero...como devo colocar no codigo pra ele identificar que é numero... Outro probleminha... Tenho que buscar os dados pelas datas como faço isso... ???

ALGUÉM ME AJUDA POR FAVOR....é CASO DE VIDA OU MORTE...

Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /TESTE_ASP/enviando.asp, line 23 21 sql = "INSERT into colaborador(empresa, departamento, contato, cargo, endereco, num, compl, cep, estado, cidade, ddd, tel, fax, cel, email, homepage, atividade) values ('"&Vempresa&"','"&Vdepartamento&"','"&Vcontato&"','"&Vcargo&"', '"&Vendereco&"', '"&Vnum&"', '"&Vcompl&"', '"&Vcep&"', '"&Vestado&"', '"&Vcidade&"', '"&Vddd&"', '"&Vtel&"', '"&Vfax&"', '"&Vcel&"', '"&Vemail&"', '"&Vhomepage&"', '"&Vatividade&"')" 23 Set rs = bco.Execute(sql)

Esse é um outro problema...mas pelo meu entender é parecido... Abro a minha conexão com um include... INCLUDE de CONEXÃO -- <% Dim bco, sql, rs Set bco = server.CreateObject("ADODB.connection") bco.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Bancos\formularios.mdb")) %> ENVIA DADOS -- <!--#include file="conexao.asp"--> <% Vempresa = Request.Form("empresa") Vdepartamento = Request.Form("departamento") Vcontato = Request.Form("contato") Vcargo = Request.Form("cargo") Vendereco = Request.Form("endereco") Vnum = Request.Form("num") Vcompl = Request.Form("compl") Vcep = Request.Form("cep") Vestado = Request.Form("estado") Vcidade = Request.Form("cidade") Vddd = Request.Form("ddd") Vtel = Request.Form("tel") Vfax = Request.Form("fax") Vcel = Request.Form("cel") Vemail = Request.Form("email") Vhomepage = Request.Form("homepage") Vatividade = Request.Form("atividade") sql = "INSERT into colaborador(empresa, departamento, contato, cargo, endereco, num, compl, cep, estado, cidade, ddd, tel, fax, cel, email, homepage, atividade) values ('"&Vempresa&"','"&Vdepartamento&"','"&Vcontato&"','"&Vcargo&"', '"&Vendereco&"', '"&Vnum&"', '"&Vcompl&"', '"&Vcep&"', '"&Vestado&"', '"&Vcidade&"', '"&Vddd&"', '"&Vtel&"', '"&Vfax&"', '"&Vcel&"', '"&Vemail&"', '"&Vhomepage&"', '"&Vatividade&"')" Set rs = bco.Execute(sql) Response.Write(sql) bco.Close Set bco = Nothing URL = "cadastrando.asp" response.redirect(URL) %> ERRO -- Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /TESTE_ASP/enviando.asp, line 23

ERRO-- Microsoft VBScript runtime error '800a000d' Type mismatch: 'AbreConn' /TESTE_ASP/visualiza_cadastro.asp, line 25 Codigo--- <% sql = "SELECT empresa, depart, contato, cargo FROM colaborador" Set rs = bco.Execute(sql) %> <%rs.MoveFirst : do while not rs.eof%> Empresa: <%=rs("empresa")%><br> Depart: <%=rs("depart")%><br> Contato: <%=rs("contato")%><br> Cargo: <%=rs("cargo")%><br> <%rs.MoveNext : Loop Call FechaConn()%>

Mais ou mesmo..que não estore o tamanho definido...que se tiver mais conteudo do que o tamanho..pule de linha automatico

Tenho uma tabela e quero que ela fique travada...na lateral como faço isso mesmo??? Deu mó branco..

entra no meu outro tópico...lá eu descrevi o que eu realmente quero....por favor..

Pessoal, sou nova nisso estou precisando muito da ajuda de vocês.. Bom, vou explicar o que quero fazer mais ou menos e quem puder me ajudar..vou ficar grata... Tenho um sistema de formularios que enviam dados para um BCO....até ai tudo bem...depois de mta ajuda e mtos teste consegui... Agora, preciso fazer uma pagina que contenha. Um select de datas, para o usuario escolher a data que gostaria de estar vendo os cadastros realizados naquela data... Outro select com os nomes dos formulario para estar direcionando a tabela correta.... e que apareça os cadastros selecionado na pagina... GRATA PELA ATENÇÂO E COMPREENSÃO

MEU ALELUIA....JURO NÃO AGUENTAVA MAIS.... Bom agora tenho outros probleminhas...mas acho que você me ajudam aresolver em um minuto... Microsoft VBScript compilation error '800a03fd' Expected 'Case' /TESTE_ASP/TESTE.asp, line 39 Select ------^

CONSEGUI............

Acredito que seja cype.com.br/teste_asp/bancos/formularios.mdb

Assim, pegando pela barra do servidor....está assim o endereço.. \cype1\cype.com.br\teste_asp\bancos\formularios.mdb Meu arquivo conexão <% Dim bco, sql, rs Set bco = server.CreateObject("ADODB.connection") bco.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("\bancos\formularios.mdb")) %> Desculpa a encheção

Errado...o erro eu sei... 'D:\hshome\cype1\cype.com.br\bancos\formularios.mdb' .... tá faltando a tal pasta teste_asp... mas ai está o que eu falei... se coloco no endereço ..duplica se não não aparece....

pro dois...quem souber responder..

Como assim????

Se eu coloco o endereço do bco assim.... teste_asp\bancos\formularios.mdb quando vem o erro vem duplicado a pasta teste_asp quando coloco assim... \bancos\formularios.mdb não vem com a pasta teste_asp em vez usar essa conexão, que é a que está no atual site...será que consigo fazer funcionar com a nomar de Access ESTÁ DANDO ESSE ERRO Microsoft JET Database Engine error '80004005' 'D:\hshome\cype1\cype.com.br\bancos\formularios.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides. /TESTE_ASP/conexao.asp, line