Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Guardião

HTTP 500.100 - Servidor interno Erro - erro do ASP

Por , em ASP Clássico

Recommended Posts

Guardião    0

Guardião
Postado

salve pessoal, será que vcs poderiam me ajudar com um problema? Seguinte: peguei um tutorial na internet que ensina a fazer um login com senha de nível. Fiz tudo como manda o figurino. Utilizei tecnologia do servidor: VBScript do ASP pelo DreamWeaver. Na hora de testar o login apareceu esse erro:HTTP 500.100 - Servidor interno Erro - erro do ASPInternet Information ServicesTipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xfe0 Thread 0x5ac DBC 0x154cfe4 Jet' do Registro./login/TMPc2lgkssjgq.asp, line 14eis a referida linha: MM_rsUser.ActiveConnection = MM_login_STRINGo código completo segue a seguir:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/login.asp" --><%' *** Validate request to log in to this site.MM_LoginAction = Request.ServerVariables("URL")If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryStringMM_valUsername=CStr(Request.Form("login"))If MM_valUsername <> "" Then MM_fldUserAuthorization="nivel" MM_redirectLoginSuccess="admin.asp" MM_redirectLoginFailed="default.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_login_STRING MM_rsUser.Source = "SELECT id, login" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM login WHERE id='" & Replace(MM_valUsername,"'","''") &"' AND login='" & Replace(Request.Form("senha"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed)End If%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><form name="form1" method="POST" action="<%=MM_LoginAction%>"> <table width="660" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#000000"> <tr> <td>Login</td> <td><input name="login" type="text" id="login"></td> </tr> <tr> <td>Senha</td> <td><input name="senha" type="text" id="senha"></td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="Entrar"></td> </tr> </table></form></body></html>tem como alguém me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não vi onde voce fecha a conexao com o DB...pode ser isso...voce costuma fechar suas conexoes???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tipo assim tiozinhotoda vez que voce cria um objeto e o abre, exemploset MM_rsUser = Server.CreateObject(MM_flag)e depoisMM_rsUser.Openvoce deve fecha-lo e destrui-loMM_rsUser.Closeset MM_rsUser = Nothingisso vale para todos os objetos

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito