ASP com ACCESS, só funciona no micro, no servidor web não

EI Advanced · Janeiro 23, 2009

Bom Dia Pessoal,

Estou com problemas no meu site, ele funciona no micro mas no servidor web não, alguém pode me dar um help? O site é ASP com Banco de Dados.

Pierre

Loko da Web · Janeiro 23, 2009

Bom Dia Pessoal,

Estou com problemas no meu site, ele funciona no micro mas no servidor web não, alguém pode me dar um help? O site é ASP com Banco de Dados.

Pierre

Qual é exatamente o erro ????

EI Advanced · Janeiro 23, 2009

Na hora que vai inserir dados no banco de dados, aparece o seguinte:

O site não pode exibir a página

HTTP 500

Causas prováveis:

O site está em manutenção.

O site tem um erro de programação.

Você pode tentar:

Atualizar a página.

Voltar para a página anterior.

Mais informações

Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web.

Para obter mais informações sobre erros de HTTP, consulte a Ajuda.

No aguardo

Pierre

Loko da Web · Janeiro 23, 2009

Na hora que vai inserir dados no banco de dados, aparece o seguinte:

O site não pode exibir a página

HTTP 500

Causas prováveis:

O site está em manutenção.

O site tem um erro de programação.

Você pode tentar:

Atualizar a página.

Voltar para a página anterior.

Mais informações

Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web.

Para obter mais informações sobre erros de HTTP, consulte a Ajuda.

No aguardo

Pierre

Provavelmente o servidor que o site esta hospedado não tem suporte pra ASP. Verifique isso...

EI Advanced · Janeiro 23, 2009

Tem sim fera, pq eu conecto no banco e vejo os lançamentos, e na hora de gravar ele nao vai, entende. O que pode ser?

Pierre

Ted k' · Janeiro 23, 2009

mande ai a linha de conexão

hokara · Janeiro 23, 2009

Ok! Na sua maquina local no ISS ele funciona e no provedor não.

Você já verificou no seu painel de controle (no servidor que esta hospedado o seu site) se deu a permissão de leitura e gravação na pasta que esta alocado o banco de dados e no próprio banco de dados.

Pode ser isso.

Pois como você esta lendo é padrão para pastas. Mas para gravação só o administrador do site pode liberar, no caso você.

Um abraço

EI Advanced · Janeiro 23, 2009

Segue abaixo a programação:

Quanto a permissão de leitura e gravação eu vi no site, tem duas opções do arquivo segue em anexo imagem

Imagem Postada

<%@ Language=VBScript %>
<%
Option Explicit

Dim StrCon
Dim StrSql
Dim ObjCon
Dim rsFunc
Dim RsCliente
Dim rsEvento 
Dim RsAtividade
Dim i 
Dim mes
Dim ConeString
Dim Conexao
Dim usuarioAtual

usuarioAtual = Session("usuario")

if Session("usuario") = "" then
	 response.redirect "default.asp"		
end if


ConeString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Dados\usuarios.mdb")
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open ConeString

StrSql = "SELECT Func.*, Func.Empresa FROM Func WHERE Func.Empresa ='" & usuarioAtual & "' ORDER BY NomeEmpregado"
set rsFunc = Conexao.Execute(StrSql)			

StrSql = "SELECT Eventos.* FROM Eventos ORDER BY NomeEvento"
set rsEvento = Conexao.Execute(StrSql)

%>


<HTML>
<HEAD>
<style>
TR
{
	COLOR: #ffffff;
	FONT-FAMILY: Verdana, Arial;
	FONT-SIZE: 8pt
}
}
TD.normal
{
	COLOR: #000000;
	FONT-FAMILY: Verdana, Arial;
	FONT-SIZE: 8pt
	
}

TD.nome
{
	FONT-FAMILY: Verdana, Arial;
	FONT-SIZE: 8pt
	COLOR: #ffffff;
	FONT-STYLE: normal;
	FONT-WEIGHT: bolder;
	TEXT-ALIGN: center;  
}
div
{
	COLOR: #ffffff;
	FONT-FAMILY: Verdana, Arial;
	FONT-SIZE: 10pt
}
A
{
	COLOR: #ffffff;
	FONT-FAMILY: Verdana;
	TEXT-DECORATION: none
}

h1
{
	COLOR: #000000;
}

select
{
	COLOR: #000000;
	FONT-FAMILY: Verdana, Arial;
	FONT-SIZE: 8pt

}
input
{
	COLOR: #000000;
	FONT-FAMILY: Verdana, Arial;
	FONT-SIZE: 8pt
}
</style>
</HEAD>

<script language="JavaScript" type="text/javascript"><!--

function verificadados() {
		if (document.frmPrincipal.sltCliente.value.length == 0) {
				alert("O Funcionário é um campo obrigatório !");
				document.frmPrincipal.sltCliente.focus();
				return false;
		}

		if (document.frmPrincipal.txtValor.value.length == 0) {
				alert("O valor é um campo obrigatório !");
				document.frmPrincipal.txtValor.focus();
				return false;
		}
	
	if (document.frmPrincipal.sltEvento.value.length == 0) {
				alert("O Evento é um campo obrigatório !");
				document.frmPrincipal.sltEvento.focus();
				return false;
		}
		
		if (document.frmPrincipal.txtmes.value.length == 0) {
				alert("O mês é um campo obrigatório !");
				document.frmPrincipal.txtmes.focus();
				return false;
		}
		
	   if (document.frmPrincipal.txtdia.value.length == 0) {
				alert("O dia é um campo obrigatório !");
				document.frmPrincipal.txtdia.focus();
				return false;
		}

	 }   
function CriaArray (n)
{
this.length = n
}

function mostradata()
{
	hoje = new Date()

	dia = hoje.getDate()
	dias = hoje.getDay()
	mes = hoje.getMonth()
	ano = hoje.getYear()
		if (dia < 10)
			dia = "0" + dia
		if (ano < 2000)
			ano = "19" + ano
		if (ano = 100)
			ano= 1900 + ano

	NomeDia = new CriaArray(7)
	NomeDia[0] = "Domingo"
	NomeDia[1] = "Segunda-feira"
	NomeDia[2] = "Terça-feira"
	NomeDia[3] = "Quarta-feira"
	NomeDia[4] = "Quinta-feira"
	NomeDia[5] = "Sexta-feira"
	NomeDia[6] = "Sábado"

	NomeMes = new CriaArray(12)
	NomeMes[0] = "Janeiro"
	NomeMes[1] = "Fevereiro"
	NomeMes[2] = "Março"
	NomeMes[3] = "Abril"
	NomeMes[4] = "Maio"
	NomeMes[5] = "Junho"
	NomeMes[6] = "Julho"
	NomeMes[7] = "Agosto"
	NomeMes[8] = "Setembro"
	NomeMes[9] = "Outubro"
	NomeMes[10] = "Novembro"
	NomeMes[11] = "Dezembro"

	document.write ("<font face=verdana size=2>")

	document.write (NomeDia[dias] + ", " + dia + " de " + NomeMes[mes] + " de " + hoje.getYear())
}

function ListaLancamentos()
{
	document.frmPrincipal.action = "lancamento.asp";
	document.frmPrincipal.submit();
}
//--></script>



<BODY >
<TABLE  width=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 align= center>
	<tr>
		<td align=left width=10><IMG SRC="menu_arquivos/LogoPrevPequeno1.gif"><td>
		<td  align=center><h1><font face="Arial" size="5" color="#FF0000"><b>Lançamento</b></font></h1>
		</td>
	</tr>
</table>

<TABLE  BORDER=0 CELLSPACING=0 CELLPADDING=0 width=100%>
	<tr>
		<td class=nome align=left><font color="#000000"><%=Session("usuario")%>, obrigado por utilizar nossos servi<b>ços!</b></font></td> <td align=rigth class=normal><font color="#000000"><script>mostradata()</script> </font> </td>
			</tr>
</TABLE>

<form name=frmPrincipal onsubmit="return verificadados()" action="inseri_lancamento.asp" method="post">
<TABLE WIDTH="45" BORDER=1 bgcolor=#3399FF CELLSPACING=0 CELLPADDING=0>
	<TR><TD width="735">
		<TABLE WIDTH="621" BORDER=0 bgcolor=#3399FF CELLSPACING=0 CELLPADDING=3>
			<tr>
				<td width="72">Funcionário: </td>
				<td width="242">
					<SELECT id=sltCliente name=sltCliente size="1">
						<%do While Not rsFunc.EOF%>
							<OPTION value='<%=rsFunc("NomeEmpregado")%>'><%=rsFunc("NomeEmpregado")%></OPTION>
						<%rsFunc.MoveNext
						loop %>
					</SELECT>
				</td>

				<td width="44">Evento: </td>
				<td width="232">
					<SELECT id=sltEvento name=sltEvento size="1">
						<%do While Not RsEvento.EOF%>
							<OPTION value='<%=RsEvento("NomeEvento")%>'><%=RsEvento("NomeEvento")%></OPTION>
						<%RsEvento.MoveNext
						loop %>
					</SELECT>
				</td>

				<td width="232">
					<p align="left">Valor:
				</td>

				<td width="232">
					<p align="left">
					<input name='txtValor' size=6>
				</td>

			</tr>
		</TABLE>
	</TD></TR>

	<TR><TD width="735">
		<TABLE WIDTH="719" BORDER=0 bgcolor=#3399FF CELLSPACING=0 CELLPADDING=3>

			<tr>
				<td nowrap width="100">Dia: 
					<select name=txtdia size="1">
						<%for i = 1 to 31%>
						<option value="<%=i%>"  <%if cint(i) = cint(day(date)) then Response.Write("selected")end if%>><%=i%></option>
						<%next%>
					</select>
				<td nowrap width="124">Mês: 
				
					<select name=txtmes  size="1">
						<%for i = 1 to 12%>
						<option value="<%=i%>"  <%if cint(i) = cint(month(date)) then Response.Write("selected")end if%>><%=i%></option>
						<%next%>
					</select>
					
				</td>

				<td width="94">Ano:<select name=txtAno onchange="java script:ListaLancamentos()" size="1">

						<option value="cint(year(date))"><%=year(date)%></option>
				
					</select>
					
				</td>

				<td width="69">Descrição</td>
				<td width="255"><input name='txtDescricao' size=39></td>
				<!--<td><input type=button name=OK value=OK ></td>-->
				<td width="48"><input type="submit" value="OK" name="submit"></td>
			</tr>
		</TABLE>
	</TD></TR>
</table>
</form>



<form name=frmLancamentos action="?action=del" method="POST">

<FONT face=Verdana size=2><b>Mês/Ano:    <%=month(date) & "/" & year(date) %></font>

<TABLE WIDTH="719" BORDER=1 bgcolor=#2e8b57 CELLSPACING=0 CELLPADDING=0>
	<TR>
	<TD class="nome" width="339">Funcionário</TD>
	<TD class="nome" width="134">Evento</TD>
	<TD class="nome" width="1">Valor</TD>
	<TD class="nome" width="292">Descrição</TD>
	</tr>
	
<!--#include file="conexao.asp"-->
	<%
	dim RS
	Dim sql
	Dim MesAtual
	Set RS = Server.CreateObject("ADODB.RecordSet")
	Call AbrirDB
	MesAtual = month(date)
	'MesAtual = request.Form("txtmes")
	sql = "SELECT * FROM Apontamento WHERE Empresa='" & usuarioAtual & "' and Mes='" & MesAtual & "'"
	RS.open sql,ConnString,3,3
	%>
	<% Dim func, evento, QtdeVal, desc, IDApont %>
	<% For i = 1 to RS.RecordCount %>
	<%	
	IDApont = RS("IDApontamento")
	func = RS("NomeFuncionario")
	evento = RS("DescEvento")
	QtdeVal = RS("ValQtdeHoras")
	desc = RS("DescGeral")
	%>
	<tr>
	  <td width="339"><font face="Arial" size="2" color="#000000"><a href=deleta_lancamento.asp?IDApont=<%=IDApont %>&acao=del><%=func %><name="Func"></a></font></td>
	  <td width="179"><%=evento %><name="Evento"></td>
	  <td width="100"><%=QtdeVal %><name="Val"></td>
	  <td width="242"><%=desc %><name="Desc"></td>
	</tr>

<% 
RS.MoveNext
if RS.eof then Exit For
Next
%>	
	
</table >

</b>
</form>
<p><font face="Arial">* Para excluir um lançamento basta clicar no nome do
funcionário!</font></p>
<p align="center"><a href="apontamento.asp"><font color="#000000" face="Arial">Menu
Cliente</font></a></p>
</BODY>
</HTML>

filipescoob · Janeiro 23, 2009

Pelo que vi no seu print seu banco não tem permissão para gravar, nesta mesma tela da permissão de Leitura e Escrita para o DB.

e teste novamente.

abraços

hokara · Janeiro 23, 2009

Pois é meu amigo.

Como eu disse.

Você deve selecionar para ser leitura e gravação.

Seu problema esta resolvido.

Pela cara do painel esta na locaweb.

EI Advanced · Janeiro 23, 2009

Ai que tá, no azul ele mostra os lancamentos mas não grava e no vermelho ele não mostra os lançamentos...

O que será?

filipescoob · Janeiro 23, 2009

Meu conselho é você entrar em contato com o Suporte de Sua hospedagem e pedir ajuda para os caras. Pois o problema é no seu painel de hospedagem e nada melhor que os caras que teoricamente sabem resolve-lo.

abraços

hokara · Janeiro 23, 2009

Então amigo, você tem que clicar no botão (leitura e escrita) para ele liberar para que sejam gravadas as suas informações no seu banco

xanburzum · Janeiro 23, 2009

Sugiro que entre em contato com seu host, para verifcar as permissões, bem como verificar se a pasta onde se encontro o arquivo esta correta, geralmente existe um Sistema de Ajuda (Help), sobre esse tipo de erros comuns e fácil de resolver.com exemplo para realizar uma conexão sem utilizar uma DSN, Para conectar ao banco de dados desenvolvido no MS Access, MS SQL Server,Oracle e mais

EI Advanced · Janeiro 24, 2009

Pessoal, Entrei em contato com a locaweb e me disseram que o erro está na minha programação, o que será que está acontecendo?

Quando acesso a tela abaixo, da o seguinte erro:

Microsoft JET Database Engine error '80004005'

Could not use ''; file already in use.

/apont/conexao.asp, line 14

lancamento.asp

Pagina da conexao mensionada no erro:

conexao.asp

Para logar:

Usuario: Pierre

Senha: 1

Por favor me ajudem

No aguardo

Pierre

hargon · Janeiro 24, 2009

Esse servidor tem uma pasta padrão para você armazenar o banco de dados Access. O nome dessa pasta é DADOS.

Essa pasta fica no mesmo nível da pasta WEB.

Pelo código postado:

ConeString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("Dados\usuarios.mdb")

Você está acessando como se a pasta dados estivesse dentro da pasta Web. Caso esteja, envie o banco dados para a pasta DADOS (que está fora da pasta WEB) e altere a linha de conexão para:

ConeString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("..\Dados\usuarios.mdb")

E se sobre a permissão, o ideal é você da permissão na pasta inteira, não só no arquivo. Tem que ficar vermelho e não azul.

Arquivado

ASP com ACCESS, só funciona no micro, no servidor web não

Recommended Posts

EI Advanced 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

EI Advanced 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

EI Advanced 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

hokara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

EI Advanced 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hokara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

EI Advanced 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

hokara 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

EI Advanced 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante