Erro na hora de fazer o insert

[Gilberto Jr 26]

Boa tarde.

 

Eu estou com um problema na hora de fazer a inserção no banco de dados.

 

Esta dando o seguinte erro

Provider error '80004005'
Unspecified error
/clientes/hotelcannes/fotos/enviarfoto.asp, line 57

 

A linha 57 esta com o seguinte código.

set rs = conn.execute("INSERT INTO fotos (foto) VALUES ('DSC00873.JPG')")

Se alguém poder me ajudar ai.

[xanburzum 169]

isso pode ser erro de permissão , mas dÊ uma olhada neste artigo

[Gilberto Jr 26]

Estranho. Nem um select eu estou conseguindo fazer. eu consigo fazer em outra página o select e nesta não esta dando certo. Na página principal http://www.tecnogalli.com.br/clientes/hotelcannes/fotos/fotos.asp?pagina=1 eu faço os selects normais e esta funcionando.

[xanburzum 169]

Cara, certa vez tive um prblema parecido, o code estava correto, o mesmo código funcionava em outra página, outro server normal, mesmo eu copiando e colando o coídgo da página correta ele dava erro, tive que excluir o arquivo e criar outro.

[hargon 64]

Acima dessa linha tem o que? As vezes o erro está em outro lugar.

[Gilberto Jr 26]

Pois é, eu tive que fazer uma gambiarra. Ficou mais ou menos assim.

 

carregar.asp

<%
'inicio upload
function mask_data( obj )
		obj = CDAte( obj )
		dia = Day( obj  )
		mes = Month( obj )
		ano = Year( obj )
	
			if dia < 10 then
				dia = "0" & dia
			end if

			if mes < 10 then
				mes = "0" & mes
			end if
					
		 mask_data = ano &"-"& mes &"-"& dia
end function

dim conn, rs, nome_foto
'dim arraymodulos()
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=186.202.152.38;PORT=3306;DATABASE=tecnogalli2;USER=tecnogalli2;PASSWORD=db211613;OPTION=3;")
	'arquivo que checa se existe o login e a senha do usuario que esta tentando logar

		'Instancia o componente
		SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
		server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores
 
			'Configura o caminho onde arquivo será salvo
			SaFileUp.Path = Server.MapPath("img/hotelcannes/")
                        'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
 
			'Você pode usar também o caminho relativo se preferir
			'SaFileUp.Path = Server.MapPath("./upload/")
 
			'Caso o usuário não indique um arquivo para upload, informa erro.
			If SaFileUp.IsEmpty Then
					response.write ("<script>alert('Escolha uma foto!'); location='enviar.asp?';</script>")
					
				
	
			'caso o campo foto nao esteja vazio entao faz isso
			Else
				'Salva o arquivo no servidor
			SaFileUp.Save
								
				nome_foto = Right(SaFileUp.Form("foto"),Len(SaFileUp.Form("foto"))-InstrRev(SaFileUp.Form("foto"),"\"))
				
				'set rs = conn.execute("insert into fotos(foto)values('"&nome_foto&"')")
				
				response.Redirect("carregar2.asp?foto="&nome_foto&"")

			
END IF			

conn.Close()
'Destruímos o objeto
Set conn = Nothing
%>

e na pagina carregar2.asp fiz o seguinte código.

<%
dim conn, rs, nome_foto
'dim arraymodulos()
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=186.202.152.38;PORT=3306;DATABASE=tecnogalli2;USER=tecnogalli2;PASSWORD=db211613;OPTION=3;")
	'arquivo que checa se existe o login e a senha do usuario que esta tentando logar

	set rs = conn.execute("insert into fotos (foto)values('"&request.QueryString("foto")&"')")
		
conn.Close()
'Destruímos o objeto
Set conn = Nothing

response.write ("<script>alert('Foto cadastrado com sucesso!');location='enviar.asp?';</script>")

%>

Fiz isso e deu certo.

 

Também apaguei o arquivo e refiz e mesmo assim não deu certo.

 

Att;

[xanburzum 169]

as permissões estão corretamentes setadas

[contento 1]

As vezes o erro está em outro lugar.