Ir para conteúdo
Fórum Script Brasil

acfelipesilva

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    9

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que acfelipesilva postou

  1. acfelipesilva
    Obrigado!
  2. acfelipesilva
    Vou listar o sistema por partes, o código está todo dividido, ok? Bom, o campo processo,tá no input como procno, quando digito no input não tem nenhuma rotina de verificação se é numero ou não, esse formulário pequisa, exclui, edita e inserir tudo em uma única página asp, a questão da upload aí q você está vendo, entenda como se fosse request.form() da vida, ok,... Meu problema é onde nesse código que tenho que mexer para que permita gravar no processo não só numeros mas tambem "/", "-", "*", etc... Tentei colocar no momento de executar a sql de inserção o processo como '" + processo + "', porém não funcionou, na hora que clicava me gravar a página passava horas para executar, quando executava... Acho que´agora as coisas ficaram mais transparentes para você, mais uma vez, agradeço por sua ajuda!!! Augusto PARTE ASP set objCmm = CreateObject("ADODB.Connection") objCmm.Open Application("strConn") on error resume next Response.Expires=0 Response.Buffer = TRUE Response.Clear byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Dim clipConexao,AcaoBotao,vara,processo,dtaent , clipSql, DataNot, ano, mes, dia, anexarres, foto1, n, Assunto, Manchete, Fonte, Noticia, destinacao dim ID_ARQ,ID_TIPOARQ dim doc_nom,doc_caminho dim materia dim tipo_doc Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin If UploadRequest.Item("Gravar").Item("Value") = "Gravar" then 'If Request("Gravar") = "Gravar" Then materia = UploadRequest.Item("materia").Item("Value") destinacao = UploadRequest.Item("destinacao").Item("Value") dtaent =UploadRequest.Item("dtaent").Item("Value") ano = cstr(year(dtaent)) mes = mid(dtaent,4,2) dia = mid(dtaent,1,2) dtaent = ano + "-" + mes + "-" + dia processo = UploadRequest.Item("procno").Item("Value") vara = UploadRequest.Item("varano").Item("Value") arquivo = UploadRequest.Item("anexarres").Item("Value") hoje = date() anoatual = cstr(year(hoje)) mesatual = mid(cstr(100 + month(hoje)),2,2) diaatual = mid(cstr(100 + day(hoje)),2,2) hoje = anoatual + "-" + mesatual + "-" + diaatual pasta= (server.mappath("\"))& "\portaljuridico\arquivos\" contentType = UploadRequest.Item("anexarres").Item("ContentType") filepathname = UploadRequest.Item("anexarres").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) filename = Replace( ucase(filename),".","_" & materia & filepathname2 &".") value = UploadRequest.Item("anexarres").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 Set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists( pasta & filename ) Then mensagem="Já existe um arquivo cadastrado com este nome, Favor alterar arquivo" Response.Write("<script language='JavaScript'>alert('" & mensagem & "');</script>") Else if filepathname <> "" then Set MyFile = ScriptObject.CreateTextFile(pasta & filename) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close end if if err.number <> 0 then mensagem = err.description else inserir = "Set nocount on insert into tbresenha values(" + processo + "," + vara inserir = inserir + ",'" + dtaent + "','1753-01-01 00:00:00.000','" + materia inserir = inserir + "','" + filename + "','',0,'1753-01-01 00:00:00.000',0,'" inserir = inserir + login + "','"+ hoje + "','1753-01-01 00:00:00.000', '" + destinacao + "')" set objCmm1 = CreateObject("ADODB.Connection") objCmm1.Open Application("strConn") set rs = objCmm1.Execute(inserir) if objCmm1.Errors.Count <> 0 then Response.Write "Ocorreu um erro nesta página!<BR>" Response.Write "Número do erro: " & Err.number & "<BR>" Response.Write "Descrição fornecida: " & Err.Description & "<BR>" mensagem = "Erro na Inclusão!" else mensagem = "Operação com Sucesso" end if objCmm1.Close() set objCmm1 = nothing Response.Write("<script language='JavaScript'>alert('" & mensagem & "');</script>") end if End If inserir = "Set nocount on insert into tbresenha values(" + processo + "," inserir = inserir + vara + ",'" + dtaent + "','1753-01-01 00:00:00.000','" inserir = inserir + materia + "','" + arquivo + "','',0,'1753-01-01 00:00:00.000',0,'" inserir = inserir + login + "','"+ hoje + "','1753-01-01 00:00:00.000', '" + destinacao + "')" set objCmm1 = CreateObject("ADODB.Connection") objCmm1.Open Application("strConn") set rs = objCmm1.Execute(inserir) objCmm1.Close set objCmm1 = nothing End If If UploadRequest.Item("Pesquisar").Item("Value") = "Pesquisar" Then sql = "select numRes_NumProc, numRes_NumVar, dtmRes_DatRes, " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha ORDER BY dtmRes_DatRes desc " If UploadRequest.Item("materia").Item("Value") = "TRABALHISTA" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where vchRes_MatJur = 'TRABALHISTA'" End If If UploadRequest.Item("materia").Item("Value") = "CIVEL" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where vchRes_MatJur = 'CIVEL'" End If If UploadRequest.Item("materia").Item("Value") = "OUTROS" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where vchRes_MatJur = 'OUTROS'" End If If UploadRequest.Item("destinacao").Item("Value") = "CACON" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where ResDestinacao = 'CACON'" End If If UploadRequest.Item("destinacao").Item("Value") = "CAGER" Then sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', " sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, " sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, " sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu', Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', ResDestinacao from tbresenha" sql = sql + " Where ResDestinacao = 'CAGER'" End If If UploadRequest.Item("dtaent").Item("Value") <> "" Then data = UploadRequest.Item("dtaent").Item("Value") ano = cstr(year(data)) mes = mid(cstr(100 + month(data)),2,2) dia = mid(cstr(100 + day(data)),2,2) sql = sql + " and dtmRes_DatRes = '" + ano + "-" + mes + "-" + dia + "'" End If If UploadRequest.Item("procno").Item("Value") <> "" Then sql = sql + " and numRes_NumProc = " + UploadRequest.Item("procno").Item("Value") End If If UploadRequest.Item("varano").Item("Value") <> "" Then sql = sql + " and numRes_NumVar = " + UploadRequest.Item("varano").Item("Value") End If set objCmm2 = CreateObject("ADODB.Connection") set sqlC = server.CreateObject("ADODB.Recordset") objCmm2.Open Application("strConn") SET sqlC = objCmm2.Execute (sql) End If If UploadRequest.Item("Excluir").Item("Value") = "Excluir" Then 'If Request("Excluir") = "Excluir" Then chave1 = UploadRequest.Item("chave1").Item("Value") 'chave1 = request("chave1") ano = cstr(year(chave1)) mes = mid(chave1,4,2) dia = mid(chave1,1,2) chave1 = ano + "-" + mes + "-" + dia chave2 = UploadRequest.Item("chave2").Item("Value") chave3 = UploadRequest.Item("chave3").Item("Value") 'chave2 = request("chave2") 'chave3 = request("chave3") excluir = "Set nocount on delete from tbresenha Where numRes_NumProc = '" + chave2 + "' and numRes_NumVar = " + chave3 excluir = excluir + " and dtmRes_DatRes = '" + Chave1 + "'" set objCmm1 = CreateObject("ADODB.Connection") objCmm1.Open Application("strConn") set rs = objCmm1.Execute(excluir) objCmm1.Close set objCmm1 = nothing 'Response.Write(chave1) 'Response.Write(chave2) 'Response.Write(chave3) 'Response.Write(excluir) 'Response.End() If chave2 <> "" Then Response.Write("<script language='JavaScript'>alert('" & "Registro excluído com sucesso" & "');</script>") End If End If Set objScap1 = Server.CreateObject("SCAP1.clsSisLock") objScap1.UsuarioLogin = Session("Login") wResultAtual = objScap1.Mensagem If wResultAtual <> vb script:VerConteudo window.event.keycode"></td> </tr> <tr> <td ><font class="textoss">Anexar Resenha:</font></td> <td align="left"> <input name="anexarres" type="file" class="textoss" value="Localizar" > </tr> <tr> </table> </td> </tr> </table> <br > <div class="links" style="position:relative; width:620; height:200;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto"> <table width="600" class="borda" align="center" border="0"> <tr> <td width="2%"><font class="textoss">&nbsp;</font></td> <td ><font class="textoss">Matéria</font></td> <td ><font class="textoss">Dt. Ent</font></td> <td ><font class="textoss">Processo No</font></td> <td ><font class="textoss">Vara No</font></td> <td ><font class="textoss">Arquivo - Resenha</font></td> <td ><font class="textoss">Destino</font></td> </tr> RESTANTE DA PARTE ASP Contador = 0 IF not sqlC.EOF then CorAtu = "#FFFFFF" while not sqlC.EOF If contador = 0 then contador = 1 %> <tr bgcolor="#C2E9A9"> <%else contador = 0 %> <tr bgcolor="#ffffff"> <%End if %> <%chave = cstr(sqlC("dtmRes_DatRes")) + "@" + + cstr(sqlC("numRes_NumProc")) + "@" +cstr(sqlC("numRes_NumVar"))%> <td width="2%"><input style=" border:none;" id="selecao" name="selecao" type="radio" value="<%=chave%>" onclick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" value="Pesquisar" name="Pesquisar" onClick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" value="Excluir" name="Excluir" onClick="vb script:this.className='bt'" style="width:65" value="Gravar" name="Gravar" onClick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" type="button" value="Retornar" name="Retornar" onClick="self.location='inicial.asp'">&nbsp; </td> </tr> </table> <td align="left"><input type="hidden" name="chave1" class="textoss" id="Chave1" size="20" maxlength="30"></td> <td align="left"><input type="hidden" name="chave2" class="textoss" id="chave2" size="20" maxlength="30"></td> <td align="left"><input type="hidden" name="chave3" class="textoss" id="chave3" size="20" maxlength="30"></td> </form> </body> </html> <%objCmm.close() set objCmm = nothing %> <!--#include file="upload.asp"-->
  3. acfelipesilva
    Eu negritei abaixo para você ... ( o campo é procno)...
  4. acfelipesilva
    Olá Andreia_SP O código faz tudo na mesma página, insere, atualiza, exclui e pesquisa... Eu sinceramente não consegui ver onde devo alterar para ajustar o campo para receber os caracteres especiais... Se você conseguir (aleluia) pois tá dificil pra mim (rs)... Obrigado por qualquer tipo de ajuda! ---------- script inteiro --------------------------------------- <%@LANGUAGE="vb script:VerConteudo window.event.keycode"></td> </tr> <tr> <td ><font class="textoss">Anexar Resenha:</font></td> <td align="left"> <input name="anexarres" type="file" class="textoss" value="Localizar" > </tr> <tr> </table> </td> </tr> </table> <br > <div class="links" style="position:relative; width:620; height:200;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto"> <table width="600" class="borda" align="center" border="0"> <tr> <td width="2%"><font class="textoss">&nbsp;</font></td> <td ><font class="textoss">Matéria</font></td> <td ><font class="textoss">Dt. Ent</font></td> <td ><font class="textoss">Processo No</font></td> <td ><font class="textoss">Vara No</font></td> <td ><font class="textoss">Arquivo - Resenha</font></td> <td ><font class="textoss">Destino</font></td> </tr> <% Contador = 0 IF not sqlC.EOF then CorAtu = "#FFFFFF" while not sqlC.EOF If contador = 0 then contador = 1 %> <tr bgcolor="#C2E9A9"> <%else contador = 0 %> <tr bgcolor="#ffffff"> <%End if %> <%chave = cstr(sqlC("dtmRes_DatRes")) + "@" + + cstr(sqlC("numRes_NumProc")) + "@" +cstr(sqlC("numRes_NumVar"))%> <td width="2%"><input style=" border:none;" id="selecao" name="selecao" type="radio" value="<%=chave%>" onclick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" value="Pesquisar" name="Pesquisar" onClick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" value="Excluir" name="Excluir" onClick="vb script:this.className='bt'" style="width:65" value="Gravar" name="Gravar" onClick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" type="button" value="Retornar" name="Retornar" onClick="self.location='inicial.asp'">&nbsp; </td> </tr> </table> <td align="left"><input type="hidden" name="chave1" class="textoss" id="Chave1" size="20" maxlength="30"></td> <td align="left"><input type="hidden" name="chave2" class="textoss" id="chave2" size="20" maxlength="30"></td> <td align="left"><input type="hidden" name="chave3" class="textoss" id="chave3" size="20" maxlength="30"></td> </form> </body> </html> <%objCmm.close() set objCmm = nothing %> <!--#include file="upload.asp"--> ------------------------ fim do script ---------------------------------
  5. acfelipesilva
    Oi Andreia_SP! O campo processo dever permitir a inserção de caracteres especiais e gravar na base de dados... Exemplificando: Do jeito que o script está hoje só permite gravar números, na verdade, ele tem que permitir gravar qualquer dado alfa-numérico... Acho que agora está mais claro, né? Desculpe, por não ter sido mais "claro" com as idéias (rs)... Grato por qualquer ajuda! Augusto
  6. acfelipesilva
    Olá a todos, Sou bastante novo nessa área de programação, gostaria da ajuda de vocês na elaboração de um rotina de pesquisa onde eu consiga trazer os resultados para o formulário, sem modificar o funcionamento das outras funções, scripts, rotinas, etc... Vou postar o código-fonte do formulário, como não fui eu que fiz, estou encarregado de fazer a manutenção, e foi solicitado a inclusão de um notão de pesquisa por destino (numero de advogado) nesse form... Tentei mexer mas sempre dando problema, alguém aí sabe como montar essa rotina???????? Desde já agradeço, <%@LANGUAGE="vb script:checado()" /><font class="textoss">Arquivo</font> </td> </tr> <tr> <td ><font class="textoss">Prazo:</font></td> <td align="left"><input name="prazo" type="text" class="textoss" id="prazo" size="10" maxlength="10" onKeyPress="return txtBoxFormat(document.resenhacager, 'prazo', '99/99/9999', event)" onBlur="java script:Valida_data(prazo,prazo,'Anterior','','','')"></td> </tr> </table> <br /> <div class="links" style="position:relative; width:620; height:200;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto"> <table width="600" class="borda" align="center" border="0"> <tr> <td width="2%"><font class="textoss">&nbsp;</font></td> <td ><font class="textoss">Matéria</font></td> <td ><font class="textoss">Dt. Ent</font></td> <td ><font class="textoss">Processo No</font></td> <td ><font class="textoss">Vara No</font></td> <td ><font class="textoss">Arquivo - Resenha</font></td> <td ><font class="textoss">Destino</font></td> <td ><font class="textoss">Data Env. Adv.</font></td> <td ><font class="textoss">Vis. p/ Adv.</font></td> <td ><font class="textoss">Dat. Acesso</font></td> <td ><font class="textoss">Prazo</font></td> </tr> <% Contador = 0 IF not sqlC.EOF then CorAtu = "#FFFFFF" while not sqlC.EOF If contador = 0 then contador = 1 %> <tr bgcolor="#C2E9A9"> <%else contador = 0 %> <tr bgcolor="#ffffff"> <%End if %> <% chave = cstr(sqlC("dtmRes_DatRes")) + "@" + + cstr(sqlC("numRes_NumProc")) + "@" +cstr(sqlC("numRes_NumVar")) %> <td width="2%"><input style=" border:none;" id="Selecionado" name="Selecionado" type="radio" value="<%=chave%>" name="list" onclick="vb script:window.open('arquivos/<%=sqlC("vchRes_Anexo")%>')" value="<%=sqlC("vchRes_Anexo")%>"><%=sqlC("vchRes_Anexo")%></font></td> <td ><font class="textosc" value="<%=sqlC("numRes_EncAdv")%>"><%=sqlC("numRes_EncAdv")%></font></td> <%If sqlC("dtmRes_DatEnc") = "01/01/1753" Then %> <td ><font class="textosc" value="<%=sqlC("dtmRes_DatEnc")%>"></font></td> <%else %> <td ><font class="textosc" value="<%=sqlC("dtmRes_DatEnc")%>"><%=sqlC("dtmRes_DatEnc")%></font></td> <%End If %> <%If sqlC("chrRes_StaVis") = "N" Then %> <td align=center><font class="textosc" value="N")>NÃO</font></td> <%Else If sqlC("chrRes_StaVis") = "S" Then%> <td align=center><font class="textosc" value="S")>SIM</font></td> <%Else%> <td align=center><font class="textosc" value="S")> </font></td> <%End If %> <%End If %> <%If sqlC("dtmRes_DatVis") = "01/01/1753" Then %> <td ><font class="textosc" value="<%=sqlC("dtmRes_DatVis")%>"></font></td> <%Else %> <td ><font class="textosc" value="<%=sqlC("dtmRes_DatVis")%>"><%=sqlC("dtmRes_DatVis")%></font></td> <%End If %> <%If sqlC("dtmRes_Prz") = "01/01/1753" Then %> <td ><font class="textosr" value="<%=sqlC("dtmRes_Prz")%>"></font></td> <%Else If sqlC("diferenca") <= 2 Then %> <td class="textosr"><font value="<%=sqlC("dtmRes_Prz")%>"><%=sqlC("dtmRes_Prz")%></font></td> <%else %> <td class="textosc"><font value="<%=sqlC("dtmRes_Prz")%>"><%=sqlC("dtmRes_Prz")%></font></td> <%End if %> <%End If %> </tr> <%sqlC.moveNext wEnd Else%> <tr bgcolor="#C2E9A9"> <td colspan=11 align=center> <font face="Arial, Helvetica, sans-serif" size="1" color="#000000" >Nenhuma informação foi localizada.</font></td> </tr> <%end if %> </table> </div> <br /> <div id="mensagem_layer" style="cursor: pointer; position:absolute; width:500px; height:80px; z-index:1; visibility: hidden; overflow: hidden; left: 80px; top: 360px; background-color: #F0F9FF; layer-background-color: #F0F8FF; border: 1px none #000000;" onClick="consultarADV(document.resenhacager.chave4.value)"> <table width="100%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#6495ED"> <tr> <td align="center"><input type="hidden" name="chave4" class="textoss" id="chave4" size="20" maxlength="30"/> <font size="1" face="Verdana"><b> O Advogado selecionado foi:<br> <% 'listaADV = "select at_NOME from sapj2000..vw_advogados_terc where at_usuar_logname = '6990'" 'set objCmm = CreateObject("ADODB.Connection") 'set listaC = server.CreateObject("ADODB.Recordset") 'objCmm.Open Application("strConn") 'SET listagem = objCmm.Execute (listaADV) 'response.Write(listagem("at_nome")) 'Response.Write ("<br>") %> <u>fechar</u><br></font> </td> </tr> </table> </div> <table width="600" align="center"> <tr> <td colspan="10" align="center"> <input class="bt" onMouseOut="java script:this.className='bt'" style="width:65" value="Gravar" name="Gravar" onClick="vb script:this.className='bt'" onMouseOver="java script:this.className='bthover'" style="width:65" type="button" value="Retornar" name="Retornar" onClick="self.location='inicial.asp'" <%=objScap1.RestObj (55)%>>&nbsp; </td> </tr> </table> <td align="left"><input type="hidden" name="chave1" class="textoss" id="Chave1" size="20" maxlength="30"></td> <td align="left"><input type="hidden" name="chave2" class="textoss" id="chave2" size="20" maxlength="30"></td> <td align="left"><input type="hidden" name="chave3" class="textoss" id="chave3" size="20" maxlength="30"></td> </form> </body> </html> <% objCmm.close set objCmm = Nothing %>
  7. acfelipesilva
    Olá gente, Meu problema é o seguinte tenho um formulário ASP onde gravo e consulto datas, porém quando estou com problemas na hora de consulta e alterar qualquer dado do meu formulário, dá um erro... Gostaria que o usuário no momento que fosse digitar para gravr ou consultar a data, a mesma fosse mostrada no formato brasileiro, porém no banco SQL Server continuasse a formatação america, ou seja: CONSULTA, ALTERAR, GRAVAR NO FORMULÁRIO: DD-MM-AAAA NO Banco de dados SQL Server FICARIA AAAA-MM-DD. Como faço isso? Sempre post algumas dúvidas aqui e nunca consigo respostas, será que dessa vez vai... Grato a todos, Vou postar o código para ver se ajuda, ok!
  8. acfelipesilva
    Olá Gente, Estou tentando atualizar meus dados através de páginas asp com BD SQl Server, mas toda vez que tento aparece o erro abaixo: Número do erro: -2147217908 Descrição fornecida: Command text was not set for the command object. Peço a vocês que possuem muito mais experiência, pois eu nunca havia me deparado com uma situação destas antes, postei os fontes das páginas e da stored procedure, para ver se vocês podem me dar uma luz... Grato a todos! cadastroterceirizado.asp <% response.cookies("id").expires = DateAdd("d",0,Now) response.expires=0 'vence instantaneamente Response.CacheControl = "Private" Dim sql sqlADV = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from sapj2000..vw_advogados_terc where ai_nivel in (2,3) order by at_nome" set objCmm = CreateObject("ADODB.Connection") set sqlC = server.CreateObject("ADODB.Recordset") objCmm.Open Application("strConn") SET sqlC = objCmm.Execute (sqlADV) codigo = request("codadv") numContrato = Request("numcontrato") If request("codadv") <> "0" and request("codadv")<>"" then codigo = request("codadv") stQuery = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from tbadvogados where ai_Codigo = " & codigo SET obRS = objCmm.Execute (stQuery) ai_Codigo = obRS("ai_CODIGO") at_END = obRS("at_END") at_UF = obRS("at_UF") at_CEP = obRS("at_CEP") at_TEL_FAX = obRS("at_TEL_FAX") at_CID = obRS("at_CID") controle="2" else ai_Codigo = "" at_END = "" at_UF = "" at_CEP = "" at_TEL_FAX = "" at_CID = "" controle="1" End if if numContrato <> "" and numContrato <> "0" then stQuery2 = "ConsultaContrato " & Codigo & " , " & numContrato set obRS2 = server.CreateObject("ADODB.Recordset") SET obRS2 = objCmm.Execute (stQuery2) at_contrato = obRS2("numadv_contrato") at_jurisdicao = obRS2("vchAdv_Jurisdicao") at_objeto = obRS2("vchAdv_Obj") at_inicio = obRS2("vchAdv_DatIni") at_fim = obRS2("vchAdv_DatFim") at_origem= obRS2("vchAdv_OriCon") at_dirger= obRS2("vchAdv_GesDir") at_gereg = obRS2("vchAdv_GesGer") at_agencia=obRS2("vchAdv_GesAg") obRS2.close() set obRS2=nothing else at_contrato = "" at_jurisdicao = "" at_objeto = "" at_inicio="" at_fim="" at_origem="" at_dirger="0" at_gereg = "0" at_agencia="0" End if %> <html> <head> <meta http-equiv="Content-Language" content="pt-br"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>portaljuridico - Portal Juridico</title> <link rel="stylesheet" type="text/css" href="http://basanet/estilos/css.css"> <link rel="stylesheet" type="text/css" href="estilos/css.css"> <!-- #include file="ValidaData.Inc" --> </head> <script language="JavaScript"> function txtBoxFormat(objForm, strField, sMask, evtKeyPress) { var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla; if(document.all) { // Internet Explorer nTecla = evtKeyPress.keyCode; } else if(document.layers) { // Nestcape nTecla = evtKeyPress.which; } sValue = objForm[strField].value; // Limpa todos os caracteres de formatação que // já estiverem no campo. sValue = sValue.toString().replace( "-", "" ); sValue = sValue.toString().replace( "-", "" ); sValue = sValue.toString().replace( ".", "" ); sValue = sValue.toString().replace( ".", "" ); sValue = sValue.toString().replace( "/", "" ); sValue = sValue.toString().replace( "/", "" ); sValue = sValue.toString().replace( "(", "" ); sValue = sValue.toString().replace( "(", "" ); sValue = sValue.toString().replace( ")", "" ); sValue = sValue.toString().replace( ")", "" ); sValue = sValue.toString().replace( " ", "" ); sValue = sValue.toString().replace( " ", "" ); fldLen = sValue.length; mskLen = sMask.length; i = 0; nCount = 0; sCod = ""; mskLen = fldLen; while (i <= mskLen) { bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/")) bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " ")) if (bolMask) { sCod += sMask.charAt(i); mskLen++; } else { sCod += sValue.charAt(nCount); nCount++; } i++; } objForm[strField].value = sCod; if (nTecla != 8) { // backspace if (sMask.charAt(i-1) == "9") { // apenas números... return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9 else { // qualquer caracter... return true; } } else { return true; } } //Fim da Função Máscaras Gerais </script> <script language="vb script:buscarAdvogado2()"> <option selected value="0">Selecione um Nome</option> <%while not sqlC.EOF if codadv <> "0" Then if trim(sqlC("ai_CODIGO")) = trim(ai_CODIGO) Then%> <option selected value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><% else%> <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><% end if else%> <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option> <%end if sqlC.moveNext wend%> </select> </td> </tr> </table> <br> <table width="540" class="borda" align="center" border="0"> <tr> <td width="140"><font class="textoss"> Endereço:</font> </td> <td align="left" colspan="5"><input name="endereco" type="text" class="textoss" id="endereco" size="60" maxlength="80" readonly value="<%=at_end%>"> </td> </tr> <tr> <td width="140"><font class="textoss">Cidade:</font></td> <td align="left"><input name="cidade" type="text" class="textoss" id="cidade" size="20" maxlength="30" readonly value="<%=at_CID%>"></td> <td align="right"><font class="textoss">UF:</font></td> <td align="left"><input name="UF" type="text" class="textoss" id="UF" size="2" maxlength="2" readonly value="<%=at_uf%>"></td> </tr> <tr> <td align="left" width="140"><font class="textoss">CEP:</font></td> <td align="left"><input name="cep" type="text" class="textoss" id="cep" size="8" maxlength="8" readonly value="<%=at_cep%>"></td> </tr> <tr> <td align="left" width="140"><font class="textoss">Tel / Fax:</font></td> <td align="left"><input name="tel" type="text" class="textoss" id="tel" size="25" maxlength="25" readonly value="<%=at_TEL_FAX%>"></td> </tr> </table> <br> <% 'Response.write "controle: " & "-" & controle & len(controle) if controle= " " or len(controle)= 0 or controle= "2" then 'if controle= "0" or len(controle)= 0 then %> <div id="carregando" align="center"> <table width="540" class="borda" align="center" border="0"> <tr> <td width="140"><font class="textoss"> Origem do Contrato:</font> </td> <td align="left"><select name="origem" id="origem"> <option selected value="">Selecione</option> <option value="CREDENCIADOS">Credenciado</option> <option value="DIRETAS">Contratação Direta</option> <option value="EXTRAJUDICIAIS">Cobrança Extrajudicial</option> <option value="LICITADOS">Contratação Licitação</option> </select> <script>document.advogados.origem.value="<%=at_origem%>";</script> </td> <td rowspan="7" width="10">&nbsp; </td> </tr> <tr> <td width="140"><font class="textoss"> Número do Contrato:</font> </td> <td align="left"><input name="numcontrato" type="text" class="textoss" id="numcontrato" size="20" maxlength="30" OnKeyPress="vb script:Valida_data(iniciovig,iniciovig,'','','','')" value="<%=at_inicio%>" title="Inicio"> </td> </tr> <tr> <td width="120" align="center"><font class="textoss">Término:</font> </td> <td align="left"><input name="fimvig" type="text" class="textoss" id="fimvig" size="10" onKeyPress="return txtBoxFormat(document.advogados, 'fimvig', '99/99/9999', event)" maxlength="10" onBlur="java script:Valida_data(fimvig,fimvig,'','','','')" value="<%=at_fim%>" title="Término"> </td> </tr> <tr> <td width="120" align="center"><font class="textoss">Objeto:</font> </td> </tr> <tr> <td colspan="2" align="center"> <textarea name="objtext" cols="30" rows="4" class="textoss" id="objtext"> </textarea> <script>document.advogados.objtext.value="<%=trim(at_objeto)%>";</script> </td> </tr> <!--/table--> <!--/div--> <%'end if%> </table> <br><div align="center"> <input type="button" value="Atualizar" onClick="incluir()" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" > &nbsp;&nbsp; <input onClick="reset2()" value="Limpar" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit2" name="submit2" size="20">&nbsp;&nbsp; <input type="button" value="Fechar" onClick="self.location='inicial.asp'" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit3" name="submit3">&nbsp;&nbsp; <br></div> <!--CADASTRO--> <table width="600" class="borda" align="center" border="0"> <tr> <td width="100%" ALIGN="CENTER"> <div style="position:relative; width:600; height:145;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">&nbsp;<div class="links"> <table width="84%" border="0" cellspacing="0" cellpadding="0" bgcolor="#Fffffb" height="40"> <tr> <td height="20" valign="top" width="2%">&nbsp;</td> <td height="20" valign="top" width="96%"> <table width="100%" style="border-bottom: 1 solid #999999" class="textosleft"> <tr bgcolor="#008000"> <td width="40%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b><font class="textoss">Número do Contrato</b></font></td> <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Origem do Contrato:</b></font></td> <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Status do Contrato:</b></font></td> </tr> </table> </td> <td height="0" valign="top" width="2%">&nbsp;</td> </tr> <tr> <td height="85" valign="top" bgcolor="#Fffffb" width="2%"></td> <td height="85" valign="top" bgcolor="#Fffffb" width="50%"> <div style="position:relative; width:100%; height:80; visibility: visible;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto"> <table width="100%" border="0" bgcolor="#Fffffb" cellspacing="0" cellpadding="0"> <% set listagem = server.CreateObject("ADODB.Recordset") if codigo <> "" then sql2 = "select top 10 * from tbAdvogado where numAdv_Codigo=" & codigo & "order by dtmAdv_datuma desc" else sql2 = "select * from tbAdvogado order by dtmAdv_datuma " end if SET listagem = objCmm.Execute (sql2) IF not listagem.EOF then CorAtu = "#FFFFFF" while not listagem.EOF%> <tr bgcolor="<%=CorAtu%>" style="cursor:hand" onMouseOver="java script:this.className='linkover'" onMouseOut="java script:this.className='linkout'"> <td width="40%" bgcolor="<%=CorAtu%>" class="textosleft" style=" cursor: hand" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="left"><img border="0" src="images/BtnGridEdit.gif" WIDTH="16" HEIGHT="16">&nbsp;<%=listagem("numAdv_contrato").value%></div></font></td> <td class="textoscenter" width="30%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="center"><%=listagem("vchAdv_OriCon").value%></div></font></td> <td class="textoscenter" width="30%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000"><div align="center"><%=listagem("statusctr").value%></div></font></td> <%'codadv if CorAtu = "#FFFFFF" then CorAtu = "#E9E9E9" else CorAtu = "#FFFFFF" end if listagem.MoveNext i = i + 1 wend else %> <tr bgcolor="<%=CorAtu%>" border="0"> <td class="textosleft" width="70%" class="border" bgcolor="#Fffffb"> <div align="center"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000">O advogado não possui contrato vinculado</font></div> </td> </tr> <% end if listagem.Close() set listagem=nothing %> </table> </div> </td> </tr> </table> </div> </tr> </table> </div> <%end if%> <script language="vbscript"> function buscarAdvogado2() if document.advogados.Adv.value <> "" then navigate("cadastroterceirizado_atualiza.asp?codadv=" & document.advogados.Adv.value) end if end function </script> </form> </body> </html> <% objCmm.Close() set objCmm=nothing %> ------------------------------------------------------------//--------------------------------------- CadTer_Atualiza.asp <HTML> <HEAD> </HEAD> <BODY> <% Dim UserID, wUserName, wDominio, wUser, oUser UserID = "" If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then UserID = Request.ServerVariables("LOGON_USER") UserID = LCase(UserID) If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then Response.Status = "401 Acesso Negado" Response.Write ("Negado. Você não está autorizado a este site.") Response.End Else UserID = Replace(UserID, "\", "/") If InStr(UserID, "/") < 1 Then UserID = "defaultdomain/" & UserID End If End If End If GetName = "" wUserName = "Usuário não cadastrado" mudar = Split(UserID, "/") wDominio = mudar(0) wUser = mudar(1) Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser) wUserName = oUser.FullName If err.Number <> 0 Then err.Clear wUserName = "erro - Usuário não cadastrado" End If Session("UsuarioLogado") = wUserName Session("Login") = UCase(wUser) Session("Dominio") = UCase(wDominio) sug_dominio = UCase(wDominio) login = UCase(wUser) sisid="1" on error resume next Response.Expires=0 Response.Buffer = TRUE Response.Clear byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Dim clipConexao , clipSql, DataNot, ano, mês, dia, foto, foto1, n, Assunto, Manchete, Fonte, Noticia dim ID_ARQ,ID_TIPOARQ dim doc_nom,doc_caminho dim materia dim tipo_doc Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin 'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO 'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\" 'TIPO DO ARQUIVO(WORD,FOTO) 'contentType = UploadRequest.Item("foto").Item("ContentType") 'CAMINHO FÍSICO COMPLETO DO ARQUIVO 'pega o valor do documento 'filepathname2 = UploadRequest.Item("agencia").Item("Value") '0 '1 fileEndereco = UploadRequest.Item("endereco").Item("Value") fileCidade = UploadRequest.Item("cidade").Item("Value") fileUf = UploadRequest.Item("Uf").Item("Value") fileCep = UploadRequest.Item("cep").Item("Value") filetel= UploadRequest.Item("tel").Item("Value") '2 fileOrigem = UploadRequest.Item("origem").Item("Value") filenumcontrato = UploadRequest.Item("numcontrato").Item("Value") filedirger = UploadRequest.Item("dirger").Item("Value") filegereg = UploadRequest.Item("gereg").Item("Value") fileAgencia = UploadRequest.Item("agencia").Item("Value") filejurisdicao = UploadRequest.Item("jurisdicao").Item("Value") fileAdv = UploadRequest.Item("Adv").Item("Value") fileIniciovig = UploadRequest.Item("iniciovig").Item("Value") if fileIniciovig="" then fileIniciovig= "17530101" else fileIniciovig= right(fileIniciovig,4) & right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 ) end if fileFimvig = UploadRequest.Item("fimvig").Item("Value") if fileFimvig="" then fileFimvig= "17530101" else fileFimvig= right(fileFimvig,4) & right(left( fileFimvig ,5 ),2) & left(fileFimvig,2 ) end if fileObjtext = UploadRequest.Item("objtext").Item("Value") filedtastatus = UploadRequest.Item("dtastatus").Item("Value") if filegereg= "" then filegereg="0" end if if fileAgencia= "" then fileAgencia="0" end if 'criando a variavel de conexao set objCmm = CreateObject("ADODB.Connection") 'criando a variavel do recordset set sqlC = server.CreateObject("ADODB.Recordset") 'fazer a minha variavel de conexao receber a conexao do global asa objCmm.Open Application("strConn") if filedirger = "" then filedirger="0" end if if filegereg = "" then filegereg="0" end if if fileAgencia = "" then fileAgencia="0" end if if filejurisdicao="" then filejurisdicao= "0" end if sql "exec sp_ATUALIZA_cadctrterceiro '" & login & "'," & fileAdv & ",'" & filenumcontrato & "','" & fileOrigem & "','" & filedirger & "' ,'" & filegereg & "'," & fileAgencia & ",'" & filejurisdicao &"','" & fileObjtext & "','" & fileIniciovig & "','" & fileFimvig &"','" & filedtastatus & "'" SET sqlC = objCmm.Execute (sql) if objCmm.Errors.Count <> 0 then Response.Write "Ocorreu um erro nesta página!<BR>" Response.Write "Número do erro: " & Err.number & "<BR>" Response.Write "Descrição fornecida: " & Err.Description & "<BR>" else Response.Write "Atualização com Sucesso!" end if objCmm.Close() set objCmm=nothing %> <!--#include file="upload.asp"--> </BODY> </HTML> -------------------------------------------------------------//------------------------------------------------- stored procedure de atualização - sql server 2000 ALTER PROCEDURE sp_ATUALIZA_cadctrterceiro -- Criado por Augusto César @Login varchar (50), @numAdv_codigo int, @numAdv_contrato varchar(50), @vchAdv_OriCon varchar (50) , @vchAdv_GesDir int, @vchAdv_GesGer int, @vchAdv_GesAg int , @vchAdv_Jurisdicao varchar(50), @vchAdv_Obj varchar (50) = null , @vchAdv_DatIni datetime = '17530101', @vchAdv_DatFim datetime = '17530101', @statusctr varchar (50) as set nocount on declare @dtmAdv_datuma datetime ,@vchAdv_Sta varchar (50) set @dtmAdv_datuma=getdate() /* EXECUTO O TESTE, UTILIZANDO IF...ELSE */ IF @vchAdv_DatFim > @dtmAdv_datuma BEGIN SET @statusctr = 'ATIVO' END ELSE IF @vchAdv_DatFim < @dtmAdv_datuma BEGIN SET @statusctr = 'ENCERRADO' END BEGIN TRAN BEGIN update tbAdvogado set vchAdv_OriCon=@vchAdv_OriCon ,vchAdv_GesDir=@vchAdv_GesDir,vchAdv_GesGer=@vchAdv_GesGer ,vchAdv_GesAg=@vchAdv_GesAg ,vchAdv_DatIni=@vchAdv_DatIni ,vchAdv_DatFim=@vchAdv_DatFim ,vchAdv_Obj=@vchAdv_Obj ,vchAdv_Sta=@vchAdv_Sta ,dtmAdv_datuma=@dtmAdv_datuma ,vchAdv_Jurisdicao =@vchAdv_Jurisdicao ,statusctr=@statusctr where numAdv_codigo=@numAdv_codigo and numAdv_contrato=@numAdv_contrato END BEGIN insert into tbMov_Advogado(numAdv_codigo,numAdv_contrato,vchAdv_OriCon,vchAdv_GesDir,vchAdv_GesGer,vchAdv_GesAg,vchAdv_DatIni,vchAdv_DatFim,vchAdv_Obj,vchAdv_Sta,vchAdv_Login,dtmAdv_datuma,vchAdv_Jurisdicao,statusctr) values(@numAdv_codigo,@numAdv_contrato,@vchAdv_OriCon,@vchAdv_GesDir,@vchAdv_GesGer,@vchAdv_GesAg,@vchAdv_DatIni,@vchAdv_DatFim,@vchAdv_Obj,@vchAdv_Sta,@login,@dtmAdv_datuma,@vchAdv_Jurisdicao,@statusctr) END if @@error=0 begin commit tran end else begin rollback end
  9. acfelipesilva
    Boa-tarde senhores(as) do conselho! Estou começando a trabalhar com asp, e pintou um pequeno problema inicial... Possuo duas tabelas: TBCOOPERATIVA e TBMUNICIPIO, sendo que a informação que as une é CODMUN, através dele consigo saber a que municipio pertence determinada cooperativa. Bom, meu problema é na página de inclusãod e cooperativa, pois gostaria que no campo CODMUN da tabela de cooperativas ficasse gravado o número, porém para o usuário que fosse digitar no formulário, aparecesse o municipio. Será que deu para sacar? A jogada é essa, no formulário aparecer os municpios, porém para gravar na tabela só fica os números correspondetes a estes municipios... Vou postar o código de inclusão da tabela cooperativa, para que alguém possa me ajudar.... e postar os dados de cada tabela que envolve o problema... tb_cooperativa #cnpcoo nomcoo codcadmun tb_municipio #codcadmun descmun uf <BODY class=texto_pagina> Links: <a href="<%=pagina_consulta%>" class="texto_pagina">Página de Consulta</a> | <a href="<%=pagina_inclusao%>" class="texto_pagina">Página de Inclusão<hr size=1 color=gainsboro></a><br> <% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" If campo_duplicado = false Then Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM TB_COOPERATIVA Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 objRS.Addnew() If objRS.Fields("CNPCOO").properties("IsAutoIncrement") = False Then objRS("CNPCOO") = Trim(Request.Form("CNPCOO")) End If If objRS.Fields("CODCADMUN").properties("IsAutoIncrement") = False Then objRS("CODCADMUN") = Trim(Request.Form("CODCADMUN")) End If If objRS.Fields("CODCOO").properties("IsAutoIncrement") = False Then objRS("CODCOO") = Trim(Request.Form("CODCOO")) End If If objRS.Fields("NOMCOO").properties("IsAutoIncrement") = False Then objRS("NOMCOO") = Trim(Request.Form("NOMCOO")) End If objRS.Update objRS.Close Set objRS = Nothing %> <BR><B>Registro salvo</B><BR>O registro foi cadastrado com sucesso.<BR><BR> <% Else %> <BR><B>Atenção!</B><BR><BR> O campo <%=campo_msg%> <i>"<%=valor_msg%>"</i> não pode ser salvo, pois já está cadastrado na tabela. <BR><A href="java script:history.go(-1)">Clique aqui</a> para voltar ao cadastro</A><BR><BR> <% End If objCon.Close Set objCon = Nothing Else Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 2 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM TB_COOPERATIVA Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 %> <B>Incluir um novo registro</B><BR>Preencha corretamente os dados abaixo:<BR> <form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onsubmit="return verifica_form(this);"> <TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario> <TR class=titulo_campos><TD>Cnpj<br> <%If objRS.Fields("CNPCOO").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="CNPCOO" maxlength="20" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" df_validar="cnpj" class=campos_formulario size="20"> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Código Município<br> <%If objRS.Fields("CODCADMUN").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="CODCADMUN" maxlength="6" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario size="20"> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Código Cadastral<br> <%If objRS.Fields("CODCOO").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="CODCOO" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario size="20"> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> <TR class=titulo_campos><TD>Nome<br> <%If objRS.Fields("NOMCOO").properties("IsAutoIncrement") = False Then%> <INPUT style="width=350" type="text" name="NOMCOO" maxlength="255" value="" onKeyPress="desabilita_cor(this)" df_verificar="sim" class=campos_formulario size="20"> <% Else Response.Write "<B>(Automático)</B>" End If %> </TD></TR> </TABLE> <input type="submit" name="submit" value="Enviar" class=botao_enviar> </form> <% objCon.Close Set objCon = Nothing End If %> </BODY> </HTML>
×
×
  • Criar Novo...