Ir para conteúdo
Fórum Script Brasil
  • 0

Campo Processo Deve Receber Caracteres Especiais


Guest --acfelipesilva --

Pergunta

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 para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...