Jump to content
Fórum Script Brasil
  • 0

Campo Processo Deve Receber Caracteres Especiais


Guest --acfelipesilva --
 Share

Question

Guest --acfelipesilva --

Olá Gente,

Já fiz de tudo, mexi no código, mexi no banco de dados (sql server 2000), alterei o campo para varchar(50), mas na hora de gravar os dados do asp para o banco não funciona, o problema está na página...

Peço a ajuda de vocês para identificar qual é problema desse script, to logo avisando não fui eu quem fiz, estou dando manutenção e encontrei essa "bronca", pensei q fosse algo bem simples, porém as coisas se complicaram e não consegui fazer funcionar, vou postar o código para ver se vocês podem me ajudar...

<%@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"> </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'"> 

</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"-->

Link to comment
Share on other sites

10 answers to this question

Recommended Posts

  • 0

Oi Andreia_SP!

O campo processo dever permitir a inserção de caracteres especiais e gravar na base de dados... Exemplificando:

Processo: 2001.2005/2008

ou

Processo: 2001/2007

ou

Processo:101-5

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

Link to comment
Share on other sites

  • 0

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!

<%@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"-->

---------- 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 ---------------------------------

Link to comment
Share on other sites

  • 0
Mas cade o campo processo? não tem nenhum <input type="text"> ae, só achei o de upload

Eu negritei abaixo para você ... ( o campo é procno)...

<%@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"-->

Link to comment
Share on other sites

  • 0

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"-->

Link to comment
Share on other sites

  • 0

bao, se no input você não consegue digitar, re-crie um input nome que ele estará liberado porém de qualquer forma proteja seu banco quanto a caracteres invalidos, usando a funcao replace, exemplo:

procn = replace(request.form("procn"),"'","''")

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.1k
    • Total Posts
      647.1k
×
×
  • Create New...