Erro de script

[Henrique Muniz 0]

unsure.gif Dae Gurizada...to com um problemao aqui e nao consigo resver.. so novato em asp.. se puder me ajudar... vo coloca o seguinte codigo a abaixo so que quando clico no botao ele da erro na linha 7 ta em negrito a linha.. se puderem me ajudar.. abrs.. wacko.gif

 

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

Erro não especificado

/conexao.asp, line 7

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1)

 

Página:

POST 28 bytes to /incluir_ctr.asp

 

POST Data:

ctr=1234&B1=INICIAR+PESQUISA

meu codigo e esse:

 

<%
Sub abreconexao


Constring="Provider=microsoft.jet.oledb.4.0;data source="& server.mappath("pesquisa.mdb")
Set conexao=server.createobject("ADODB.CONNECTION")
conexao.open constring

End Sub


Sub fechaconexao

conexao.close
Set conexao=nothing

End Sub

%>

[hargon 64]

Posta a linha 7

[Henrique Muniz 0]

Posta a linha 7

 

<%

Sub abreconexao

 

 

Constring="Provider=microsoft.jet.oledb.4.0;data source="& server.mappath("pesquisa.mdb")

Set conexao=server.createobject("ADODB.CONNECTION")

conexao.open constring <- Linha 7

 

End Sub

 

 

Sub fechaconexao

 

conexao.close

Set conexao=nothing

 

End Sub

 

%>

[hargon 64]

Troca o Provider e posta o resultado.

 

http://www.connectionstrings.com/?carrier=access

[Henrique Muniz 0]

Alterei ai coloquei esse:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;Jet OLEDB:System Database=system.mdw;

 

alterei onome e claro e ele deu erro agora na linha 21..so qe na linha 21 nao tem nada(:s) coloquei o certo?

 

Tipo de erro:

Active Server Pages, ASP 0127 (0x80004005)

O comentário HTML ou a inclusão do lado do servidor não possui a marca de término (-->).

/conexao.asp, line 21

 

conteudo da linha 21:

<%
 Sub abreconexao
 

 Constring=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=pesquisa.mdb:System Database=system.mdw;

 Set conexao=server.createobject("ADODB.CONNECTION")
 conexao.open constring  
 
 End Sub


 Sub fechaconexao

  conexao.close
  Set conexao=nothing

End Sub

%>

[hargon 64]

Você não colocou entre aspas.

Constring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=pesquisa.mdb:System Database=system.mdw;"

[Henrique Muniz 0]

Não sei o que eu fiz mas tipo agora quand eu abro a index coloco ocodigo tudo e clico no botao ai aparece o codigo fonte do outro arquivo em asp, no lugar de abrir a pagina abre o codigo fonte dela. que m***** que eu fiz???/

 

codigo fonte:

 

<% 'incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
   'no BD através de SQL Select if not rs.eof then
   'redireciono para incluir_form.asp?msgeof=1 else
   'incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1
   'e lá receberá um mensagem de sucesso
   
   Option explicit
   'declaro as var
   dim varctr, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert_ctr, SQLinsert_ctr
   'recupero todos os dados
   varctr=(request.form("ctr"))
   
   'crio a conexao
   %>
   <!--#include file="conexao.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT ctr FROM t_ctr WHERE ctr='"&varctr&""'
   rsselect.open SQLselect,conexao,1
   if not rsselect.eof then
   		response.redirect("erro1.htm")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert_ctr=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert_ctr="INSERT INTO t_ctr(ctr) values('"&varctr&""')"
		rsinsert_ctr.open SQLinsert_ctr,conexao
		response.redirect("perguntas.htm")
		set rsinsert_ctr=nothing
	end if 
	call fechaconexao %>

Ps. se eu abro o arquivo pelo servidor, digitando la na barra de endereço http://localhost/index.htm ele abre tudo ai coloco o codigo e quando clico no botao ele da aquele erro da linha 21, mas se eu vou la na pasta do servidor onde ta salvo os arquivos e clico nele, ele abre e aparece o codigo onte dai...

 

me ajuda ai cara... preciso fazer esse negocio funnfao mais rapido possivel...porfavor.. me da uma dicas ai...

[hargon 64]

Se você vai la na pasta e clica? Se for isso mesmo, está certo, você só executa as páginas através de endereço http://.

 

Posta a linha 21.

[Henrique Muniz 0]

Não entendi o que você disse.... na linha 21 não tem nada, so o %>, se eu vo la na pasta do arquivo e abro ele ai coloco o codigo clico no botao tudo certinho ai ele nao abre a pagina ele abre o codigo fonte da pagina o qual esta ali em cima. e se eu entro pelo endereço do servidor http://localhost/index.html ele da erro, na linha 21.

[hargon 64]

Foi isso que eu disse... arquivos.asp você só executa atravês de HTTP. Se você tentar executar dando dois cliques, o correto é mostrar o código.

 

Agora o erro já é outra coisa.

 

Provavelmente é na linha abaixo:

SQLinsert_ctr="INSERT INTO t_ctr(ctr) values('"&varctr&""')"

 

O correto é:

SQLinsert_ctr="INSERT INTO t_ctr(ctr) values('"&varctr&"')"

[Henrique Muniz 0]

alterei e agora ta dando erro no arquivo aquele la de cima...

 

<%

Sub abreconexao

 

 

Constring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=pesquisa.mdb:System Database=system.mdw;"

 

Dim conexao

Set conexao = server.createobject("ADODB.CONNECTION")

conexao.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source="& server.mappath("pesquisa.mdb")

conexao.Open constring

 

End Sub

 

 

Sub fechaconexao

 

conexao.close

Set conexao=nothing

 

End Sub

 

%>

 

erro na linha 10...

 

Pessoal me ajuda ai.. por favor... to numa ruim aqui, preciso fazer isso funcionar o mais rapido possivel..

[hargon 64]

Você possui duas string de conexão. Utilize apenas uma.

 

Poste sempre a linha com o erro e a mensagem de erro, para facilitar o entendimento da sua dúvida.

[Henrique Muniz 0]

Ops.. desculpa ai.. pensei q com o codigo todo era mais facil.. foi mal..

mas ta dando outro erro agora..

 

Erro:

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/incluir_ctr.asp, line 22

 

Documento:

SQLselect="SELECT ctr FROM t_ctr WHERE ctr='"&varctr&"'"

rsselect.open SQLselect,conexao,1 (Linha 22)

if not rsselect.eof then

response.redirect("erro1.htm")

set rsselect=nothing

[hargon 64]

Tenta assim:

rsselect.open SQLselect, conexao

[Henrique Muniz 0]

Cara nao sei o que tem esse codigo mas quando nao e um arquivo com erro e outro.. agora ta dando erro naquele arquiv denovo o anterior a esse.

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

Erro não especificado

/conexao.asp, line 10

 

codigo fonte:

Dim conexao

Set conexao = server.createobject("ADODB.CONNECTION")

conexao.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source="& server.mappath("pesquisa.mdb")

conexao.Open (linha 10)

[hargon 64]

Altera essa linha

conexao.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source="& server.mappath("pesquisa.mdb")

Para

conexao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pesquisa.mdb")

[Henrique Muniz 0]

mesmo erro...

linha 10.

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

Erro não especificado

/conexao.asp, line 10

 

Codigo

 

Set conexao = server.createobject("ADODB.CONNECTION")

conexao.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pesquisa.mdb")

conexao.Open constring (Linha 10)

[hargon 64]

O banco de dados está na mesma pasta do arquivo.asp que está sendo executado?

[Henrique Muniz 0]

sim esta salvo...

 

esta tudo na mesma pasta..

[hargon 64]

Renomeia o banco de dados e veja se funciona.

 

Se não funcionar, dê permissão na pasta do banco de dados.