Alteração de Cadastro

[majaque 0]

Pessoal,

 

Bom dia

Gostaria que alguem me ajudasse a descobrir o porque que o codigo abaixo naum esta fazendo a alteração no bco de dados!!!!

 

Obrigado

 

<%Option ExplicitResponse.Expires = 0Dim objConn, objRs, strQuery, strConnection,strconn,sourceDSN,Tipo_Fornecedor,Nome_Fornecedor,Endereco,Bairro,CEP,Cidade, Telefone,Telefone2,Email,Celular,Fax,Fornecimento		Tipo_Fornecedor = Request.Form("Tipo_Fornecedor")	Nome_Fornecedor = Request.Form("Nome_Fornecedor")	Endereco = Request.Form("Endereco")	Bairro = Request.Form("Bairro")	CEP= Request.Form("CEP")	Cidade= Request.Form("Cidade")	Telefone = Request.Form("Telefone")	Telefone2= Request.Form("Telefone2")	Email= Request.Form("Email")	Celular = Request.Form("Celular")	Fax= Request.Form("Fax")	Fornecimento= Request.Form("Fornecimento")	'Se o campo Observação for vazio ele continuará vazio, não é um campo obrigatório		if(Telefone2="")then				Telefone2=" "	end if 		if(Email="")then				Email=" "	end if 			if(Fax="")then				Fax=" "	end if 			if(Celular="")then				Celular=" "	end if 		if(Fornecimento="")then				Fornecimento=" "	end if 	   	Set objConn =  Server.CreateObject("ADODB.Connection")			strconn="DRIVER={Microsoft Access Driver (*.mdb)};"	strconn=sourceDSN & "DBQ=" & server.mappath("Lab_xp.mdb")	  strconn=sourceDSN & "Password=;"	strconn.Open 			strQuery = "UPDATE ListaFornecedores_TabelaDados SET				Nome_Fornecedor='"&Nome_Fornecedor',Endereco='"&Endereço',Bairro='"&Bairro',CEP='"&Cep',Cidade='"&Cidade',	   Telefone='"&Telefone',Telefone2='"&Telefone2',Email='"&Email',Celular='"&Celular',	   Fax='"&Fax',Fornecimento='"&Fornecimento' where Nome_Fornecedor='"&Nome_Fornecedor' " 		On error Resume Next		Set ObjRs = objConn.Execute(strQuery)				strconn.close		Set objRs = Nothing	Set objConn = Nothing 	if err = 0 Then		response.redirect "Sucesso_Alteração.asp"	  end if%>

[designmix 0]

Tira o On error Resume Next e ve se da erro . ou tenta imprimir Nome_Fornecedor response.write Nome_Fornecedorresponse.end ve se esta pegando os dados

[Mário Monteiro 179]

basicamente tira o tratamente de erros e mostra o erro que esta acontecendo que fica mais facil de atacar a causa