Update BD Access

[MAPSantos 0]

Boas ppl,

 

tou com um problema e não vejo forma de o resolver. Tenho uma página em ASP com uma BD em Access.

Eu insiro registos e edito sem problema no Firefox, mas no IE só cria não edita, alguem me pode ajudar ?? :|

 

Não dá erro, nem mensagem de Registo actualizado, apenas não faz nada e passa para a pagina seguinte :|

 

Deixo aqui o código que usei para update da BD:

<%If Request.querystring("mode") = "edit" thenIf Request.Form("txtUpdate") <> "" Then		strid = Clng(Request.querystring("id"))		stridform = Replace(Request.Form("id"), "", "")		strnome = Replace(Request.Form("nome"), "'", "''")		strnum_cl = Replace(Request.Form("num_cl"), "'", "''")		strnum_servico = Replace(Request.Form("num_servico"), "'", "''")		strcl_contacto1 = Replace(Request.Form("cl_contacto1"), "'", "''")		strcl_contacto2 = Replace(Request.Form("cl_contacto2"), "'", "''")		strtester = Replace(Request.Form("tester"), "'", "''")		strnum_act = Replace(Request.Form("num_act"), "'", "''")		strdata_inicio_processo = Replace(Request.Form("data_inicio_processo"), "'", "''")		strnum_encomenda = Replace(Request.Form("num_encomenda"), "'", "''")		strdata_insercao_siebel = Replace(Request.Form("data_insercao_siebel"), "'", "''")		strestado_encomenda = Replace(Request.Form("estado_encomenda"), "'", "''")		strobs_siebel = Replace(Request.Form("obs_siebel"), "'", "''")		strestado_siebel = Replace(Request.Form("estado_siebel"), "'", "''")		strdata_estado_siebel = Replace(Request.Form("data_estado_siebel"), "'", "''")		strsft = Replace(Request.Form("sft"), "'", "''")		stradslusername = Replace(Request.Form("adslusername"), "'", "''")		strtarifario = Replace(Request.Form("tarifario"), "'", "''")		strtipo_de_caso = Replace(Request.Form("tipo_de_caso"), "'", "''")		strnum_avaria = Replace(Request.Form("num_avaria"), "'", "''")		strdep_resp_avaria = Replace(Request.Form("dep_resp_avaria"), "'", "''")		strdata_criacao = Replace(Request.Form("data_criacao"), "'", "''")		strdata_prevista_resolucao = Replace(Request.Form("data_prevista_resolucao"), "'", "''")		strcriacao_subs = Replace(Request.Form("criacao_subs"), "'", "''")		strorder_id_services = Replace(Request.Form("order_id_services"), "'", "''")		strestado_sigma = Replace(Request.Form("estado_sigma"), "'", "''")		strdata_estado_sigma = Replace(Request.Form("data_estado_sigma"), "'", "''")		strobservacoes = Replace(Request.Form("observacoes"), "'", "''")		strresp1 = Replace(Request.Form("resp1"), "'", "''")		strresp1_data = Replace(Request.Form("resp1_data"), "'", "''")		strresp2 = Replace(Request.Form("resp2"), "'", "''")		strresp2_data = Replace(Request.Form("resp2_data"), "'", "''")		strresp3 = Replace(Request.Form("resp3"), "'", "''")		strresp3_data = Replace(Request.Form("resp3_data"), "'", "''")		strresp4 = Replace(Request.Form("resp4"), "'", "''")		strresp4_data = Replace(Request.Form("resp4_data"), "'", "''")		strresp5 = Replace(Request.Form("resp5"), "'", "''")		strresp5_data = Replace(Request.Form("resp5_data"), "'", "''")		strcontacto1 = Replace(Request.Form("contacto1"), "'", "''")		strcontacto2 = Replace(Request.Form("contacto2"), "'", "''")		strcontacto3 = Replace(Request.Form("contacto3"), "'", "''")		strcontacto4 = Replace(Request.Form("contacto4"), "'", "''")		strcontacto5 = Replace(Request.Form("contacto5"), "'", "''")		strobs_contacto = Replace(Request.Form("obs_contacto"), "'", "''")		strestado_cl = Replace(Request.Form("estado_cl"), "'", "''")		strobs_estado = Replace(Request.Form("obs_estado"), "'", "''")		strfollow_up = Replace(Request.Form("follow_up"), "'", "''")		strdata_follow_up = Replace(Request.Form("data_follow_up"), "'", "''")		strdesc = Replace(Request.Form("desc"), "'", "''")		stroperadores = Replace(Request.Form("operadores"), "'", "''")		strultima_act = Replace(Request.Form("ultima_act"), "'", "''")				strSQL = "UPDATE ADSL SET ADSL.nome='" & strnome & "', ADSL.num_cl='" & strnum_cl & "', ADSL.num_servico='" & strnum_servico & "', ADSL.cl_contacto1='" & strcl_contacto1 & "', ADSL.cl_contacto2='" & strcl_contacto2 & "', ADSL.tester='" & strtester & "', ADSL.num_act='" & strnum_act & "', ADSL.data_inicio_processo='" & strdata_inicio_processo & "', ADSL.num_encomenda='" & strnum_encomenda & "', ADSL.data_insercao_siebel='" & strdata_insercao_siebel & "', ADSL.estado_encomenda='" & strestado_encomenda & "', ADSL.obs_siebel='" & strobs_siebel & "', ADSL.estado_siebel='" & strestado_siebel & "', ADSL.data_estado_siebel='" & strdata_estado_siebel & "', ADSL.sft='" & strsft & "', ADSL.username='" & stradslusername & "', ADSL.tarifario='" & strtarifario & "', ADSL.tipo_de_caso='" & strtipo_de_caso & "', ADSL.num_avaria='" & strnum_avaria & "', ADSL.dep_resp_avaria='" & strdep_resp_avaria & "', ADSL.data_criacao='" & strdata_criacao & "', ADSL.data_prevista_resolucao='" & strdata_prevista_resolucao & "', ADSL.criacao_subs='" & strcriacao_subs & "', ADSL.order_id_services='" & strorder_id_services & "', ADSL.estado_sigma='" & strestado_sigma & "', ADSL.data_estado_sigma='" & strdata_estado_sigma & "', ADSL.observacoes='" & strobservacoes & "', ADSL.resp1='" & strresp1 & "', ADSL.resp1_data='" & strresp1_data & "', ADSL.resp2='" & strresp2 & "', ADSL.resp2_data='" & strresp2_data & "', ADSL.resp3='" & strresp3 & "', ADSL.resp3_data='" & strresp3_data & "', ADSL.resp4='" & strresp4 & "', ADSL.resp4_data='" & strresp4_data & "', ADSL.resp5='" & strresp5 & "', ADSL.resp5_data='" & strresp5_data & "', ADSL.contacto1='" & strcontacto1 & "', ADSL.contacto2='" & strcontacto2 & "', ADSL.contacto3='" & strcontacto3 & "', ADSL.contacto4='" & strcontacto4 & "', ADSL.contacto5='" & strcontacto5 & "', ADSL.obs_contacto='" & strobs_contacto & "', ADSL.estado_cl='" & strestado_cl & "', ADSL.obs_estado='" & strobs_estado & "', ADSL.follow_up='" & strfollow_up & "', ADSL.data_follow_up='" & strdata_follow_up & "', ADSL.desc='" & strdesc & "', ADSL.operadores='" & stroperadores & "', ADSL.ultima_act='" & strultima_act & "' WHERE id = " & stridform		adoCon2.Execute(strSQL)		Set adoCon2 = Nothing		Response.Write ("<p class='style_resp'>Registo Actualizado</p>")	Else		strid = Clng(Request.querystring("id"))		Set rsEditCase = Server.CreateObject("ADODB.Recordset")		strSQL = "SELECT * FROM ADSL where id = " & strid		rsEditCase.Open strSQL, adoCon2		If NOT rsEditCase.EOF Then 			Response.Write ("<form name='Edit' method='post' action='cladsledit.asp?mode=edit'>")%>bla bla bla			  <%			End If		Set rsEditEditCase = Nothing		Set adoCon2 = Nothing	End IfEnd IfResponse.Write ("<input type='hidden' name='txtUpdate' value='update'></form>")%>

Abraço

[Cesão 1]

Mande o erro que está dando...

[MAPSantos 0]

Não dá erro nem mensagem alguma, apenas passa para a pagina seguinte, sem actualizar o registo

[Cesão 1]

isso eh bem estranho...pq normalmente quando nao atualiza, a sua pasta dos arquivos está soh como modo LEITURA...ou pq está dando erro no codigo mesmo... agora se ele passa para a pagina seguinte, mas mesmo assim nao atualiza, nem imaino o que pode ser...soh isso aki... sabe a linha de codigo "Set adoCon2 = Nothing" que você está colocando logo após o UPDATE?coloque todas essas anulações (Nothing... todas elas) abaixo da linha de codigo que redireciona p outra pagina... e ve o que acontece...

[MAPSantos 0]

tentei fazer isso mas continua a não actualizar o estranho é que pelo firefox actualiza e só pelo IE é q não, n dá msg de erro apenas passa para a pagina cladsledit.asp?mode=edit:| tou mmo confuso

[MAPSantos 0]

alguem? :S tou mmo aflito nisto