Ir para conteúdo

POWERED BY:

Arquivado

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

rem

erro na página internet

Por , em ASP Clássico

Recommended Posts

hargon    64

hargon
Postado

esse erro que deu agora, ta falando que seu banco de dados esta aberto em modo exclusivo...

 

Quando você tentou acessar o banco de dados, você estava com ele aberto no servidor?

 

O que tem na linha 35 do arquivo envio1.asp ?

 

Coloca o codigo dele todo aqui...

Compartilhar este post

Link para o post
Compartilhar em outros sites

rem    0

rem
Postado

esse erro que deu agora, ta falando que seu banco de dados esta aberto em modo exclusivo...

 

Quando você tentou acessar o banco de dados, você estava com ele aberto no servidor?

 

O que tem na linha 35 do arquivo envio1.asp ?

 

Coloca o codigo dele todo aqui...

<{POST_SNAPBACK}>

O arquivo envio1.asp

<html>

 

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta name="Author" content="Leandro Alves Fonseca">

<meta name="GENERATOR" content="Microsoft FrontPage 4.0">

<title>Pagina de Inclusao do Chamado</title>

<script LANGUAGE="VBScript">

</script>

 

<meta name="Microsoft Theme" content="none, default">

</head>

 

<body leftmargin="30" background="file:///D:/servicos/infraestrutura/Formosa/fundo.gif" bgproperties="fixed">

 

<p><img src="file:///D:/servicos/infraestrutura/Formosa/barra_foto3.jpg" width="117" height="43"><strong><font face="Verdana"><small>

   Infra-Estrutura</small> <small><small><font color="#008080">-------------------------------

Solicitação de Serviço</font></small></small></font></strong></p>

<font size="3"><%

Dim IPVar

%>

<% login = Lcase(Request.ServerVariables("LOGON_USER")) %>

<% IPVar=Request.ServerVariables("REMOTE_ADDR") %>

<% syshora=time() %>

<% sysdata=date() %>

<% reqcidade=("SP") %>

<%

Reqnome=Request.QueryString("nome")

ramal=("ramal")

Reqservico=request.querystring("servico")

Reqsala=request.querystring("sala")

%>

<%

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "BDFuncionarios"

sql = "UPDATE usuarios SET ramal = '"& request ("ramal") &"' where usuario = '"& Reqnome &"' "

Set RS = conexao.Execute(sql)

set conexao = nothing

%>

</font><font size="2"><%

Set DelCoo = Server.CreateObject("ADODB.Connection")

DelCoo.Open "infraestrutura"

sql = "SELECT codusuario, usuario, area, ramal, ccusto FROM usuarios WHERE usuario = '"& Reqnome &"' "

Set RRS=DelCoo.Execute(sql)

%>

<%

Set InfraConn = Server.CreateObject("ADODB.Connection")

InfraConn.Open "infraestrutura"

 

MT = "SELECT numero FROM numocor "

Set FFF=InfraConn.execute(MT)

Num = FFF("numero") + 1

 

Sql = "UPDATE numocor set numero = "& num

Set RT = InfraConn.execute(sql)

 

sql = "INSERT INTO solicitacao (numero, login, datainc, horainc, cidade, codusuario, ccusto, servico, sala, IP) VALUES ('"& num &"','"& login &"','"& sysdata &"','"& syshora &"','"& reqcidade &"','"& RRS("codusuario") &"','"& RRS("ccusto") &"','"& Reqservico &"','"& Reqsala &"','"& IPVar &"')"

Set RS=InfraConn.Execute(sql)

 

MX = "SELECT numero FROM solicitacao WHERE numero = "& num &" "

Set QR=InfraConn.Execute(MX)

%>

</font>

 

<p align="center"><strong><font size="2" face="Verdana"><br>

Sua solicitação foi enviada à Infra-Estrutura<br>

</font><font face="Verdana" size="1"><br>

</font><font size="2" face="Verdana">Número da solicitação:</font></strong><font

size="2"> </font><font color="#0000FF" face="Verdana" size="2"><big><strong><% = QR("numero") %></strong></big></font><small><font

size="2"><br>

</font><b><font face="Verdana" color="#FF0000"><strong>Anote o número da sua

solicitação, para consultas posteriores.<p align="center">

<%

syshora=time()

 

mudou=0

if syshora < #08:00:00# then

mudou=1

end if

if syshora > #18:00:00# then

mudou=1

end if

 

if mudou = 1 then

 

response.write "A Infra Estrutura funciona nos dias úteis das 08:00 horas às 18:00 horas. <br>Seu chamado será atendido no próximo dia útil."

end if

%>

</strong></font><font face="Verdana"> </font></b></small></p>

 

<table border="1" width="97%" cellspacing="0" cellpadding="0">

<tr>

<td width="28%"><font size="2" face="Verdana">Nome:</font></td>

<td width="72%"><% =Reqnome %>

</td>

</tr>

<tr>

<td width="28%"><font size="2" face="Verdana">Área: </font></td>

<td width="72%"><% =RRS("area") %>

</td>

</tr>

<tr>

<td width="28%"><font size="2" face="Verdana">Centro de Custo: </font></td>

<td width="72%"><% =RRS("ccusto") %>

</td>

</tr>

<tr>

<td width="28%"><small><font face="Verdana">Andar e Setor:</font></small></td>

<td width="72%"><% =Reqsala %>

</td>

</tr>

<tr>

<td width="28%"><font size="2" face="Verdana">Ordem de Serviço: </font></td>

<td width="72%"><% =Reqservico %>

</td>

</tr>

</table>

<font face="Verdana"><b>

 

<h2 align="center"><small><small><font face="Verdana"><%

InfraConn.close

delcoo.close

%> </font></small></small></h2>

 

<p><br>

<a href="infrabh.htm"><img src="../Formosa/back2.gif" border="0"></a></p>

</b></font>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

destaca a linha...opu separa do codigo o trecho indicando qual é ela

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

A linha é essa...

conexao.Open "BDFuncionarios"

 

Mas até agora eu não consegui entender pq o banco de dados está sendo aberto dessa forma....

 

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "BDFuncionarios"

 

O que é "BDFuncionarios" ??? :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

deve ser uma variavelverifica se tem em outra parte do codigo ou em um include

Compartilhar este post

Link para o post
Compartilhar em outros sites

rem    0

rem
Postado

A linha é essa...

conexao.Open "BDFuncionarios"

 

Mas até agora eu não consegui entender pq o banco de dados está sendo aberto dessa forma....

 

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "BDFuncionarios"

 

O que é "BDFuncionarios" ??? :wacko:

<{POST_SNAPBACK}>

Eu já mudei o nome desse banco p/ g_mudancas, ele abriu dessa forma porque eu copiei essa página de uma outra que já estava pronta.

Compartilhar este post

Link para o post
Compartilhar em outros sites

rem    0

rem
Postado

Alguém me ajude por favor, estou deseperada,não seimais o que faço, por favor gente, helpppppppppp!!!!!!!!!!!!!!!!!!! :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

ta muito estranho cara..você tem o caminho completo do seu banco de dados?dá uma olhada se sua conexao está sendo aberta corretamente.o erro pode tar aí..

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Tbm acho que deve ser algum problema com a conexão.

 

Com quantos banco de dados você esta trabalhando?

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