Ir para conteúdo

POWERED BY:

Arquivado

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

Eduardo Villa

[Resolvido] Será que é permissão?

Por , em ASP Clássico

Recommended Posts

Eduardo Villa    2

Eduardo Villa
Postado

E ai galera, quem é vivo sempre aparece... kkkk

Bom estou tendo um problema com um sistema de login....

 

ERRO:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/painel/index.asp, line 0

 

 

index.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connection.asp" -->
<!--#include file="../includes/common/KT_common.asp" -->
<!--#include file="../includes/tNG/tNG.inc.asp" -->
<%
'Make a transaction dispatcher instance
Dim tNGs: Set tNGs = new tNG_dispatcher
tNGs.Init "../"
%>
<%
' Start trigger
Dim formValidation: Set formValidation = new tNG_FormValidation
formValidation.Init
formValidation.addField "kt_login_user", true, "text", "", "", "", ""
formValidation.addField "kt_login_password", true, "text", "", "", "", ""
tNGs.prepareValidation formValidation
' End trigger
%>
<%
'Make a login transaction instance
Dim loginTransaction: Set loginTransaction = new tNG_login
loginTransaction.init MM_connection_STRING
tNGs.addTransaction loginTransaction
'Register triggers
loginTransaction.registerTrigger Array("STARTER", "Trigger_Default_Starter", 1, "POST", "kt_login1")
loginTransaction.registerTrigger Array("BEFORE", "Trigger_Default_FormValidation", 10, formValidation)
loginTransaction.registerTrigger Array("END", "Trigger_Default_Redirect", 99, "{kt_login_redirect}")
' Add columns
loginTransaction.addColumn "kt_login_user", "STRING_TYPE", "POST", "kt_login_user", ""
loginTransaction.addColumn "kt_login_password", "STRING_TYPE", "POST", "kt_login_password", ""
loginTransaction.addColumn "kt_login_rememberme", "CHECKBOX_1_0_TYPE", "POST", "kt_login_rememberme", "0"
'End of login transaction instance
%>
<%
'Execute all the registered transactions
tNGs.executeTransactions
%>
<%
'Get the transaction recordset
Dim rscustom
Dim rscustom_numRows

Set rscustom = tNGs.getRecordset("custom")
rscustom_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>..:: Área Restrita ao Administrador ::..</title>
<style type="text/css">
<!--
#principal {
	position:absolute;
	left:0px;
	top:0px;
	width:100%;
	z-index:1;
}
#login {
	position:absolute;
	left:561px;
	top:304px;
	width:425px;
	height:278px;
	z-index:2;
}
.style1 {color: #FFFFFF}
-->
</style>
<script src="../SpryAssets/SpryTabbedPanels.js" type="text/javascript"></script>
<link href="../SpryAssets/SpryTabbedPanels.css" rel="stylesheet" type="text/css" />
<link href="../includes/skins/mxkollection3.css" rel="stylesheet" type="text/css" media="all" />
<script src="../includes/common/js/base.js" type="text/javascript"></script>
<script src="../includes/common/js/utility.js" type="text/javascript"></script>
<script src="../includes/skins/style.js" type="text/javascript"></script>
<% Response.Write tNGs.displayValidationRules()%>
</head>

<body>
<div id="principal"><img src="imagens/tela_principal.jpg" width="1000" height="617" /></div>
<div id="login">
  <%
	Response.Write tNGs.getLoginMsg()
%>
  <%
	Response.Write tNGs.getErrorMsg()
%>
  <form method="post" id="form1" class="KT_tngformerror" action="<%= KT_escapeAttribute(KT_getFullUri()) %>">
	<table cellpadding="2" cellspacing="0" class="KT_tngtable">
	  <tr>
		<td class="KT_th"><label for="kt_login_user">Username:</label></td>
		<td><input type="text" name="kt_login_user" id="kt_login_user" value="<%=(KT_escapeAttribute(rscustom.Fields.Item("kt_login_user").Value))%>" size="32" />
			<%=(tNGs.displayFieldHint("kt_login_user"))%> <%=(tNGs.displayFieldError("custom", "kt_login_user"))%> </td>
	  </tr>
	  <tr>
		<td class="KT_th"><label for="kt_login_password">Password:</label></td>
		<td><input type="password" name="kt_login_password" id="kt_login_password" value="" size="32" />
			<%=(tNGs.displayFieldHint("kt_login_password"))%> <%=(tNGs.displayFieldError("custom", "kt_login_password"))%> </td>
	  </tr>
	  <tr>
		<td class="KT_th"><label for="kt_login_rememberme">Remember me:</label></td>
		<td><input  <%If (CStr((KT_escapeAttribute(rscustom.Fields.Item("kt_login_rememberme").Value))) = CStr("1")) Then Response.Write("checked") : Response.Write("")%> type="checkbox" name="kt_login_rememberme" id="kt_login_rememberme" value="1" />
			<%=(tNGs.displayFieldError("custom", "kt_login_rememberme"))%> </td>
	  </tr>
	  <tr class="KT_buttons">
		<td colspan="2"><input type="submit" name="kt_login1" id="kt_login1" value="Login" />
		</td>
	  </tr>
	</table>
	<a href="forgot_password.asp">Forgot your password?</a>
  </form>
  <p> </p>
</div>
</body>
</html>

Conexão (código)

<%
' FileName="*.htm"
' Type="ADO" 
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_connection_STRING
MM_connection_STRING = "[b]dsn=NOME_DA_CONEXÃO;[/b]"
%>

Obrigado pela Ajuda

Aguardo Resposta

Dudesigner

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você criou a DSN?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Eduardo Villa    2

Eduardo Villa
Postado

criei...

esta puxando do banco de dados normalmente, so na hora do login que detectei este erro...

 

Aguardo Resposta

Obrigado pela Atenção

Dudesigner

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jonas Nogueira    0

Jonas Nogueira
Postado

Fala aí!! beleza?

 

Não tenho certeza... mas parece que o nome da DSN que você está usando na aplicação não é o mesmo que você criou no ODBC... tenta checar isso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Qual foi a solução?

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