<%@ LCID = 1046 %> <% Session.Timeout = 20 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" Session("tipo_base") = Request("tipo") %> <% ewCurSec = 0 ' Initialise ' User levels Const ewAllowAdd = 1 Const ewAllowDelete = 2 Const ewAllowEdit = 4 Const ewAllowView = 8 Const ewAllowList = 8 Const ewAllowReport = 8 Const ewAllowSearch = 8 Const ewAllowAdmin = 16 %> <% ' Initialize common variables deposicao_a_vacuo = Null processos_continuos = Null esmalta_fogo = Null cromo_vi = Null estanho_eletro = Null estanho_imersao = Null niquel_eletro = Null niquel_quimico = Null zinco_eletro = Null zinco_imersao = Null esmalte_fogo = Null x_ab_id = Null x_ab_status = Null x_ab_tipo = Null x_ab_login = Null x_ab_senha = Null x_ab_r1_nome = Null x_ab_r1_rg = Null x_ab_r1_cpf = Null x_ab_r1_nas = Null x_ab_r1_cargo = Null x_ab_r1_endereco = Null x_ab_r1_numero = Null x_ab_r1_comp = Null x_ab_r1_cidade = Null x_ab_r1_estado = Null x_ab_r1_cep = Null x_ab_r1_fone = Null x_ab_r1_fax = Null x_ab_r1_email = Null x_ab_so_atividade = Null x_ab_so_empresa = Null x_ab_es_instituicao = Null x_ab_es_local = Null x_ab_es_estado = Null x_ab_es_trabalha = Null x_ab_es_empresa = Null x_ab_es_estado_emp = Null x_ab_es_graduacao = Null x_ab_es_posgraduacao = Null x_ab_r2_nome = Null x_ab_r2_rg = Null x_ab_r2_cpf = Null x_ab_r2_nas = Null x_ab_r2_cargo = Null x_ab_r2_endereco = Null x_ab_r2_numero = Null x_ab_r2_comp = Null x_ab_r2_cidade = Null x_ab_r2_estado = Null x_ab_r2_cep = Null x_ab_r2_fone = Null x_ab_r2_fax = Null x_ab_r2_email = Null x_ab_r3_nome = Null x_ab_r3_rg = Null x_ab_r3_cpf = Null x_ab_r3_nas = Null x_ab_r3_cargo = Null x_ab_r3_endereco = Null x_ab_r3_numero = Null x_ab_r3_comp = Null x_ab_r3_cidade = Null x_ab_r3_estado = Null x_ab_r3_cep = Null x_ab_r3_fone = Null x_ab_r3_fax = Null x_ab_r3_email = Null x_ab_ep_nome = Null x_ab_ep_social = Null x_ab_ep_cnpj = Null x_ab_ep_ie = Null x_ab_ep_fundacao = Null x_ab_ep_endereco = Null x_ab_ep_numero = Null x_ab_ep_comp = Null x_ab_ep_cidade = Null x_ab_ep_estado = Null x_ab_ep_cep = Null x_ab_ep_fone = Null x_ab_ep_fax = Null x_ab_ep_email = Null x_ab_ep_site = Null x_ab_se_ea = Null x_ab_se_con = Null x_ab_se_equi = Null x_ab_se_for = Null x_ab_se_pp = Null x_ab_se_ser = Null x_ab_se_ter = Null x_ab_se_ens = Null x_ab_se_dis = Null x_ab_se_pes = Null x_ab_sa_prot = Null x_ab_sa_sela = Null x_ab_sa_zinc = Null x_ab_sa_galvan = Null x_ab_sa_cro3 = Null x_ab_sa_cro4 = Null x_ab_sa_indio = Null x_ab_sa_ouro = Null x_ab_sa_paladio = Null x_ab_sa_prata = Null x_ab_sa_rodio = Null x_ab_se_out = Null x_ab_sa_ano = Null x_ab_sa_and = Null x_ab_sa_elcor = Null x_ab_sa_ast = Null x_ab_sa_bru = Null x_ab_sa_ci = Null x_ab_sa_diq = Null x_ab_sa_dq = Null x_ab_sa_dsn = Null x_ab_sa_fos = Null x_ab_sa_pas = Null x_ab_sa_pvd = Null x_ab_sa_pi = Null x_ab_sa_apo = Null x_ab_sa_elfore = Null x_ab_sa_liq = Null x_ab_sa_tef = Null x_ab_sa_eldep = Null x_ab_sa_chu = Null x_ab_sa_cad = Null x_ab_sa_cob = Null x_ab_sa_cro = Null x_ab_sa_depsel = Null x_ab_sa_elfor = Null x_ab_sa_est = Null x_ab_sa_lat = Null x_ab_sa_meno = Null x_ab_sa_niq = Null x_ab_sa_rd = Null x_ab_sa_zin = Null x_ab_sa_outel = Null x_ab_sa_rom = Null x_ab_sa_outrom = Null x_ab_d1_nome = Null x_ab_d1_endereco = Null x_ab_d1_numero = Null x_ab_d1_comp = Null x_ab_d1_cidade = Null x_ab_d1_estado = Null x_ab_d1_cep = Null x_ab_d1_fone = Null x_ab_d1_email = Null x_ab_d2_nome = Null x_ab_d2_endereco = Null x_ab_d2_numero = Null x_ab_d2_comp = Null x_ab_d2_cidade = Null x_ab_d2_estado = Null x_ab_d2_cep = Null x_ab_d2_fone = Null x_ab_d2_email = Null x_ab_lg_nome = Null x_ab_lg_depto = Null x_ab_lg_fone = Null x_ab_lg_email = Null x_ab_cb_nome = Null x_ab_cb_depto = Null x_ab_cb_endereco = Null x_ab_cb_numero = Null x_ab_cb_comp = Null x_ab_cb_cidade = Null x_ab_cb_estado = Null x_ab_cb_cep = Null x_ab_cb_fone = Null x_ab_cb_fax = Null x_ab_cb_encarregado = Null x_ab_info = Null %> <% '------------------------------------------------------------------------------- ' Functions for default date format ' ANamedFormat = 0-7, where 0-4 same as VBScript ' 5 = "yyyy/mm/dd" ' 6 = "mm/dd/yyyy" ' 7 = "dd/mm/yyyy" Const EW_DATE_SEPARATOR = "/" Function EW_FormatDateTime(ADate, ANamedFormat) If IsDate(ADate) Then If ANamedFormat >= 0 And ANamedFormat <= 4 Then EW_FormatDateTime = FormatDateTime(ADate, ANameFormat) ElseIf ANamedFormat = 5 Then EW_FormatDateTime = Year(ADate) & EW_DATE_SEPARATOR & Month(ADate) & EW_DATE_SEPARATOR & Day(ADate) ElseIf ANamedFormat = 6 Then EW_FormatDateTime = Month(ADate) & EW_DATE_SEPARATOR & Day(ADate) & EW_DATE_SEPARATOR & Year(ADate) ElseIf ANamedFormat = 7 Then EW_FormatDateTime = Day(ADate) & EW_DATE_SEPARATOR & Month(ADate) & EW_DATE_SEPARATOR & Year(ADate) Else EW_FormatDateTime = ADate End If Else EW_FormatDateTime = ADate End If End Function Function EW_UnFormatDateTime(ADate, ANamedFormat) Dim arDateTime, arDate, AYear, AMonth, ADay ADate = Trim(ADate) While Instr(ADate, " ") > 0 ADate = Replace(ADate, " ", " ") Wend arDateTime = Split(ADate, " ") If UBound(arDateTime) < 0 Then EW_UnFormatDateTime = ADate Exit Function End If arDate = Split(arDateTime(0), EW_DATE_SEPARATOR) If UBound(arDate) = 2 Then If ANamedFormat = 6 Then EW_UnFormatDateTime = arDate(2) & EW_DATE_SEPARATOR & arDate(0) & EW_DATE_SEPARATOR & arDate(1) ElseIf ANamedFormat = 7 Then EW_UnFormatDateTime = arDate(2) & EW_DATE_SEPARATOR & arDate(1) & EW_DATE_SEPARATOR & arDate(0) Else ' ANamedFormat = 5 or other EW_UnFormatDateTime = arDateTime(0) End If If UBound(arDateTime) > 0 Then If IsDate(arDateTime(1)) Then ' Is time EW_UnFormatDateTime = EW_UnFormatDateTime & " " & arDateTime(1) End If End If Else EW_UnFormatDateTime = ADate End If End Function '------------------------------------------------------------------------------- ' Function for debug Sub Trace(aMsg) On Error Resume Next Dim fso, ts Set fso = Server.Createobject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(Server.MapPath("debug.txt"), 8, True) ts.writeline(aMsg) ts.Close Set ts = Nothing Set fso = Nothing End Sub %> <% '------------------------------------------------------------------------------- ' Functions for file upload Function stringToByte(toConv) Dim i, tempChar For i = 1 to Len(toConv) tempChar = Mid(toConv, i, 1) stringToByte = stringToByte & chrB(AscB(tempChar)) Next End Function Function byteToString(toConv) Dim i, byteord, nextbyteord For i = 1 to LenB(toConv) byteord = AscB(MidB(toConv, i, 1)) If byteord < &H80 Then ' Ascii byteToString = byteToString & Chr(byteord) Else ' Double-byte characters? If i < LenB(toConv) Then nextbyteord = AscB(MidB(toConv, i+1, 1)) On Error Resume Next ' Note: This line does NOT work on all systems due to limitation of the ' Chr() function byteToString = byteToString & Chr(CInt(byteord) * &H100 + CInt(nextbyteord)) If Err.Number <> 0 Then On Error GoTo 0 byteToString = byteToString & Chr(byteord) & Chr(nextbyteord) End If i = i + 1 ElseIf i = LenB(toConv) Then byteToString = byteToString & Chr(byteord) End If End If Next End Function Function ConvertToBinary(ByRef rawData) Dim oRs Set oRs = Server.CreateObject("ADODB.Recordset") ' Create field in an empty RecordSet Call oRs.Fields.Append("Blob", 205, LenB(rawData)) ' Add field with type adLongVarBinary Call oRs.Open() Call oRs.AddNew() Call oRs.Fields("Blob").AppendChunk(rawData & ChrB(0)) Call oRs.Update() ' Save Blob Data ConvertToBinary = oRs.Fields("Blob").GetChunk(LenB(rawData)) ' Close RecordSet Call oRs.Close() Set oRs = Nothing End Function Function ConvertToUnicode(ByRef rawData) Dim oRs Set oRs = Server.CreateObject("ADODB.Recordset") ' Create field in an empty recordset Call oRs.Fields.Append("Text", 201, LenB(rawData)) ' Add field with type adLongVarChar Call oRs.Open() Call oRs.AddNew() Call oRs.Fields("Text").AppendChunk(rawData & ChrB(0)) Call oRs.Update() ' Save Unicode Data ConvertToUnicode = oRs.Fields("Text").Value ' Close recordset Call oRs.Close() Set oRs = Nothing End Function Function ewUploadPath(parm) If parm = 0 Then ewUploadPath = "" Else ewUploadPath = Server.MapPath("/") End If ' Customize the upload path here ' Check the last delimiter If parm = 0 Then If Right(ewUploadPath, 1) <> "/" Then ewUploadPath = ewUploadPath & "/" Else If Right(ewUploadPath, 1) <> "\" Then ewUploadPath = ewUploadPath & "\" End If End Function Function ewUploadFileName(sFileName) Dim sOutFileName ' Amend your logic here sOutFileName = sFileName ' Return computed output file name ewUploadFileName = sOutFileName End Function Function getValue(dict, name) Dim gv If dict.Exists(name) Then gv = CStr(dict(name).Item("Value")) gv = Left(gv,Len(gv)-2) getValue = gv Else getValue = "" End If End Function Function getFileData(dict, name) If dict.Exists(name) Then getFileData = dict(name).Item("Value") If LenB(getFileData) Mod 2 = 1 Then getFileData = getfileData & ChrB(0) End If Else getFileData = "" End If End Function Function getFileName(dict, name) Dim temp, tempPos If dict.Exists(name) Then temp = dict(name).Item("FileName") tempPos = 1 + InStrRev(temp, "\") getFileName = Mid(temp, tempPos) Else getFileName = "" End If End Function Function getFileSize(dict, name) If dict.Exists(name) Then getFileSize = LenB(dict(name).Item("Value")) Else getFileSize = 0 End If End Function Function getFileContentType(dict, name) If dict.Exists(name) Then getFileContentType = dict(name).Item("ContentType") Else getFileContentType = "" End If End Function %> <% ' Function to Adjust SQL Function AdjustSql(str) Dim sWrk sWrk = Trim(str&"") sWrk = Replace(sWrk, "'", "''") ' Adjust for Single Quote sWrk = Replace(sWrk, "[", "[[]") ' Adjust for Open Square Bracket AdjustSql = sWrk End Function %> <% ' Function to Load Email Content from input file name ' - Content Loaded to the following variables ' - Subject: sEmailSubject ' - From: sEmailFrom ' - To: sEmailTo ' - Cc: sEmailCc ' - Bcc: sEmailBcc ' - Format: sEmailFormat ' - Content: sEmailContent ' Sub LoadEmail(fn) Dim sWrk, sHeader, arrHeader Dim sName, sValue Dim i, j sWrk = LoadTxt(fn) ' Load text file content If sWrk <> "" Then ' Locate Header & Mail Content i = InStr(sWrk, vbCrLf&vbCrLf) If i > 0 Then sHeader = Mid(sWrk, 1, i) sEmailContent = Mid(sWrk, i+4) arrHeader = Split(sHeader, vbCrLf) For j = 0 to UBound(arrHeader) i = InStr(arrHeader(j), ":") If i > 0 Then sName = Trim(Mid(arrHeader(j), 1, i-1)) sValue = Trim(Mid(arrHeader(j), i+1)) Select Case LCase(sName) Case "subject": sEmailSubject = sValue Case "from": sEmailFrom = sValue Case "to": sEmailTo = sValue Case "cc": sEmailCc = sValue Case "bcc": sEmailBcc = sValue Case "format": sEmailFormat = sValue End Select End If Next End If End If End Sub ' Function to Load a Text File Function LoadTxt(fn) Dim fso, fobj ' Get text file content Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fobj = fso.OpenTextFile(Server.MapPath(fn)) LoadTxt = fobj.ReadAll ' Read all Content fobj.Close Set fobj = Nothing End Function ' Function to Send out Email Sub Send_Email(sFrEmail, sToEmail, sCcEmail, sBccEmail, sSubject, sMail, sFormat) Dim objMail, objConfig, sServerVersion, i, sIISVer sServerVersion = Request.ServerVariables("SERVER_SOFTWARE") If InStr(sServerVersion, "Microsoft-IIS") > 0 Then i = InStr(sServerVersion, "/") If i > 0 Then sIISVer = Trim(Mid(sServerVersion, i+1)) End If End If If sIISVer <= "5.0" Then ' NT / 2000 using CDONTS Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = sFrEmail objMail.To = sToEmail If sCcEmail <> "" Then objMail.Cc = sCcEmail End If If sBccEmail <> "" Then objMail.Bcc = sBccEmail End If If LCase(sFormat) = "html" Then objMail.BodyFormat = 0 ' 0 means HTML format, 1 means text objMail.MailFormat = 0 ' 0 means MIME, 1 means text End If objMail.Subject = sSubject objMail.Body = sMail objMail.Send Set objMail = Nothing Else ' XP / 2003 using CDO ' Set up Mail Set objMail = Server.CreateObject("CDO.Message") If sIISVer < "6.0" Then ' XP ' Set up Configuration Set objConfig = CreateObject("CDO.Configuration") objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' cdoSendUsingMethod = cdoSendUsingPort objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' cdoSMTPServer objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' cdoSMTPServerPort objConfig.Fields.Update Set objMail.Configuration = objConfig ' Use Configuration End If objMail.From = sFrEmail objMail.To = sToEmail If sCcEmail <> "" Then objMail.Cc = sCcEmail End If If sBccEmail <> "" Then objMail.Bcc = sBccEmail End If If LCase(sFormat) = "html" Then objMail.HtmlBody = sMail Else objMail.TextBody = sMail End If objMail.Subject = sSubject objMail.Send Set objMail = Nothing Set objConfig = Nothing End If End Sub %> <% ' Function to generate Value Separator based on current row count ' rowcnt - zero based row count ' Function ValueSeparator(rowcnt) ValueSeparator = ", " End Function ' Function to generate View Option Separator based on current row count (Multi-Select / CheckBox) ' rowcnt - zero based row count ' Function ViewOptionSeparator(rowcnt) ViewOptionSeparator = ", " ' Sample code to adjust 2 options per row 'If ((rowcnt + 1) Mod 2 = 0) Then ' 2 options per row 'ViewOptionSeparator = ViewOptionSeparator & "
" 'End If End Function ' Function to generate Edit Option Separator based on current row count (Radio / CheckBox) ' rowcnt - zero based row count ' Function EditOptionSeparator(rowcnt) EditOptionSeparator = " " ' Sample code to adjust 2 options per row 'If ((rowcnt + 1) Mod 2 = 0) Then ' 2 options per row 'EditOptionSeparator = EditOptionSeparator & "
" 'End If End Function %> <% Response.Buffer = True sKey = Request.Querystring("key") If sKey = "" Or IsNull(sKey) Then sKey = Request.Form("key") If sKey = "" Or IsNull(sKey) Then sKey = Session("sKey") ' Get action sAction = Request.Form("a_edit") If sAction = "" Or IsNull(sAction) Then sAction = "I" ' Display with input box Else ' Get fields from form deposicao_a_vacuo = Request.Form("deposicao_a_vacuo") processos_continuos = Request.Form("processos_continuos") esmalta_fogo = Request.Form("esmalta_fogo") cromo_vi = Request.Form("cromo_vi") estanho_eletro = Request.Form("estanho_eletro") estanho_imersao = Request.Form("estanho_imersao") niquel_eletro = Request.Form("niquel_eletro") niquel_quimico = Request.Form("niquel_quimico") zinco_eletro = Request.Form("zinco_eletro") zinco_imersao = Request.Form("zinco_imersao") esmalte_fogo = Request.Form("esmalte_fogo") x_ab_id = Request.Form("x_ab_id") x_ab_status = Request.Form("x_ab_status") x_ab_tipo = Request.Form("x_ab_tipo") x_ab_login = Request.Form("x_ab_login") x_ab_senha = Request.Form("x_ab_senha") x_ab_r1_nome = Request.Form("x_ab_r1_nome") x_ab_r1_rg = Request.Form("x_ab_r1_rg") x_ab_r1_cpf = Request.Form("x_ab_r1_cpf") x_ab_r1_nas = Request.Form("x_ab_r1_nas") x_ab_r1_cargo = Request.Form("x_ab_r1_cargo") x_ab_r1_endereco = Request.Form("x_ab_r1_endereco") x_ab_r1_numero = Request.Form("x_ab_r1_numero") x_ab_r1_comp = Request.Form("x_ab_r1_comp") x_ab_r1_cidade = Request.Form("x_ab_r1_cidade") x_ab_r1_estado = Request.Form("x_ab_r1_estado") x_ab_r1_cep = Request.Form("x_ab_r1_cep") x_ab_r1_fone = Request.Form("x_ab_r1_fone") x_ab_r1_fax = Request.Form("x_ab_r1_fax") x_ab_r1_email = Request.Form("x_ab_r1_email") x_ab_so_atividade = Request.Form("x_ab_so_atividade") x_ab_so_empresa = Request.Form("x_ab_so_empresa") x_ab_es_instituicao = Request.Form("x_ab_es_instituicao") x_ab_es_graduacao = Request.Form("x_ab_es_graduacao") x_ab_es_posgraduacao = Request.Form("x_ab_es_posgraduacao") x_ab_es_local = Request.Form("x_ab_es_local") x_ab_es_estado = Request.Form("x_ab_es_estado") x_ab_es_trabalha = Request.Form("x_ab_es_trabalha") x_ab_es_empresa = Request.Form("x_ab_es_empresa") x_ab_es_estado_emp = Request.Form("x_ab_es_estado_emp") x_ab_r2_nome = Request.Form("x_ab_r2_nome") x_ab_r2_rg = Request.Form("x_ab_r2_rg") x_ab_r2_cpf = Request.Form("x_ab_r2_cpf") x_ab_r2_nas = Request.Form("x_ab_r2_nas") x_ab_r2_cargo = Request.Form("x_ab_r2_cargo") x_ab_r2_endereco = Request.Form("x_ab_r2_endereco") x_ab_r2_numero = Request.Form("x_ab_r2_numero") x_ab_r2_comp = Request.Form("x_ab_r2_comp") x_ab_r2_cidade = Request.Form("x_ab_r2_cidade") x_ab_r2_estado = Request.Form("x_ab_r2_estado") x_ab_r2_cep = Request.Form("x_ab_r2_cep") x_ab_r2_fone = Request.Form("x_ab_r2_fone") x_ab_r2_fax = Request.Form("x_ab_r2_fax") x_ab_r2_email = Request.Form("x_ab_r2_email") x_ab_r3_nome = Request.Form("x_ab_r3_nome") x_ab_r3_rg = Request.Form("x_ab_r3_rg") x_ab_r3_cpf = Request.Form("x_ab_r3_cpf") x_ab_r3_nas = Request.Form("x_ab_r3_nas") x_ab_r3_cargo = Request.Form("x_ab_r3_cargo") x_ab_r3_endereco = Request.Form("x_ab_r3_endereco") x_ab_r3_numero = Request.Form("x_ab_r3_numero") x_ab_r3_comp = Request.Form("x_ab_r3_comp") x_ab_r3_cidade = Request.Form("x_ab_r3_cidade") x_ab_r3_estado = Request.Form("x_ab_r3_estado") x_ab_r3_cep = Request.Form("x_ab_r3_cep") x_ab_r3_fone = Request.Form("x_ab_r3_fone") x_ab_r3_fax = Request.Form("x_ab_r3_fax") x_ab_r3_email = Request.Form("x_ab_r3_email") x_ab_ep_social = Request.Form("x_ab_ep_social") x_ab_ep_nome = Request.Form("x_ab_ep_nome") x_ab_ep_cnpj = Request.Form("x_ab_ep_cnpj") x_ab_ep_ie = Request.Form("x_ab_ep_ie") x_ab_ep_fundacao = Request.Form("x_ab_ep_fundacao") x_ab_ep_endereco = Request.Form("x_ab_ep_endereco") x_ab_ep_numero = Request.Form("x_ab_ep_numero") x_ab_ep_comp = Request.Form("x_ab_ep_comp") x_ab_ep_cidade = Request.Form("x_ab_ep_cidade") x_ab_ep_estado = Request.Form("x_ab_ep_estado") x_ab_ep_cep = Request.Form("x_ab_ep_cep") x_ab_ep_fone = Request.Form("x_ab_ep_fone") x_ab_ep_fax = Request.Form("x_ab_ep_fax") x_ab_ep_email = Request.Form("x_ab_ep_email") x_ab_ep_site = Request.Form("x_ab_ep_site") x_ab_se_for = Request.Form("x_ab_se_for") x_ab_se_pp = Request.Form("x_ab_se_pp") x_ab_se_ser = Request.Form("x_ab_se_ser") x_ab_se_ter = Request.Form("x_ab_se_ter") x_ab_se_ens = Request.Form("x_ab_se_ens") x_ab_se_dis = Request.Form("x_ab_se_dis") x_ab_se_pes = Request.Form("x_ab_se_pes") x_ab_se_equi = Request.Form("x_ab_se_equi") x_ab_se_ea = Request.Form("x_ab_se_ea") x_ab_se_con = Request.Form("x_ab_se_con") x_ab_se_out = Request.Form("x_ab_se_out") x_ab_sa_ano = Request.Form("x_ab_sa_ano") x_ab_sa_and = Request.Form("x_ab_sa_and") x_ab_sa_elcor = Request.Form("x_ab_sa_elcor") x_ab_sa_ast = Request.Form("x_ab_sa_ast") x_ab_sa_bru = Request.Form("x_ab_sa_bru") x_ab_sa_ci = Request.Form("x_ab_sa_ci") x_ab_sa_diq = Request.Form("x_ab_sa_diq") x_ab_sa_dq = Request.Form("x_ab_sa_dq") x_ab_sa_dsn = Request.Form("x_ab_sa_dsn") x_ab_sa_fos = Request.Form("x_ab_sa_fos") x_ab_sa_pas = Request.Form("x_ab_sa_pas") x_ab_sa_pvd = Request.Form("x_ab_sa_pvd") x_ab_sa_pi = Request.Form("x_ab_sa_pi") x_ab_sa_apo = Request.Form("x_ab_sa_apo") x_ab_sa_elfore = Request.Form("x_ab_sa_elfore") x_ab_sa_liq = Request.Form("x_ab_sa_liq") x_ab_sa_tef = Request.Form("x_ab_sa_tef") x_ab_sa_eldep = Request.Form("x_ab_sa_eldep") x_ab_sa_chu = Request.Form("x_ab_sa_chu") x_ab_sa_cad = Request.Form("x_ab_sa_cad") x_ab_sa_cob = Request.Form("x_ab_sa_cob") x_ab_sa_cro = Request.Form("x_ab_sa_cro") x_ab_sa_indio = Request.Form("x_ab_sa_indio") x_ab_sa_ouro = Request.Form("x_ab_sa_ouro") x_ab_sa_prata = Request.Form("x_ab_sa_prata") x_ab_sa_paladio = Request.Form("x_ab_sa_paladio") x_ab_sa_rodio = Request.Form("x_ab_sa_rodio") x_ab_sa_cro3 = Request.Form("x_ab_sa_cro3") x_ab_sa_cro4 = Request.Form("x_ab_sa_cro4") x_ab_sa_depsel = Request.Form("x_ab_sa_depsel") x_ab_sa_elfor = Request.Form("x_ab_sa_elfor") x_ab_sa_prot = Request.Form("x_ab_sa_prot") x_ab_sa_est = Request.Form("x_ab_sa_est") x_ab_sa_sela = Request.Form("x_ab_sa_sela") x_ab_sa_lat = Request.Form("x_ab_sa_lat") x_ab_sa_niq = Request.Form("x_ab_sa_niq") x_ab_sa_zin = Request.Form("x_ab_sa_zin") x_ab_sa_zinc = Request.Form("x_ab_sa_zinc") x_ab_sa_galvan = Request.Form("x_ab_sa_galvan") x_ab_sa_outel = Request.Form("x_ab_sa_outel") x_ab_sa_rom = Request.Form("x_ab_sa_rom") x_ab_sa_outrom = Request.Form("x_ab_sa_outrom") x_ab_d1_nome = Request.Form("x_ab_d1_nome") x_ab_d1_endereco = Request.Form("x_ab_d1_endereco") x_ab_d1_numero = Request.Form("x_ab_d1_numero") x_ab_d1_comp = Request.Form("x_ab_d1_comp") x_ab_d1_cidade = Request.Form("x_ab_d1_cidade") x_ab_d1_estado = Request.Form("x_ab_d1_estado") x_ab_d1_cep = Request.Form("x_ab_d1_cep") x_ab_d1_fone = Request.Form("x_ab_d1_fone") x_ab_d1_email = Request.Form("x_ab_d1_email") x_ab_d2_nome = Request.Form("x_ab_d2_nome") x_ab_d2_endereco = Request.Form("x_ab_d2_endereco") x_ab_d2_numero = Request.Form("x_ab_d2_numero") x_ab_d2_comp = Request.Form("x_ab_d2_comp") x_ab_d2_cidade = Request.Form("x_ab_d2_cidade") x_ab_d2_estado = Request.Form("x_ab_d2_estado") x_ab_d2_cep = Request.Form("x_ab_d2_cep") x_ab_d2_fone = Request.Form("x_ab_d2_fone") x_ab_d2_email = Request.Form("x_ab_d2_email") x_ab_lg_nome = Request.Form("x_ab_lg_nome") x_ab_lg_depto = Request.Form("x_ab_lg_depto") x_ab_lg_fone = Request.Form("x_ab_lg_fone") x_ab_lg_email = Request.Form("x_ab_lg_email") x_ab_cb_nome = Request.Form("x_ab_cb_nome") x_ab_cb_depto = Request.Form("x_ab_cb_depto") x_ab_cb_endereco = Request.Form("x_ab_cb_endereco") x_ab_cb_numero = Request.Form("x_ab_cb_numero") x_ab_cb_comp = Request.Form("x_ab_cb_comp") x_ab_cb_cidade = Request.Form("x_ab_cb_cidade") x_ab_cb_estado = Request.Form("x_ab_cb_estado") x_ab_cb_cep = Request.Form("x_ab_cb_cep") x_ab_cb_fone = Request.Form("x_ab_cb_fone") x_ab_cb_fax = Request.Form("x_ab_cb_fax") x_ab_cb_encarregado = Request.Form("x_ab_cb_encarregado") x_ab_info = Request.Form("x_ab_info") End If If sKey = "" Or IsNull(sKey) Then Response.Redirect "abts_ablist.asp" ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Select Case sAction Case "I": ' Get a record to display If Not LoadData(sKey) Then ' Load Record based on key Session("mensagem") = "Não encontrei seu cadastro." conn.Close ' Close Connection Set conn = Nothing Response.Clear Response.Redirect "mensagem_fale.asp" End If Case "U": ' Update If EditData(sKey) Then ' Update Record based on key Session("mensagem") = "Cadastro atualizado com sucesso." conn.Close ' Close Connection Set conn = Nothing Response.Clear Set mailer = Server.CreateObject("ASPMAIL.ASPMailCtrl.1") enter = CHR(13) & CHR(10) call mailer.XHeader("Content-Type", "text/plain; charset=""iso-8859-1""") sender = "abts@abts.org.br" subject = "Atualização de cadastro" message = message & ("O usuário abaixo efetuou atualização no cadastro." & enter & enter) message = message & "empresa: " & x_ab_so_empresa & " " & x_ab_ep_nome & enter message = message & "nome: " & x_ab_r1_nome & enter message = message & "login: " & x_ab_login & enter message = message & "Telefone: " & x_ab_ep_fone & " " & x_ab_r1_fone & enter message = message & "email: " & x_ab_r1_email & " " & x_ab_ep_email & enter 'SERVIDOR DE EMAIL mailserver = "smtp.netpoint.com.br" recipient = sender result = mailer.SendMail(mailserver, recipient, sender, subject, message) Set mailer = nothing Response.Redirect "mensagem_fale.asp" End If End Select %> ABTS :: Associação Brasileira de Tratamentos de Superfície
home
veja o mapa do site
Institucional Agenda Biblioteca Serviços Notícias Links Associe-se Fale Conosco
      Associado - Atualize seu Cadastro
      FAQs - Perguntas Freqüentes
      Consultas Técnicas
      Solicitações sobre a Revista
      Receba nossas newsletters
      Onde Estamos

Atualize seu cadastro



<% Acesso() Select Case x_ab_tipo Case "s": Representante1() Ativo() Setor() Recobre() Cobranca() Case "a": Empresa() Setor() Recobem() Cobranca() Diretores() Representante1() Representante2() Representante3() Logo() Case "b": Empresa() Setor() Recobem() Cobranca() Diretores() Representante1() Representante2() Logo() Case "c": Empresa() Setor() Recobem() Cobranca() Diretores() Representante1() Logo() Case "e": Representante1() Estudante() Recobre() Cobranca() End Select Comum() %>

© Copyright 2005 ABTS - Todos os direitos reservados
Resolução mínima de 800x600
Hospedado por Unihost Brasil		 ABTS - Associação Brasileira de Tratamentos de Superfície
Rua Machado Bittencourt, 361 - 2º andar - 04044-905 - São Paulo - SP - Brasil
Tel (55 11) 5574-8333 - (55 11) 5085-5832 - (55 11) 5085-5830
Fax (55 11) 5084-7890 - abts@abts.org.br - www.abts.org.br
<% conn.Close ' Close Connection Set conn = Nothing %> <% '------------------------------------------------------------------------------- ' Function LoadData ' - Load Data based on Key Value sKey ' - Variables setup: field variables Function LoadData(sKey) Dim sKeyWrk, sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy sKeyWrk = "" & AdjustSql(sKey) & "" sSql = "SELECT * FROM [ab]" sSql = sSql & " WHERE [ab_id] = " & sKeyWrk sGroupBy = "" sHaving = "" sOrderBy = "" If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadData = False Else LoadData = True rs.MoveFirst ' Get the field contents deposicao_a_vacuo = rs("deposicao_a_vacuo") processos_continuos = rs("processos_continuos") esmalta_fogo = rs("esmalta_fogo") cromo_vi = rs("cromo_vi") estanho_eletro = rs("estanho_eletro") estanho_imersao = rs("estanho_imersao") niquel_eletro = rs("niquel_eletro") niquel_quimico = rs("niquel_quimico") zinco_eletro = rs("zinco_eletro") zinco_imersao = rs("zinco_imersao") esmalte_fogo = rs("esmalte_fogo") x_ab_id = rs("ab_id") x_ab_status = rs("ab_status") x_ab_tipo = rs("ab_tipo") x_ab_login = rs("ab_login") x_ab_senha = rs("ab_senha") x_ab_r1_nome = rs("ab_r1_nome") x_ab_r1_rg = rs("ab_r1_rg") x_ab_r1_cpf = rs("ab_r1_cpf") x_ab_r1_nas = rs("ab_r1_nas") x_ab_r1_cargo = rs("ab_r1_cargo") x_ab_r1_endereco = rs("ab_r1_endereco") x_ab_r1_numero = rs("ab_r1_numero") x_ab_r1_comp = rs("ab_r1_comp") x_ab_r1_cidade = rs("ab_r1_cidade") x_ab_r1_estado = rs("ab_r1_estado") x_ab_r1_cep = rs("ab_r1_cep") x_ab_r1_fone = rs("ab_r1_fone") x_ab_r1_fax = rs("ab_r1_fax") x_ab_r1_email = rs("ab_r1_email") x_ab_so_atividade = rs("ab_so_atividade") x_ab_so_empresa = rs("ab_so_empresa") x_ab_es_instituicao = rs("ab_es_instituicao") x_ab_es_local = rs("ab_es_local") x_ab_es_estado = rs("ab_es_estado") x_ab_es_trabalha = rs("ab_es_trabalha") x_ab_es_empresa = rs("ab_es_empresa") x_ab_es_estado_emp = rs("ab_es_estado_emp") x_ab_es_graduacao = rs("ab_es_graduacao") x_ab_es_posgraduacao = rs("ab_es_posgraduacao") x_ab_r2_nome = rs("ab_r2_nome") x_ab_r2_rg = rs("ab_r2_rg") x_ab_r2_cpf = rs("ab_r2_cpf") x_ab_r2_nas = rs("ab_r2_nas") x_ab_r2_cargo = rs("ab_r2_cargo") x_ab_r2_endereco = rs("ab_r2_endereco") x_ab_r2_numero = rs("ab_r2_numero") x_ab_r2_comp = rs("ab_r2_comp") x_ab_r2_cidade = rs("ab_r2_cidade") x_ab_r2_estado = rs("ab_r2_estado") x_ab_r2_cep = rs("ab_r2_cep") x_ab_r2_fone = rs("ab_r2_fone") x_ab_r2_fax = rs("ab_r2_fax") x_ab_r2_email = rs("ab_r2_email") x_ab_r3_nome = rs("ab_r3_nome") x_ab_r3_rg = rs("ab_r3_rg") x_ab_r3_cpf = rs("ab_r3_cpf") x_ab_r3_nas = rs("ab_r3_nas") x_ab_r3_cargo = rs("ab_r3_cargo") x_ab_r3_endereco = rs("ab_r3_endereco") x_ab_r3_numero = rs("ab_r3_numero") x_ab_r3_comp = rs("ab_r3_comp") x_ab_r3_cidade = rs("ab_r3_cidade") x_ab_r3_estado = rs("ab_r3_estado") x_ab_r3_cep = rs("ab_r3_cep") x_ab_r3_fone = rs("ab_r3_fone") x_ab_r3_fax = rs("ab_r3_fax") x_ab_r3_email = rs("ab_r3_email") x_ab_ep_nome = rs("ab_ep_nome") x_ab_ep_social = rs("ab_ep_social") x_ab_ep_cnpj = rs("ab_ep_cnpj") x_ab_ep_ie = rs("ab_ep_ie") x_ab_ep_fundacao = rs("ab_ep_fundacao") x_ab_ep_endereco = rs("ab_ep_endereco") x_ab_ep_numero = rs("ab_ep_numero") x_ab_ep_comp = rs("ab_ep_comp") x_ab_ep_cidade = rs("ab_ep_cidade") x_ab_ep_estado = rs("ab_ep_estado") x_ab_ep_cep = rs("ab_ep_cep") x_ab_ep_fone = rs("ab_ep_fone") x_ab_ep_fax = rs("ab_ep_fax") x_ab_ep_email = rs("ab_ep_email") x_ab_ep_site = rs("ab_ep_site") x_ab_se_ea = rs("ab_se_ea") x_ab_se_con = rs("ab_se_con") x_ab_se_equi = rs("ab_se_equi") x_ab_se_for = rs("ab_se_for") x_ab_se_pp = rs("ab_se_pp") x_ab_se_ser = rs("ab_se_ser") x_ab_se_ter = rs("ab_se_ter") x_ab_se_ens = rs("ab_se_ens") x_ab_se_dis = rs("ab_se_dis") x_ab_se_pes = rs("ab_se_pes") x_ab_se_out = rs("ab_se_out") x_ab_sa_prot = rs("ab_sa_prot") x_ab_sa_sela = rs("ab_sa_sela") x_ab_sa_galvan = rs("ab_sa_galvan") x_ab_sa_ano = rs("ab_sa_ano") x_ab_sa_and = rs("ab_sa_and") x_ab_sa_elcor = rs("ab_sa_elcor") x_ab_sa_cro3 = rs("ab_sa_cro3") x_ab_sa_cro4 = rs("ab_sa_cro4") x_ab_sa_indio = rs("ab_sa_indio") x_ab_sa_ouro = rs("ab_sa_ouro") x_ab_sa_paladio = rs("ab_sa_paladio") x_ab_sa_prata = rs("ab_sa_prata") x_ab_sa_rodio = rs("ab_sa_rodio") x_ab_sa_ast = rs("ab_sa_ast") x_ab_sa_bru = rs("ab_sa_bru") x_ab_sa_ci = rs("ab_sa_ci") x_ab_sa_diq = rs("ab_sa_diq") x_ab_sa_dq = rs("ab_sa_dq") x_ab_sa_dsn = rs("ab_sa_dsn") x_ab_sa_fos = rs("ab_sa_fos") x_ab_sa_zinc = rs("ab_sa_zinc") x_ab_sa_pas = rs("ab_sa_pas") x_ab_sa_pvd = rs("ab_sa_pvd") x_ab_sa_pi = rs("ab_sa_pi") x_ab_sa_apo = rs("ab_sa_apo") x_ab_sa_elfore = rs("ab_sa_elfore") x_ab_sa_liq = rs("ab_sa_liq") x_ab_sa_tef = rs("ab_sa_tef") x_ab_sa_eldep = rs("ab_sa_eldep") x_ab_sa_cro3 = rs("ab_sa_cro3") x_ab_sa_cro4 = rs("ab_sa_cro4") x_ab_sa_chu = rs("ab_sa_chu") x_ab_sa_cad = rs("ab_sa_cad") x_ab_sa_cob = rs("ab_sa_cob") x_ab_sa_cro = rs("ab_sa_cro") x_ab_sa_depsel = rs("ab_sa_depsel") x_ab_sa_elfor = rs("ab_sa_elfor") x_ab_sa_est = rs("ab_sa_est") x_ab_sa_lat = rs("ab_sa_lat") x_ab_sa_meno = rs("ab_sa_meno") x_ab_sa_niq = rs("ab_sa_niq") x_ab_sa_rd = rs("ab_sa_rd") x_ab_sa_zin = rs("ab_sa_zin") x_ab_sa_outel = rs("ab_sa_outel") x_ab_sa_rom = rs("ab_sa_rom") x_ab_sa_outrom = rs("ab_sa_outrom") x_ab_d1_nome = rs("ab_d1_nome") x_ab_d1_endereco = rs("ab_d1_endereco") x_ab_d1_numero = rs("ab_d1_numero") x_ab_d1_comp = rs("ab_d1_comp") x_ab_d1_cidade = rs("ab_d1_cidade") x_ab_d1_estado = rs("ab_d1_estado") x_ab_d1_cep = rs("ab_d1_cep") x_ab_d1_fone = rs("ab_d1_fone") x_ab_d1_email = rs("ab_d1_email") x_ab_d2_nome = rs("ab_d2_nome") x_ab_d2_endereco = rs("ab_d2_endereco") x_ab_d2_numero = rs("ab_d2_numero") x_ab_d2_comp = rs("ab_d2_comp") x_ab_d2_cidade = rs("ab_d2_cidade") x_ab_d2_estado = rs("ab_d2_estado") x_ab_d2_cep = rs("ab_d2_cep") x_ab_d2_fone = rs("ab_d2_fone") x_ab_d2_email = rs("ab_d2_email") x_ab_lg_nome = rs("ab_lg_nome") x_ab_lg_depto = rs("ab_lg_depto") x_ab_lg_fone = rs("ab_lg_fone") x_ab_lg_email = rs("ab_lg_email") x_ab_cb_nome = rs("ab_cb_nome") x_ab_cb_depto = rs("ab_cb_depto") x_ab_cb_endereco = rs("ab_cb_endereco") x_ab_cb_numero = rs("ab_cb_numero") x_ab_cb_comp = rs("ab_cb_comp") x_ab_cb_cidade = rs("ab_cb_cidade") x_ab_cb_estado = rs("ab_cb_estado") x_ab_cb_cep = rs("ab_cb_cep") x_ab_cb_fone = rs("ab_cb_fone") x_ab_cb_fax = rs("ab_cb_fax") x_ab_cb_encarregado = rs("ab_cb_encarregado") x_ab_info = rs("ab_info") End If rs.Close Set rs = Nothing End Function %> <% '------------------------------------------------------------------------------- ' Function EditData ' - Edit Data based on Key Value sKey ' - Variables used: field variables Function EditData(sKey) Dim sKeyWrk, sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy ' Open record sKeyWrk = "" & AdjustSql(sKey) & "" sSql = "SELECT * FROM [ab]" sSql = sSql & " WHERE [ab_id] = " & sKeyWrk sGroupBy = "" sHaving = "" sOrderBy = "" If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.Open sSql, conn, 1, 2 If rs.Eof Then EditData = False ' Update Failed Else ' Field ab_id ' Field ab_status ' Field ab_tipo ' Field ab_login sTmp = Trim(x_ab_login) If Trim(sTmp) = "" Then sTmp = "" srchFld = sTmp strsql = "SELECT * FROM [ab] WHERE [ab_login] = '" & AdjustSql(srchFld) & "' and ab_id <> " & sKey Set rschk = conn.Execute(strsql) If Not rschk.Eof Then Session("mensagem") = "O login " & sTmp & " já existe! " Response.Clear Response.Redirect "mensagem_fale.asp" Response.End End If rschk.Close Set rschk = Nothing rs("ab_login") = sTmp ' Field ab_senha sTmp = Trim(x_ab_senha) If Trim(sTmp) = "" Then sTmp = "" rs("ab_senha") = sTmp ' Field ab_r1_nome sTmp = Trim(x_ab_r1_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_nome") = sTmp ' Field ab_r1_rg sTmp = Trim(x_ab_r1_rg) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_rg") = sTmp ' Field ab_r1_cpf sTmp = Trim(x_ab_r1_cpf) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_cpf") = sTmp ' Field ab_r1_nas sTmp = EW_UnFormatDateTime(x_ab_r1_nas,7) If IsDate(sTmp) Then rs("ab_r1_nas") = CDate(sTmp) Else rs("ab_r1_nas") = Null End If ' Field ab_r1_cargo sTmp = Trim(x_ab_r1_cargo) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_cargo") = sTmp ' Field ab_r1_endereco sTmp = Trim(x_ab_r1_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_endereco") = sTmp ' Field ab_r1_numero sTmp = Trim(x_ab_r1_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_numero") = sTmp ' Field ab_r1_comp sTmp = Trim(x_ab_r1_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_comp") = sTmp ' Field ab_r1_cidade sTmp = Trim(x_ab_r1_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_cidade") = sTmp ' Field ab_r1_estado sTmp = Trim(x_ab_r1_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_estado") = sTmp ' Field ab_r1_cep sTmp = Trim(x_ab_r1_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_cep") = sTmp ' Field ab_r1_fone sTmp = Trim(x_ab_r1_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_fone") = sTmp ' Field ab_r1_fax sTmp = Trim(x_ab_r1_fax) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_fax") = sTmp ' Field ab_r1_email sTmp = Trim(x_ab_r1_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r1_email") = sTmp ' Field ab_so_atividade sTmp = Trim(x_ab_so_atividade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_so_atividade") = sTmp ' Field ab_so_empresa sTmp = Trim(x_ab_so_empresa) If Trim(sTmp) = "" Then sTmp = Null rs("ab_so_empresa") = sTmp ' Field ab_es_instituicao sTmp = Trim(x_ab_es_instituicao) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_instituicao") = sTmp ' Field ab_es_graduacao sTmp = Trim(x_ab_es_graduacao) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_graduacao") = sTmp ' Field ab_es_posgraduacao sTmp = Trim(x_ab_es_posgraduacao) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_posgraduacao") = sTmp ' Field ab_es_local sTmp = Trim(x_ab_es_local) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_local") = sTmp ' Field ab_es_estado sTmp = Trim(x_ab_es_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_estado") = sTmp ' Field ab_es_trabalha sTmp = x_ab_es_trabalha If sTmp = "1" Then rs("ab_es_trabalha") = True Else rs("ab_es_trabalha") = False End If ' Field ab_es_empresa sTmp = Trim(x_ab_es_empresa) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_empresa") = sTmp ' Field ab_es_estado_emp sTmp = Trim(x_ab_es_estado_emp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_es_estado_emp") = sTmp ' Field ab_r2_nome sTmp = Trim(x_ab_r2_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_nome") = sTmp ' Field ab_r2_rg sTmp = Trim(x_ab_r2_rg) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_rg") = sTmp ' Field ab_r2_cpf sTmp = Trim(x_ab_r2_cpf) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_cpf") = sTmp ' Field ab_r2_nas sTmp = EW_UnFormatDateTime(x_ab_r2_nas,7) If IsDate(sTmp) Then rs("ab_r2_nas") = CDate(sTmp) Else rs("ab_r2_nas") = Null End If ' Field ab_r2_cargo sTmp = Trim(x_ab_r2_cargo) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_cargo") = sTmp ' Field ab_r2_endereco sTmp = Trim(x_ab_r2_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_endereco") = sTmp ' Field ab_r2_numero sTmp = Trim(x_ab_r2_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_numero") = sTmp ' Field ab_r2_comp sTmp = Trim(x_ab_r2_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_comp") = sTmp ' Field ab_r2_cidade sTmp = Trim(x_ab_r2_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_cidade") = sTmp ' Field ab_r2_estado sTmp = Trim(x_ab_r2_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_estado") = sTmp ' Field ab_r2_cep sTmp = Trim(x_ab_r2_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_cep") = sTmp ' Field ab_r2_fone sTmp = Trim(x_ab_r2_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_fone") = sTmp ' Field ab_r2_fax sTmp = Trim(x_ab_r2_fax) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_fax") = sTmp ' Field ab_r2_email sTmp = Trim(x_ab_r2_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r2_email") = sTmp ' Field ab_r3_nome sTmp = Trim(x_ab_r3_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_nome") = sTmp ' Field ab_r3_rg sTmp = Trim(x_ab_r3_rg) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_rg") = sTmp ' Field ab_r3_cpf sTmp = Trim(x_ab_r3_cpf) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_cpf") = sTmp ' Field ab_r3_nas sTmp = EW_UnFormatDateTime(x_ab_r3_nas,7) If IsDate(sTmp) Then rs("ab_r3_nas") = CDate(sTmp) Else rs("ab_r3_nas") = Null End If ' Field ab_r3_cargo sTmp = Trim(x_ab_r3_cargo) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_cargo") = sTmp ' Field ab_r3_endereco sTmp = Trim(x_ab_r3_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_endereco") = sTmp ' Field ab_r3_numero sTmp = Trim(x_ab_r3_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_numero") = sTmp ' Field ab_r3_comp sTmp = Trim(x_ab_r3_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_comp") = sTmp ' Field ab_r3_cidade sTmp = Trim(x_ab_r3_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_cidade") = sTmp ' Field ab_r3_estado sTmp = Trim(x_ab_r3_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_estado") = sTmp ' Field ab_r3_cep sTmp = Trim(x_ab_r3_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_cep") = sTmp ' Field ab_r3_fone sTmp = Trim(x_ab_r3_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_fone") = sTmp ' Field ab_r3_fax sTmp = Trim(x_ab_r3_fax) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_fax") = sTmp ' Field ab_r3_email sTmp = Trim(x_ab_r3_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_r3_email") = sTmp ' Field ab_ep_social sTmp = Trim(x_ab_ep_social) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_social") = sTmp ' Field ab_ep_nome sTmp = Trim(x_ab_ep_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_nome") = sTmp ' Field ab_ep_cnpj sTmp = Trim(x_ab_ep_cnpj) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_cnpj") = sTmp ' Field ab_ep_ie sTmp = Trim(x_ab_ep_ie) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_ie") = sTmp ' Field ab_ep_fundacao sTmp = EW_UnFormatDateTime(x_ab_ep_fundacao,7) If IsDate(sTmp) Then rs("ab_ep_fundacao") = CDate(sTmp) Else rs("ab_ep_fundacao") = Null End If ' Field ab_ep_endereco sTmp = Trim(x_ab_ep_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_endereco") = sTmp ' Field ab_ep_numero sTmp = Trim(x_ab_ep_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_numero") = sTmp ' Field ab_ep_comp sTmp = Trim(x_ab_ep_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_comp") = sTmp ' Field ab_ep_cidade sTmp = Trim(x_ab_ep_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_cidade") = sTmp ' Field ab_ep_estado sTmp = Trim(x_ab_ep_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_estado") = sTmp ' Field ab_ep_cep sTmp = Trim(x_ab_ep_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_cep") = sTmp ' Field ab_ep_fone sTmp = Trim(x_ab_ep_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_fone") = sTmp ' Field ab_ep_fax sTmp = Trim(x_ab_ep_fax) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_fax") = sTmp ' Field ab_ep_email sTmp = Trim(x_ab_ep_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_email") = sTmp ' Field ab_ep_site sTmp = Trim(x_ab_ep_site) If Trim(sTmp) = "" Then sTmp = Null rs("ab_ep_site") = sTmp ' Field ab_se_for sTmp = x_ab_se_for If sTmp <> "" Then rs("ab_se_for") = True Else rs("ab_se_for") = False End If ' Field ab_se_pp sTmp = x_ab_se_pp If sTmp <> "" Then rs("ab_se_pp") = True Else rs("ab_se_pp") = False End If ' Field ab_se_ser sTmp = x_ab_se_ser If sTmp <> "" Then rs("ab_se_ser") = True Else rs("ab_se_ser") = False End If ' Field ab_se_ter sTmp = x_ab_se_ter If sTmp <> "" Then rs("ab_se_ter") = True Else rs("ab_se_ter") = False End If ' Field ab_se_ens sTmp = x_ab_se_ens If sTmp <> "" Then rs("ab_se_ens") = True Else rs("ab_se_ens") = False End If ' Field ab_se_dis sTmp = x_ab_se_dis If sTmp <> "" Then rs("ab_se_dis") = True Else rs("ab_se_dis") = False End If ' Field ab_se_pes sTmp = x_ab_se_pes If sTmp <> "" Then rs("ab_se_pes") = True Else rs("ab_se_pes") = False End If 'NOVOs sTmp = deposicao_a_vacuo If sTmp <> "" Then rs("deposicao_a_vacuo") = True Else rs("deposicao_a_vacuo") = False End If 'NOVOs sTmp = processos_continuos If sTmp <> "" Then rs("processos_continuos") = True Else rs("processos_continuos") = False End If 'NOVOs sTmp = esmalta_fogo If sTmp <> "" Then rs("esmalta_fogo") = True Else rs("esmalta_fogo") = False End If 'NOVOs sTmp = cromo_vi If sTmp <> "" Then rs("cromo_vi") = True Else rs("cromo_vi") = False End If 'NOVOs sTmp = estanho_eletro If sTmp <> "" Then rs("estanho_eletro") = True Else rs("estanho_eletro") = False End If 'NOVOs sTmp = estanho_imersao If sTmp <> "" Then rs("estanho_imersao") = True Else rs("estanho_imersao") = False End If 'NOVOs sTmp = niquel_eletro If sTmp <> "" Then rs("niquel_eletro") = True Else rs("niquel_eletro") = False End If 'NOVOs sTmp = niquel_quimico If sTmp <> "" Then rs("niquel_quimico") = True Else rs("niquel_quimico") = False End If 'NOVOs sTmp = zinco_eletro If sTmp <> "" Then rs("zinco_eletro") = True Else rs("zinco_eletro") = False End If 'NOVOs sTmp = zinco_imersao If sTmp <> "" Then rs("zinco_imersao") = True Else rs("zinco_imersao") = False End If 'NOVOs sTmp = esmalte_fogo If sTmp <> "" Then rs("esmalte_fogo") = True Else rs("esmalte_fogo") = False End If ' Field ab_se_ea sTmp = x_ab_se_ea If sTmp <> "" Then rs("ab_se_ea") = True Else rs("ab_se_ea") = False End If ' Field ab_se_equi sTmp = x_ab_se_equi If sTmp <> "" Then rs("ab_se_equi") = True Else rs("ab_se_equi") = False End If rs.Update ' Field ab_se_con sTmp = x_ab_se_con If sTmp <> "" Then rs("ab_se_con") = True Else rs("ab_se_con") = False End If ' Field ab_se_out sTmp = Trim(x_ab_se_out) If Trim(sTmp) = "" Then sTmp = Null rs("ab_se_out") = sTmp ' Field ab_sa_ano sTmp = x_ab_sa_ano If sTmp <> "" Then rs("ab_sa_ano") = True Else rs("ab_sa_ano") = False End If ' Field ab_sa_and sTmp = x_ab_sa_and If sTmp <> "" Then rs("ab_sa_and") = True Else rs("ab_sa_and") = False End If ' Field ab_sa_elcor sTmp = x_ab_sa_elcor If sTmp <> "" Then rs("ab_sa_elcor") = True Else rs("ab_sa_elcor") = False End If ' Field ab_sa_ast sTmp = x_ab_sa_ast If sTmp <> "" Then rs("ab_sa_ast") = True Else rs("ab_sa_ast") = False End If ' Field ab_sa_bru sTmp = x_ab_sa_bru If sTmp <> "" Then rs("ab_sa_bru") = True Else rs("ab_sa_bru") = False End If ' Field ab_sa_ci sTmp = x_ab_sa_ci If sTmp <> "" Then rs("ab_sa_ci") = True Else rs("ab_sa_ci") = False End If ' Field ab_sa_diq sTmp = x_ab_sa_diq If sTmp <> "" Then rs("ab_sa_diq") = True Else rs("ab_sa_diq") = False End If ' Field ab_sa_dq sTmp = x_ab_sa_dq If sTmp <> "" Then rs("ab_sa_dq") = True Else rs("ab_sa_dq") = False End If ' Field ab_sa_dsn sTmp = x_ab_sa_dsn If sTmp <> "" Then rs("ab_sa_dsn") = True Else rs("ab_sa_dsn") = False End If ' Field ab_sa_fos sTmp = x_ab_sa_fos If sTmp <> "" Then rs("ab_sa_fos") = True Else rs("ab_sa_fos") = False End If ' Field ab_sa_pas sTmp = x_ab_sa_pas If sTmp <> "" Then rs("ab_sa_pas") = True Else rs("ab_sa_pas") = False End If ' Field ab_sa_pvd sTmp = x_ab_sa_pvd If sTmp <> "" Then rs("ab_sa_pvd") = True Else rs("ab_sa_pvd") = False End If ' Field ab_sa_pi sTmp = x_ab_sa_pi If sTmp <> "" Then rs("ab_sa_pi") = True Else rs("ab_sa_pi") = False End If ' Field ab_sa_apo sTmp = x_ab_sa_apo If sTmp <> "" Then rs("ab_sa_apo") = True Else rs("ab_sa_apo") = False End If ' Field ab_sa_elfore sTmp = x_ab_sa_elfore If sTmp <> "" Then rs("ab_sa_elfore") = True Else rs("ab_sa_elfore") = False End If ' Field ab_sa_liq sTmp = x_ab_sa_liq If sTmp <> "" Then rs("ab_sa_liq") = True Else rs("ab_sa_liq") = False End If ' Field ab_sa_tef sTmp = x_ab_sa_tef If sTmp <> "" Then rs("ab_sa_tef") = True Else rs("ab_sa_tef") = False End If ' Field ab_sa_eldep sTmp = x_ab_sa_eldep If sTmp <> "" Then rs("ab_sa_eldep") = True Else rs("ab_sa_eldep") = False End If ' Field ab_sa_chu sTmp = x_ab_sa_chu If sTmp <> "" Then rs("ab_sa_chu") = True Else rs("ab_sa_chu") = False End If ' Field ab_sa_cad sTmp = x_ab_sa_cad If sTmp <> "" Then rs("ab_sa_cad") = True Else rs("ab_sa_cad") = False End If ' Field ab_sa_cob sTmp = x_ab_sa_cob If sTmp <> "" Then rs("ab_sa_cob") = True Else rs("ab_sa_cob") = False End If ' Field ab_sa_cro sTmp = x_ab_sa_cro If sTmp <> "" Then rs("ab_sa_cro") = True Else rs("ab_sa_cro") = False End If ' Field ab_sa_cro3 sTmp = x_ab_sa_cro3 If sTmp <> "" Then rs("ab_sa_cro3") = True Else rs("ab_sa_cro3") = False End If ' Field ab_sa_prata sTmp = x_ab_sa_prata If sTmp <> "" Then rs("ab_sa_prata") = True Else rs("ab_sa_prata") = False End If ' Field ab_sa_paladio sTmp = x_ab_sa_paladio If sTmp <> "" Then rs("ab_sa_paladio") = True Else rs("ab_sa_paladio") = False End If ' Field ab_sa_rodio sTmp = x_ab_sa_rodio If sTmp <> "" Then rs("ab_sa_rodio") = True Else rs("ab_sa_rodio") = False End If ' Field ab_sa_ouro sTmp = x_ab_sa_ouro If sTmp <> "" Then rs("ab_sa_ouro") = True Else rs("ab_sa_ouro") = False End If ' Field ab_sa_indio sTmp = x_ab_sa_indio If sTmp <> "" Then rs("ab_sa_indio") = True Else rs("ab_sa_indio") = False End If ' Field ab_sa_cro4 sTmp = x_ab_sa_cro4 If sTmp <> "" Then rs("ab_sa_cro4") = True Else rs("ab_sa_cro4") = False End If ' Field ab_sa_depsel sTmp = x_ab_sa_depsel If sTmp <> "" Then rs("ab_sa_depsel") = True Else rs("ab_sa_depsel") = False End If ' Field ab_sa_elfor sTmp = x_ab_sa_elfor If sTmp <> "" Then rs("ab_sa_elfor") = True Else rs("ab_sa_elfor") = False End If ' Field ab_sa_sela sTmp = x_ab_sa_sela If sTmp <> "" Then rs("ab_sa_sela") = True Else rs("ab_sa_sela") = False End If ' Field ab_sa_est sTmp = x_ab_sa_est If sTmp <> "" Then rs("ab_sa_est") = True Else rs("ab_sa_est") = False End If ' Field ab_sa_lat sTmp = x_ab_sa_lat If sTmp <> "" Then rs("ab_sa_lat") = True Else rs("ab_sa_lat") = False End If ' Field ab_sa_prot sTmp = x_ab_sa_prot If sTmp <> "" Then rs("ab_sa_prot") = True Else rs("ab_sa_prot") = False End If ' Field ab_sa_niq sTmp = x_ab_sa_niq If sTmp <> "" Then rs("ab_sa_niq") = True Else rs("ab_sa_niq") = False End If ' Field ab_sa_galvan sTmp = x_ab_sa_galvan If sTmp <> "" Then rs("ab_sa_galvan") = True Else rs("ab_sa_galvan") = False End If ' Field ab_sa_zinc sTmp = x_ab_sa_zinc If sTmp <> "" Then rs("ab_sa_zinc") = True Else rs("ab_sa_zinc") = False End If ' Field ab_sa_zin sTmp = x_ab_sa_zin If sTmp <> "" Then rs("ab_sa_zin") = True Else rs("ab_sa_zin") = False End If ' Field ab_sa_outel sTmp = Trim(x_ab_sa_outel) If Trim(sTmp) = "" Then sTmp = Null rs("ab_sa_outel") = sTmp ' Field ab_sa_rom sTmp = x_ab_sa_rom If sTmp <> "" Then rs("ab_sa_rom") = True Else rs("ab_sa_rom") = False End If ' Field ab_sa_outrom sTmp = Trim(x_ab_sa_outrom) If Trim(sTmp) = "" Then sTmp = Null rs("ab_sa_outrom") = sTmp ' Field ab_d1_nome sTmp = Trim(x_ab_d1_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_nome") = sTmp ' Field ab_d1_endereco sTmp = Trim(x_ab_d1_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_endereco") = sTmp ' Field ab_d1_numero sTmp = Trim(x_ab_d1_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_numero") = sTmp ' Field ab_d1_comp sTmp = Trim(x_ab_d1_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_comp") = sTmp ' Field ab_d1_cidade sTmp = Trim(x_ab_d1_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_cidade") = sTmp ' Field ab_d1_estado sTmp = Trim(x_ab_d1_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_estado") = sTmp ' Field ab_d1_cep sTmp = Trim(x_ab_d1_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_cep") = sTmp ' Field ab_d1_fone sTmp = Trim(x_ab_d1_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_fone") = sTmp ' Field ab_d1_email sTmp = Trim(x_ab_d1_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d1_email") = sTmp ' Field ab_d2_nome sTmp = Trim(x_ab_d2_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_nome") = sTmp ' Field ab_d2_endereco sTmp = Trim(x_ab_d2_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_endereco") = sTmp ' Field ab_d2_numero sTmp = Trim(x_ab_d2_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_numero") = sTmp ' Field ab_d2_comp sTmp = Trim(x_ab_d2_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_comp") = sTmp ' Field ab_d2_cidade sTmp = Trim(x_ab_d2_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_cidade") = sTmp ' Field ab_d2_estado sTmp = Trim(x_ab_d2_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_estado") = sTmp ' Field ab_d2_cep sTmp = Trim(x_ab_d2_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_cep") = sTmp ' Field ab_d2_fone sTmp = Trim(x_ab_d2_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_fone") = sTmp ' Field ab_d2_email sTmp = Trim(x_ab_d2_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_d2_email") = sTmp ' Field ab_lg_nome sTmp = Trim(x_ab_lg_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_lg_nome") = sTmp ' Field ab_lg_depto sTmp = Trim(x_ab_lg_depto) If Trim(sTmp) = "" Then sTmp = Null rs("ab_lg_depto") = sTmp ' Field ab_lg_fone sTmp = Trim(x_ab_lg_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_lg_fone") = sTmp ' Field ab_lg_email sTmp = Trim(x_ab_lg_email) If Trim(sTmp) = "" Then sTmp = Null rs("ab_lg_email") = sTmp ' Field ab_cb_nome sTmp = Trim(x_ab_cb_nome) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_nome") = sTmp ' Field ab_cb_depto sTmp = Trim(x_ab_cb_depto) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_depto") = sTmp ' Field ab_cb_endereco sTmp = Trim(x_ab_cb_endereco) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_endereco") = sTmp ' Field ab_cb_numero sTmp = Trim(x_ab_cb_numero) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_numero") = sTmp ' Field ab_cb_comp sTmp = Trim(x_ab_cb_comp) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_comp") = sTmp ' Field ab_cb_cidade sTmp = Trim(x_ab_cb_cidade) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_cidade") = sTmp ' Field ab_cb_estado sTmp = Trim(x_ab_cb_estado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_estado") = sTmp ' Field ab_cb_cep sTmp = Trim(x_ab_cb_cep) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_cep") = sTmp ' Field ab_cb_fone sTmp = Trim(x_ab_cb_fone) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_fone") = sTmp ' Field ab_cb_fax sTmp = Trim(x_ab_cb_fax) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_fax") = sTmp ' Field ab_cb_encarregado sTmp = Trim(x_ab_cb_encarregado) If Trim(sTmp) = "" Then sTmp = Null rs("ab_cb_encarregado") = sTmp ' Field ab_info sTmp = Trim(x_ab_info) If Trim(sTmp) = "" Then sTmp = Null rs("ab_info") = sTmp rs.Update EditData = True ' Update Successful End If rs.Close Set rs = Nothing End Function %>