Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom galera, to enroscada com um upload meio complexo...
De acordo com os erros o cliente tem que corrigir e reenviar pra gravar as informações no banco... o problema é que pra cada registro do bd tem mais 21 itens na mesma linha, sendo que esses itens podem ou não estar errados...
consigo fazer o update de uma coluna, certinho, mas quando vou fazer do resto dá pau, ninguém funciona....
Se alguma alma boa puder me ajudar agradeço....
Seguema as páginas
Essa página recebe e trata as informações do bd
<% Function Idade(data)Idade = DateDiff("yyyy",data,Now) End FunctionFunction Dtatual(dataatual, datanascimento)if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2 else n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2-1 end ifelse n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2-1end ifEnd FunctionFunction estado(str) str = LCase(str) estado = Replace(str, "Casado", "casado") estado = Replace(str, "Casada", "casado") estado = Replace(str, "cas", "casado") estado = Replace(str, "Cas", "casado") estado = Replace(str, "casada", "casado") estado = Replace(estado, "Solteiro", "solteiro") estado = Replace(estado, "Solteira", "solteiro") estado = Replace(estado, "solt", "solteiro") estado = Replace(estado, "Solt", "solteiro") estado = Replace(estado, "solteira", "solteiro") estado = Replace(estado, "Amasiado", "amasiado") estado = Replace(estado, "Amasiada", "amasiado") estado = Replace(estado, "amas", "amasiado") estado = Replace(estado, "Amas", "amasiado") estado = Replace(estado, "amasiada", "amasiado") estado = Replace(estado, "Separado", "separado") estado = Replace(estado, "Separada", "separado") estado = Replace(estado, "sep", "separado") estado = Replace(estado, "Sep", "separado") estado = Replace(estado, "separada", "separado") estado = Replace(estado, "Desquitado", "desquitado") estado = Replace(estado, "Desquitada", "desquitado") estado = Replace(estado, "desq", "desquitado") estado = Replace(estado, "Desq", "desquitado") estado = Replace(estado, "desquitada", "desquitado") estado = Replace(estado, "Divorciado", "divorciado") estado = Replace(estado, "Divorciada", "divorciado") estado = Replace(estado, "div", "divorciado") estado = Replace(estado, "Div", "divorciado") estado = Replace(estado, "divorciada", "divorciado")End Functionset Conn= server.CreateObject("ADODB.Connection")Conn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath ("caminho do bd.mdb")tipo = Request.QueryString ("tpi")municipio = Request.QueryString("municipio")sql = "SELECT * from Ativos where entidade = '"&municipio&"' and tipo = '"&tipo&"' order by matricula"Set rs = Conn.Execute(sql)%> <table height="30" width="1790" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#035faa" style="border-collapse: collapse; border: 1px solid #035FAA"> <form name="Update" method="Post" action="crit.asp"> <tr align="center"> <td class="style3" colspan="21"> <input type="hidden" name="tipo" value="<%=Request.QueryString("tpi")%>" /> <input type="hidden" name="municipio" value="<%=Request.QueryString("municipio")%>" /> <input type="submit" name="Submit" value="Corrigir" /> </td> </tr> <tr align="center"> <td class="style3"> Tipo<br> de<br> Inst. </td> <td class="style3"> Município </td> <td class="style3"> Matrícula </td> <td class="style3"> Nome </td> <td class="style3"> Cargo </td> <td class="style3"> Sexo </td> <td class="style3">Est.<br> Civ.</td> <td class="style3">Dt.<br> Nasc.</td> <td class="style3"> INSS Ant. </td> <td class="style3"> Dt. RP. </td> <td class="style3">Dt.<br> Admis.</td> <td class="style3">TP.<br> Apos.</td> <td class="style3"> Salário </td> <td class="style3">Nº<br> Dep.</td> <td class="style3">Dt.<br> Conj </td> <td class="style3"> Filho 1 </td> <td class="style3"> Filho 2 </td> <td class="style3"> Filho 3 </td> <td class="style3"> Filho 4 </td> <td class="style3"> Filho 5 </td> <td class="style3"> Data/Hora do envio </td> </tr> <%cont=0totalregistros=0 Do While rs.EOF = Falsecont=cont+1%> <tr> <%on error resume nextresponse.write "<tr align=""center"">"%> <input type="hidden" name="id<%=cont%>" value="<%= rs("id") %>"> <%If IsNull(rs("tipo")) OR rs("tipo") = "0" or rs("tipo") = "" Then%> <td height="30" bgcolor=#eeeeee><span class="style2">N/D</span></td> <%Else%> <td height="30"bgcolor=#eeeeee><span class="style2"><%= rs("tipo") %></span></td> <%End IFIF IsNull(rs("entidade")) OR rs("entidade") = "0" or rs("entidade") = "" Then%> <td><span class="style2">N/D</span></td> <%Else%> <td><span class="style2"><%= rs("entidade") %></span></td> <%End IFIF IsNull(rs("matricula")) OR rs("matricula") = "0" or rs("matricula") = "" Then%> <td bgcolor=#eeeeee> <input size="5" name="matr<%=cont%>" type="text" style="background:#D2F7DB" value ="<%= rs("matricula") %>" > </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= rs("matricula") %></span></td> <%End IFIF IsNull(rs("nome")) OR rs("nome") = "0" or rs("nome") = "" Then%> <td width="330"> <textarea name="nome" cols="30" rows="1"><%= rs("nome") %></textarea> </td> <%Else%> <td width="330"><span class="style2"><%= rs("nome") %></span></td> <%End IFIF IsNull(rs("cargo")) OR rs("cargo") = "0" or rs("cargo") = "" Then%> <td bgcolor=#eeeeee> <input type="text" name="cargo<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("cargo") %>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= rs("cargo") %></span></td> <%End IFsexo = "F"sexo2 = "M"IF IsNull(rs("sexo")) OR rs("sexo") < sexo or rs("sexo") = "" or rs("sexo") > sexo2 Then%> <td> <input type="text" name="sexo<%=cont%>" style="background:#D2F7DB" size ="3" value ="<%= rs("sexo") %>"> </td> <%Else%> <td><span class="style2"><%= rs("sexo") %></span></td> <%End IFsolt = "solteiro"ama = "amasiado"desq = "desquitado"divor = "divorciado"casado = "casado"IF IsNull(rs("est_civ")) or rs("est_civ") = "" or rs("est_civ") = "0" or rs("est_civ") > casado or rs("est_civ") > solt or rs("est_civ") > ama or rs("est_civ") > desq or rs("est_civ") > divor Then%> <td bgcolor=#eeeeee> <input type="text" name="estciv<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("est_civ") %>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= rs("est_civ") %></span></td> <%End IFdata_nasc = Idade(rs("dt_nasc"))IF Isnull(rs("dt_nasc")) OR rs("dt_nasc") = "" or data_nasc < 14 or data_nasc > 100 Then%> <td> <input type="text" style="background:#D2F7DB" size ="10" name="dtnasc<%=cont%>" value ="<%=rs("dt_nasc")%>"> </td> <%Else%> <td><span class="style2"><%=rs("dt_nasc")%></span></td> <%End IF IF IsNull(rs("inss_ant")) OR rs("inss_ant") = "" or rs("inss_ant") = "0" Then%> <td bgcolor=#eeeeee> <input type="text" style="background:#D2F7DB" size ="3" name="inss<%=cont%>" value ="<%= rs("inss_ant")%>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%=rs("inss_ant")%></span></td> <%End IFIF IsNull(rs("dt_rp")) OR rs("dt_rp") = "0" or rs("dt_rp") = "" Then%> <td> <input type="text" style="background:#D2F7DB" name="rp<%=cont%>" size ="10" value ="<%= rs("dt_rp") %>"> </td> <%Else%> <td><span class="style2"><%= rs("dt_rp") %></span></td> <%End IFdt_adm = Dtatual(rs("dt_adm"))dt_rp = Dtatual(rs("dt_rp"))IF IsNull(rs("dt_adm")) OR rs("dt_adm") = "0" or rs("dt_adm")= "" or (data_nasc - dt_adm) < 18 or (data_nasc - dt_adm) > 70 Then%> <td bgcolor=#eeeeee> <input type="text" name="adm<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("dt_adm") %>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= rs("dt_adm") %></span></td> <%End IFnorm = "N"esp = "E"IF IsNull(rs("tp_apos")) OR rs("tp_apos") = "0" or rs("tp_apos") = "" or rs("tp_apos") < norm or rs("tp_apos") < esp Then%> <td> <input type="text" name="apos<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("tp_apos") %>"> </td> <%Else%> <td><span class="style2"><%= rs("tp_apos") %></span></td> <%End IFsalario = FormatNumber(rs("salario"))IF IsNull(rs("salario")) OR rs("salario") = "0" or rs("salario") = "" or salario < 380.50 Then%> <td bgcolor=#eeeeee> <input name="sal<%=cont%>" type="text" style="background:#D2F7DB" size ="10" value ="<%= salario %>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= salario %></span></td> <%End IFIF IsNull(rs("n_dep")) OR rs("n_dep") = "" Then%> <td> <input type="text" name="fils<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("n_dep") %>"> </td> ") <%Else%> <td> <input type="text" name="fils" size="3" value="<%= rs("n_dep") %>"> </td> <%End IFestd = estado(rs("est_civ"))vago = (rs("dt_conj") = "")IF IsNull(rs("dt_conj")) OR estd <> casado or vago Then%> <td bgcolor=#eeeeee> <input name="conj<%=cont%>" type="text" style="background:#D2F7DB" size ="10" value ="<%= rs("dt_conj") %>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= rs("dt_conj") %></span></td> <%End IFdt_fl1 = Dtatual(rs("dt_nf1")) IF IsNull(rs("dt_nf1")) OR rs("dt_nf1") = "0" or rs("dt_nf1") = "" or rs("n_dep") = 0 or data_nasc - dt_fl1 =< 15 Then%> <td> <input type="text" name="f1<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("dt_nf1") %>"> </td> <%Else%> <td><span class="style2"><%= rs("dt_nf1") %></span></td> <%End IFdt_fl = Dtatual(rs("dt_nf2")) IF IsNull(rs("dt_nf2")) OR rs("dt_nf2") = "0" or rs("n_dep") <= 1 or data_nasc - dt_fl =< 15 Then%> <td bgcolor=#eeeeee> <input name="f2<%=cont%>" type="text" style="background:#D2F7DB" size ="10" value ="<%= rs("dt_nf2") %>"> </td> <%Else%> <td bgcolor=#eeeeee><span class="style2"><%= rs("dt_nf2") %></span></td> <%End IFIF IsNull(rs("dt_nf3")) OR rs("dt_nf3") = "0" or rs("n_dep") = 3 Then%> <td> <input type="text" name="f3<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("dt_nf3") %>"> </td> <%Else%> <td><span class="style2"><%= rs("dt_nf3") %></span></td> <%End IfIF IsNull(rs("dt_nf4")) OR rs("dt_nf4") = "0" or rs("n_dep") = 4 Then%> <td> <input type="text" name="f4<%=cont%>" style="background:#D2F7DB" size ="10" value ="<%= rs("dt_nf4") %>"> </td> <%Else%> <td><span class="style2"><%= rs("dt_nf4") %></span></td> <%End IfIF IsNull(rs("dt_nf5")) OR rs("dt_nf5") = "0" or rs("n_dep") = 5 Then%> <td> <input type="text" name="f5<%=cont%>" size ="10" value ="<%= rs("dt_nf5") %>"> </td> <%Else%> <td><span class="style2"><%= rs("dt_nf5") %></span></td> <%End If%> <td><span class="style2"> <%=rs("dt_ult_atual")%></span></td> <%totalregistros=totalregistros+contrs.MoveNextLoop%> <input type="hidden" name="hidTotalRegistros" value="<%=totalregistros%>"> </form> <% response.write "</tr>" %> </table> <% Set rs = NothingConn.CloseSet Conn = Nothing %>
essa página faz o update do campo matr, mas tem que fazer de todos os campos que correspondam à linha do id que está sendo alterada
<%tipo = Request.Form("tipo")municipio = Request.Form("municipio")set Conn=server.CreateObject("ADODB.Connection")Conn.open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/caminho do bd.mdb")sq1 = "Select * from Ativos where tipo = '"&tipo&"' and entidade = '"&municipio&"' "Set RS = Conn.execute (sq1)totalregistros=Request("hidTotalRegistros")on error resume nextFor cont=1 to totalregistroscodigo="id"&contvarCodigo=Request(codigo)valor="matr"&contvarValor=Request(valor)strSql="Update Ativos set matricula = "& varValor &" where id="& varCodigo &""Conn.execute(strSql)NextSet RS = NothingConn.CloseSet Conn = Nothing %>Carregando comentários...