Wesley Barreto
-
Total de itens
5 -
Registro em
-
Última visita
Sobre Wesley Barreto
Wesley Barreto's Achievements
0
Reputação
-
Vou verificar, mais o problema é que em outras páginas eu adiciono dados no bd... de qualquer forma, muito obrigado!!!!!
-
Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only. /login/confirmacao.asp, line 47 Segue meu código fonte: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!-- #include file="ADOVBS.inc" --> <% 'Conexão com o banco de dados conexao="DBQ=" & Server.MapPath("senha.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao login=(Request.QueryString("login")) senha=(Request.QueryString("senha")) set acesso=DB.Execute("SELECT * FROM prognosticos WHERE login='"&login&"'") ' Caso os dados não estiverem corretos o usuário é enviado para a index.asp if acesso.eof then Session("login")=login end if dim DB 'Aqui você pode inserir mais dados, siga o exemplo abaixo Session("f2jogo1e") = Request.Form("f2jogo1e") Session("f2jogo1d") = Request.Form("f2jogo1d") Session("f2jogo2e") = Request.Form("f2jogo2e") Session("f2jogo2d") = Request.Form("f2jogo2d") Session("f2jogo3e") = Request.Form("f2jogo3e") Session("f2jogo3d") = Request.Form("f2jogo3d") Session("f2jogo4e") = Request.Form("f2jogo4e") Session("f2jogo4d") = Request.Form("f2jogo4d") Sub ProcessaPagina Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.open "prognosticos", DB, adOpenDynamic, adlockoptimistic, adcmdtable rs.Addnew 'Aqui você pode inserir mais dados, siga o exemplo abaixo rs.fields("login") = Session("login") rs.fields("f2jogo1e") = Session("f2jogo1e") rs.fields("f2jogo1d") = Session("f2jogo1d") rs.fields("f2jogo2e") = Session("f2jogo2e") rs.fields("f2jogo2d") = Session("f2jogo2d") rs.fields("f2jogo3e") = Session("f2jogo3e") rs.fields("f2jogo3d") = Session("f2jogo3d") rs.fields("f2jogo4e") = Session("f2jogo4e") rs.fields("f2jogo4d") = Session("f2jogo4d") rs.update <= está nesta linha o erro end sub processapagina %> <html> <title> Form </title> <body> <h4>Dados enviados com sucesso!!! Aguarde o Resultado e Boa Sorte!!!</h4> </body> </html> Obrigado!
-
Foi o que imaginei, de qualquer forma muito obrigado!!!
-
O pior que não dá erro algum, contactei o provedor mais ainda não obtive resposta. É como se a página não existisse.
-
Boa Tarde Pessoal!!! Estou começando a estudar ASP há pouco tempo. Montei uma página para login com um bd em access, a página onde eu indico o login e senha abre tranquilamente, mas a página onde faria a verificação e encaminharia para uma outra não está abrindo. Testando offline ele funciona normalmente, mas, quando coloquei no ar, não abre mesmo. Se possível me indiquem onde estou errando na minha fonte. Segue abaixo: Pagína onde faço o login => nome => index.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!-- #include file="ADOVBS.inc" --> <html> <head> <title>Acesso Restrito</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000" > <p> </p> <form method="get" action="login.asp"> <div align="center"> <table width="44%" border="0" cellspacing="0" cellpadding="0" height="332"> <tr> <td> </td> </tr> <tr> <td background="fundo2.gif" height="306"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="5" color="#000000"><b><font face="Verdana" size="2"><br> <img src="chave2.gif" width="35" height="34"><br> :: Acesso Restrito::</font></b><font face="Verdana" size="2"><br> <font size="1" color="#333333"> IP LOGADO</font><font color="#333333"><br> <b><font face="Verdana" size="2"> <% Response.Write request.servervariableS("REMOTE_ADDR") %> </font></b> <br> Tentativa de acesso ás:<b><font face="Verdana" size="2"> <% Response.Write(time) %> </font></b></font></font></font><br> </div> <table width="215" border="0" cellspacing="0" cellpadding="0" align="center" height="101"> <tr> <td width="44%" height="27"> <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Login:</font></div> </td> <td width="56%" height="27"> <div align="left"> <input type="text" name="login" size="20" maxlength="20"> </div> </td> </tr> <tr> <td width="44%" height="66" valign="top" rowspan="2"> <div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000000">Senha:</font></div> </td> <td width="28%" height="25" valign="top"> <div align="left"> <input type="password" name="senha" size="11" maxlength="15"> <br> </div> </td> </tr> <tr> <td width="28%" height="2" valign="top"> <div align="right"> <input type="image" border="0" name="imageField" src="x.gif" width="30" height="32"> </div> </td> </tr> </table> <div align="center"><br> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FF0000"> <br> </font></div> </td> </tr> </table> <br> p; </div> <p></p> </form> </body> </html> Página onde faz a verificação e redireciona => nome = login.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!-- #include file="ADOVBS.inc" --> <% 'Conexão com o banco de dados conexao="DBQ="&Server.MapPath("senha.mdb");Driver={Microsoft Access Driver (*.mdb)}" Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao login=(Request.QueryString("login")) senha=(Request.QueryString("senha")) set acesso=DB.Execute("SELECT * FROM acesso WHERE login='"&login&"' AND senha='"&senha&"' ") ' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm if acesso.eof then response.redirect("negado.asp") else Session("login")=login 'Session("usuario")= acesso("usuario") 'Session("Email")= acesso("Email") Session("login")= acesso("login") Session("nome")= acesso("nome") 'você pode colocar quais sessions você quiser aqui que o restante do site vai ler. response.redirect("acesso.asp") end if DB.close %> Por favor indiquem onde estou errando. Grato, Wesley Barreto