none
Ajuda com Código RRS feed

  • Pergunta

  •  

    Pessoal, bom dia!

    Seguinte, tenho 2 formulários que usam uma mesma função (windows_popup.asp).

    Quero que  o windows_popup.asp  reconheça qual o formulário pai que chamou e de acordo com esse parametro ele faça um select diferente.

    Tem 2 diferenças entre os formulários que chamam o windows_popup.asp, o value de um textbox ( que em ambos formulário tem o name = text1 porem o value do primeiro é FHH e do segundo FHK) e o nome do arquivo ( um tem o nome de index_divino.asp e o outro de index_daniel.asp)

    Estou tentando o código abaixo, mas esta dando erro, gostaria de uma ajuda para resolver o problema.

    Abaixo segue o código (em vermelho esta o código que teoricamente faria a checagem):

     

    Code Snippet

     if (request.Item(text1.value) = "FHH") then
          
           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut > 7000 order by nom_execut")
           do while not rec.eof
          %>
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id=text2 name=text2></TD>
           </TR>
          <%
          rec.movenext
          loop

     else

           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut < 7000 order by nom_execut")
           do while not rec.eof
          %>
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id="Text2" name=text2></TD>
           </TR>
          <%
          rec.movenext
          loop

    End if

     

     

    Grato desde já Gustavo
    segunda-feira, 1 de setembro de 2008 17:21

Respostas

  • Gustavo, é algum campo que no banco esta como inteiro ou numerico e voce esta tentando passar uma string, verifique os campos no banco veja quais NAO sao do tipo string e veja na instrucao sql que você tem para verificar qual campo esta gerando erros. 

    Abraço

    Estevam
    quinta-feira, 4 de setembro de 2008 12:56
  • Gustavo o correto é assim

    "& CDbl(request("c_re")) &"',

    Abraço

    Estevavm
    quinta-feira, 4 de setembro de 2008 15:25

Todas as Respostas

  • Gustavo, tente realiza o if da maneira abaixo:

     

    if (Request("text1") = "FHH") then

     

    Abraços

     

    Estevam

    segunda-feira, 1 de setembro de 2008 18:09
  • Estevam, muito obrigado pela a ajuda, funcionou mas não muuito, porque quando o text1 tem valor = FHH  mesmo assim esta caindo no else...

    Faltou algum detalhe como .text ou .value??

     

     

    segunda-feira, 1 de setembro de 2008 19:40
  • Gustavo, será que o value do campo nao esta em minuscula, ai na hora de comparar ele é diferente, tente assim:

     

    if (UCase(Request("text1")) = "FHH") then

     

    Abraço

     

    Estevam

    segunda-feira, 1 de setembro de 2008 19:55
  • Pior que não....

    mesmo assim pus o código com o UCASE, mas nada...

    quando arquivo index.asp  chama o windows_popup.asp será que esta perdendo o valor do value do Text1?

    è algum detalhes, mas esta caindo no else toda hora....

     

    segunda-feira, 1 de setembro de 2008 20:09
  • Cheguei a achar q tinha dado certo, mas ainda não deu não

     

    segunda-feira, 1 de setembro de 2008 20:16
  • Gustavo, de um debug no código antes do if faça isso:

     

    Response.Write("Text1: " & Request("text1"))

    Response.End

     

    Veja o que aparece na tela

     

    Abraço

     

    Estevam

    segunda-feira, 1 de setembro de 2008 20:31
  • Então, agora que eu percebi...o valor do Request("text1") esta nulo, ou seja, lógicamente iria cair sempre no else mesmo! rsrs

    Mas alguma coisa esta errada porque o value do text1 é "FHH" ou "FHK", na hora que chama a função windows_popup o text já esta preenchido.

    Porque será que não esta pegando o valor ?

    Obrigado desde já

    Gustavo

    terça-feira, 2 de setembro de 2008 12:29
  • Gustavo, por acaso este campo nao esta como disable nao né?

     

    Abraço

     

    Estevam

    terça-feira, 2 de setembro de 2008 12:59
  • Estevam, ele não permite ser alterado nem por o focus nele.
    Isso empede que o comando pegue o valor?
    Att
    Gustavo
    terça-feira, 2 de setembro de 2008 13:29
  • Tirei o readonly e nada...

    esta assim a configuração do Text1:

     

    <td height="24" width="70%" colspan="4">&nbsp;<input type="text" name="unidade" value="FHK" size="15" maxlength="15" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0"  ID="Text1">
    </td>
    terça-feira, 2 de setembro de 2008 13:36
  • Gustavo para recuperar informações de formulário pelo ASP é utilizado o atribute "name" e não o "id" que no seu caso voce teria que recuperar assim:

     

    name="unidade"

     

     

    if ( UCase(Request("unidade")) = "FHK" ) then

     

    Abraço

     

    Estevam

    terça-feira, 2 de setembro de 2008 13:55
  • Nada.....segue o código para vc dar uma olhada...

     

    Code Snippet

    if ( UCase(Request("unidade")) = "FHH" ) then
           
           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut > 7000 order by cod_execut ")
           do while not rec.eof
           
          %>
          <!--nom_execut-->
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id=text2 name=text2></TD>
           </TR>
          <%
          rec.movenext
          loop
         
         
         else
           
           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut < 7000  order by cod_execut ")
           do while not rec.eof
           
          %>
          <!--nom_execut-->
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id="Text5" name=text2></TD>
           </TR>
          <%
          rec.movenext
          loop
         End if

     

    terça-feira, 2 de setembro de 2008 16:43
  • Gustavo como esta o atributo name do campo input do value FHH??

     

    Abraços

     

    Estevam

    terça-feira, 2 de setembro de 2008 17:05
  • name="unidade"

     

    terça-feira, 2 de setembro de 2008 17:11
  • Gustavo, aparentemente esta tudo correto, envie o código do form que faz envio do FHH.

     

    Abraço

     

    Estevam

    terça-feira, 2 de setembro de 2008 17:18
  • Estevam, agradeço muito a ajuda, mas eu resolvi o caso replicando o código e fazendo um formulário diferente para cada select(FHH e FHK), pois por mais que eu tente eu não consigo saber porque não esta pegando o valor do Text1. De qualquer forma vou postar o código, pois fiquei encucado com a questão...Wink

    Só tem um porem o código é muito grande e terei que dividi-lo em pedaços...daqui a pouco eu posto.

    Grato desde já

    Gustavo

     

    terça-feira, 2 de setembro de 2008 18:39
  • Estevam e pessoal, segue o código para análise. Outra coisa tenho outro problema fora esse de não reconhecer se é FHH ou FHK, quando o usuário clica no botão enviar o email não esta indo e aparece uma página de erro do IExplorer....

     

    Preciso de ajuda!

     

    Code Snippet
    <!--#include file="conexao.asp"-->
    <%
    login= ucase(Right(request.servervariables("logon_user"),len(request.servervariables("logon_user"))-instr(request.servervariables("logon_user"),"\")))
    login_a= ucase(Right(request.servervariables("logon_user"),len(request.servervariables("logon_user"))-instr(request.servervariables("logon_user"),"\")))
    if login="OTTOBONI" then
       'login="TARTARIK"
    end if
     

    function Retorna_Email_Login(tipo,login)
    Rem <-------------------recebendo o domínio------------------>
    dominio=ucase(mid(request.servervariables("logon_user"),1,instr(request.servervariables("logon_user"),"\")-1))
    Rem <-------------------comparando o domínio------------------>
    dim str_sql_newoffice
     'login = "MOREIRAM"
        str_sql_newoffice="SELECT CD_LOGIN_BSC, CD_EMAIL_AMSO FROM TB_NEW_OFFICE WHERE CD_LOGIN_AMSO='"&ucase(login)&"'"
        'RESPONSE.Write str_sql_newoffice
        rem "&ucase(login)&"
        set recnewoffice = Server.CreateObject("ADODB.Recordset")
        recnewoffice.Open str_sql_newoffice,cnnOraclenew
        'response.Write login&"<br>"
        if not recnewoffice.EOF then
              login=""
              login=recnewoffice("CD_LOGIN_BSC") 'AQUI VC DEVERÁ COLOCAR A VARIAVEL QUE PEGA O LOGIN
              email=recnewoffice("CD_EMAIL_AMSO")
              'Correção provisoria para fazer o e-mail entrar na pasa publica do Daniel
              if CD_LOGIN_BSC = "DUARTED" then
         email = "daniel.duarte@bshg.com"
         'response.Write email&"<br>"
         'response.Write login&"<br>"
              end if
              'response.Write email
        end if
    Rem <---------------------------------------------------fim--------------------------------------------------------------->
    if tipo="EMAIL" then
     Retorna_Email_Login=email
    else
     Retorna_Email_Login=login
    end if
    end function
    'login_a = "DUARTED"
    Login=Retorna_Email_Login ("LOGIN",Login)
    email=Retorna_Email_Login ("EMAIL",login_a)
    'response.write login&"<br>"
    'response.write email
    'Correção provisoria para fazer o e-mail entrar na pasa publica do Daniel
    'if login = "DUARTED" then
    '  email = "daniel.duarte@bshg.com"
      'response.Write email&"<br>"
      'response.Write login&"<br>"
    'end if
    planta=ucase(request("unidade"))
    if request("botao")="" then
    ip_unidade=Request.ServerVariables("REMOTE_ADDR")
    ip_unidade=left(ip_unidade,4)
    'response.write ip_unidade
    'response.end
    Rem <---------------------------------------recebendo os logins da rede-------------------------------------------------->
    Rem <-------------------comparando o domínio------------------>
    'response.Write login
    Rem <---------------------------------------------------fim--------------------------------------------------------------->
    Dim login, re, nome, cod_depto, unidade, departamento, cargo, c_num
    set Recdados=ConnSql.Execute("select re,nome,cod_depto, unidade,departamento,cargo, login from TB_dados_func where login='"&login&"'")
    Rem <--------------------------------abaixo recebendo os campos do banco de dados----------------------------------------------------------->
        if not Recdados.eof then
         c_re     =Recdados("re")
         c_nome   =Recdados("nome")
         c_depto  =Recdados("departamento")
         c_unid   =Recdados("unidade")
         cargo    =Recdados("cargo")
         cod_depto=Recdados("cod_depto")
      cod_login=Recdados("login")
     end if
    set RecRamal=ConnSql.Execute("select ramal, login from TB_ramais_telefonia where login='"&cod_login&"'")
        if not Recramal.eof then
       c_ramal=Recramal("ramal")
     end if
     'Response.Write email
    %>
    <html>
    <head>
    <title>.:: Solicitação de Serviço ::.</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <meta http-equiv="expires" content="tuesday, 07 april 2009 8:40:00 gmt">
    <script language="javascript" src="scripts/CommonScript.js"></script>
    <script language="javascript">
    function verifica()
    {
     if (document.form.c_nome.value == "")
     {
     alert("O preenchimento do campo nome do solicitante é obrigatório!")
         document.form.c_nome.focus();
         return false;
     }
     if (document.form.c_re.value == "")
     {
     alert("O campo \"RE\" está em branco, por favor preencha.")
         document.form.c_re.focus();
         return false;
     }
     if (isNaN(document.form.c_re.value))
     {
     alert("Por favor, só preencha o campo \"RE\" com valores numéricos!")
         document.form.c_re.focus();
         return false;
     }
     if (document.form.c_unid.value == "")
     {
     alert("O campo \"unidade\" está em branco, por favor preencha.")
         document.form.c_unid.focus();
         return false;
     }
     if (document.form.c_ramal.value == "")
     {
     alert("O campo \"Ramal\" está em branco, preencha!")
         document.form.c_ramal.focus();
         return false;
     }
     if (isNaN(document.form.c_ramal.value))
     {
     alert("Por favor, só preencha o campo \"Ramal\" com valores numéricos!")
         document.form.c_ramal.focus();
         return false;
     }
     if (document.form.unidade.value == "")
     {
     alert("Selecione a \"unidade executante\"!")
         document.form.unidade.focus();
         return false;
     }
     if (document.form.solic.value == "")
     {
     alert("O campo área \"solicitante\" está em branco, selecione a área!")
         document.form.solic.focus();
         return false;
     }
     if (document.form.execut.value == "")
     {
     alert("O campo área \"executante\" está em branco, selecione a área!")
         document.form.execut.focus();
         return false;
     }
     if (document.form.bene.value == "")
     {
     alert("O campo \"beneficiário\" está em branco, selecione a área!")
         document.form.bene.focus();
         return false;
     }
     'if (document.form.tip_sac[0].checked==true && document.form.sac.value=="")
     '{
     'alert("Identifique a \" S.A.C \" desta solicitação")
     '    document.form.sac.focus();
     '    return false;
     '}
      if (document.form.tip_service.value == "")
     {
     alert("Selecione o \"serviço\" a ser executado!")
         document.form.tip_service.focus();
         return false;
     }
     if (document.form.equipa.value == "")
     {
     alert("O campo \"equipamento\" está em branco, selecione o equipamento!")
         document.form.equipa.focus();
         return false;
     }
     if (document.form.descricao.value =="")
     {
     alert("O campo de \"descrição\" está em branco, descreva o serviço a ser executado ou defeito apresentado!")
         document.form.descricao.focus();
         return false;
      }
    }
    function Valida()
    {
    if (form.c_login_cop.value!="")
     {
     window_popup('c_login_cop','false');
     return false
     }

    }
    </script>
    </head>
    <body bgcolor="#FFFFFF" text="#000000" onLoad="clock();">
    <!---<form method="post" action="Index.asp<%=request.servervariables("script_name")%>?botao=Submit" name="form" ID="Form1">--->
    <form method="post" action="Index_daniel.asp?botao=Submit" name="form" ID="Form1">
    <input type="hidden" name="ip_unidade" value="<%=ip_unidade%>" ID="Hidden1">
    <table width="651" border="0" cellspacing="1" cellpadding="1" align="center" ID="Table1">
      <tr>
        <td bgcolor="#000000">
            <table width="100%" border="0" cellspacing="1" cellpadding="0" height="44" ID="Table2">
              <tr bgcolor="#FFFFFF">
                <td width="83%" height="42">
                  <div align="left"><font size="3" face="Verdana, Arial, Helvetica, sans-serif"><b>&nbsp;Solicitação de Serviços</b></font></div>
                </td>
                <td width="17%" height="42">
                  <div align="right"><font face="BSHG-Logos" size="6">h</font></div>
                </td>
              </tr>
            </table>
            <table width='100%' border='0' cellspacing='1' cellpadding='0' ID="Table3">
              <tr bgcolor='#E0E0E0'>
                <td colspan='4' height='24'>
                  <div align='center'><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;Dados
                    do Solicitante:</font></div>
                </td>
              </tr>
    <%
    rem <-------Abaixo será verificado se o usuário está cadastrado corretamente na rede, se o cadastro não estiver correto, apresentará as linhas abaixo, caso contrário apresentará as outras linhas conforme condição------------------------>
    if c_nome ="" and c_depto="" and cargo="" then
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Nome do solicitante:</font></td>"
    response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'>&nbsp;<input type='text' name='c_nome' value='"&ucase(c_nome)&"' size='65' maxlength='58' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Departamento:</font></td>"
    response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'>&nbsp;<input type='text' name='c_depto'  value='"&cod_depto&" "&ucase(c_depto)&"' size='65' maxlength='58' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Login:</font></td>"
    response.write"<td height='25' bgcolor='#FFFFFF' width='33%'>&nbsp;<input type='text' name='c_login' size='15' value='"&ucase(login)&"' maxlength='15' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='8%'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;RE:</font>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='29%'>&nbsp;<input type='text'  name='c_re' value='"&c_re&"' size='5' maxlength='5' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr> "
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Unidade:</font></td>"
    response.write"<td height='25' bgcolor='#FFFFFF' width='33%'>&nbsp;<input type='text' readOnly name='c_unid' size='15' maxlength='15' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"
    response.write"             <IMG align='absMiddle' class='PopupImage' height='18'  onclick=""return window_popup('c_unid')"" onmouseout='src=""images\\dd_arrow.gif""' onmouseover='src=""images\\dd_arrow_hi.gif""' src='images/dd_arrow.gif' title='Selecione' width=18>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='8%'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Ramal:</font> "
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='29%'>&nbsp;<input type='text' name='c_ramal' value='"&c_ramal&"' size='5' maxlength='5' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Data:</font></td>"
    response.write"<td height='25' bgcolor='#FFFFFF' width='33%'>&nbsp;<input type='text' readonly name='c_data' size='15' maxlength='15' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='8%'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Hora:</font> "
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='29%'>&nbsp;<input type='text' readonly name='c_hora' size='10' maxlength='10' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"</tr>"
    else
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Nome do solicitante:</font></td>"
    response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'>&nbsp;<input type='text' readonly name='c_nome' value='"&ucase(c_nome)&"' size='65' maxlength='58' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Departamento:</font></td>"
    response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'>&nbsp;<input type='text' name='c_depto' readonly value='"&cod_depto&"-"&ucase(c_depto)&"' size='65' maxlength='58' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Login:</font></td>"
    response.write"<td height='25' bgcolor='#FFFFFF' width='33%'>&nbsp;<input type='text' readonly  name='c_login' size='15' value="&ucase(login)&" maxlength='15' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='8%'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;RE:</font>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='29%'>&nbsp;<input type='text'  readonly name='c_re' value='"&c_re&"' size='5' maxlength='5' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr> "
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Unidade:</font></td>"
    response.write"<td height='25' bgcolor='#FFFFFF' width='33%'>&nbsp;<input type='text'  name='c_unid' value='"&ucase(c_unid)&"' size='15' maxlength='15' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='8%'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Ramal:</font> "
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='29%'>&nbsp;<input type='text' name='c_ramal' value='"&c_ramal&"' size='5' maxlength='5' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td width='30%' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Data:</font></td>"
    response.write"<td height='25' bgcolor='#FFFFFF' width='33%'>&nbsp;<input type='text' readonly name='c_data' size='15' maxlength='15' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='8%'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Hora:</font> "
    response.write"</td>"
    response.write"<td bgcolor='#FFFFFF' width='29%'>&nbsp;<input type='text' readonly name='c_hora' size='10' maxlength='10' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    response.write"</td>"
    response.write"</tr>"
    rem fim
    end if
    %>
             <tr bgcolor="#E0E0E0">
                <td colspan="4" height="24">
                  <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Dados
                    da Solicita&ccedil;&atilde;o: </font></div>
                </td>
              </tr>
               <tr bgcolor="#FFFFFF">
                <td width="30%" height="25">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Unidade executante:</font></div>
                </td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="text" readOnly name="unidade" value = "FHH" size="15" maxlength="15" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text1">
                </td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td width="30%" height="25">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Área Solicitante:</font></div>
                </td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="text" readOnly name="solic" size="65" maxlength="58" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text2">
                <IMG align=absMiddle class=PopupImage height=18  onclick="return window_popup('solic')" onmouseout="src='images\\dd_arrow.gif'" onmouseover="src='images\\dd_arrow_hi.gif'" src="images/dd_arrow.gif" title="Selecione" width=18>
                </td>
              </tr>
     

     

     

    quarta-feira, 3 de setembro de 2008 17:16
  • 2º parte

     

    Code Snippet

    <tr bgcolor="#FFFFFF">
                <td width="30%" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Área Executante:</font></td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="text" readOnly name="execut" size="65"   maxlength="58" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text3">
                 <IMG align=absMiddle class=PopupImage height=18  onclick="return window_popup('execut','<%=ip_unidade%>',document.form.unidade.value);" onmouseout="src='images\\dd_arrow.gif'" onmouseover="src='images\\dd_arrow_hi.gif'" src="images/dd_arrow.gif" title="Selecione" width=18>
                </select>
              </td>
              </tr>
             <tr bgcolor="#FFFFFF">
                <td width="30%" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Área Beneficiada:</font></td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="text" readOnly name="bene" size="65" maxlength="58" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text4">
                 <IMG align=absMiddle class=PopupImage height=18  onclick="return window_popup('bene')" onmouseout="src='images\\dd_arrow.gif'" onmouseover="src='images\\dd_arrow_hi.gif'" src="images/dd_arrow.gif" title="Selecione" width=18>
              </td>

              <!--- Solicitação feita delo Daniel
              </tr>
               <tr bgcolor="#FFFFFF">
                <td width="100%" height="25"  colspan="4"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<b><br>
                  Obs:</b>
                  Caso a solicitação de serviço seja uma S.A.C por favor identifique
                  nos campos abaixo:<br>
                  <br>
                  </font></td>
              </tr>

             <tr bgcolor="#FFFFFF">
                <td width="30%" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;É
                  uma S.A.C?:</font></td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="radio" name="tip_sac" value="sim" ID="Radio1">
                        </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#666666">Sim
                        </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
                        <input type="radio" name="tip_sac" value="não" checked ID="Radio2">Não</font>
                 </td>
              </tr>
             <tr bgcolor="#FFFFFF">
                <td width="30%" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Identifique:</font></td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="text" readOnly name="sac" size="65" maxlength="58" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text5">
                        <img align=absMiddle class=PopupImage height=18  onClick="return window_popup('sac')" onMouseOut="src='images\\dd_arrow.gif'" onMouseOver="src='images\\dd_arrow_hi.gif'" src="images/dd_arrow.gif" title="Selecione" width=18>
                </td>
              </tr>
              --->
              <tr>
                <td colspan="8" height="24" bgcolor="#E0E0E0">
                  <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;Tipo
                    de Serviço:</font></div>
                </td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td width="30%" height="24">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Serviço:</font></div>
                </td>
                <td colspan="7" height="24" width="70%">&nbsp;<input type="text" readOnly name='tip_service'  size="15" maxlength="15" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text6">
                 <img align=absMiddle class=PopupImage height=18  onclick="limpa('servico');return window_popup('tip_service')" onMouseOut="src='images\\dd_arrow.gif'" onMouseOver="src='images\\dd_arrow_hi.gif'" src="images/dd_arrow.gif" title="Selecione" width=18>           </td>
              </tr>
                 <tr bgcolor="#FFFFFF">
                <td width="30%" height="24">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Nome
                    do Equipamento:</font></div>
                </td>
                <td colspan="7" height="24" width="70%"> &nbsp;<input type="text" readOnly name='equipa' size="65" maxlength="58" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Text7">
                  <img align=absMiddle class=PopupImage height=18  onclick="return window_popup('equipa','<%=ip_unidade%>',document.form.unidade.value)" onMouseOut="src='images\\dd_arrow.gif'" onMouseOver="src='images\\dd_arrow_hi.gif'" src="images/dd_arrow.gif" title="Selecione" width=18>
                </td>
              </tr>
              <!------------início da área de enfoque----------------->
       <!--- solicitação feita pelo Daniel
               <tr bgcolor="#FFFFFF">
                <td width="100%" height="25"  colspan="4"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<b><br>
                  Obs1:</b>
                  Esta solicitação tem por objetivo evitar ou eliminar impacto de <b>M</b>eio <b>A</b>mbiente, <b>S</b>aúde e <b>S</b>egurança (<b>MASS</b>).<br>
                  <br>
                  </font></td>
              </tr>
             <tr bgcolor="#FFFFFF">
                <td width="30%" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" title="Meio Ambiente Saúde e Segurança">&nbsp;Elimina o Impacto de </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" title="Meio Ambiente Saúde e Segurança" color="blue" style="cursor:hand">MASS?</font></td>
                <td height="24" width="70%" colspan="4">&nbsp;<input type="radio" name="tip_mass" value="SIM" ID="Radio3">
                        </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#666666">Sim
                        </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
                        <input type="radio" name="tip_mass" value="NÃO" checked ID="Radio4">Não</font>
                 </td>
              </tr>
       --->

              <!-------------Fim da área de enfoque-------------------->
              <tr>
                <td colspan="8" height="24" bgcolor="#E0E0E0">
                  <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;Descrição do serviço a executar e/ou defeito apresentado:</font></div>
                </td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td width="30%" height="24" valign="top">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Texto:</font></div>
                </td>
                <td colspan="7" height="24" width="70%">&nbsp;<textarea rows="5" name="descricao" cols="68" style="font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0" ID="Textarea1"></textarea>
                </td>
              </tr>
                 <tr bgcolor="#FFFFFF">
                <td width="30%" height="24">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;Prazo:</font></div>
                </td>
                <td colspan="7" height="24" width="70%">&nbsp;<input type="radio" name="prazo" value="Verde" checked title="Prioridade Baixa" style="cursor:hand" ID="Radio5">
                        </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="green" title="Prioridade Baixa" style="cursor:hand">Verde
                        </font><font face="Verdana, Arial, Helvetica, sans-serif" color="orange" size="2" title="Prioridade Média" style="cursor:hand">
                        <input type="radio" name="prazo" value="Amarelo" title="Prioridade Média" style="cursor:hand" ID="Radio6">Amarelo</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="red" title="Prioridade Alta" style="cursor:hand">
                        <input type="radio" name="prazo" value="Vermelho" title="Prioridade Alta" style="cursor:hand" ID="Radio7">Vermelho</font>
                </td>
              </tr>
                        <tr bgcolor="#ffffff">
                <td colspan="8" height="24">
                  <div align="justify"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Obs</b>.:
                Para selecionar o e-mail do aprovante, basta digitar o login da rede e clicar fora do campo. Em seguida abrirá uma caixa com a seleção dos possíveis e-mails validos na rede, onde você irá
                selecionar o e-mail correto.
                </font></div>
                </td>
              </tr>
              <tr>
                <td colspan="8" height="24" bgcolor="#E0E0E0">
                  <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Enviar
                    uma c&oacute;pia para:</font></div>
                </td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td width="30%" height="24">
                  <div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;e-Mail:</font></div>
                </td>
                  <td colspan="7" height="24" width="70%"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<input type='text' name='c_login_cop'   size='50' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' ID="Text8">
                  </font>
                  </td>
              </tr>
            <tr bgcolor="#FFFFFF">
              <td height="34" colspan="4">&nbsp;
                <input type="submit" name="envia" value="Enviar" onClick="return verifica()" style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #E0E0E0; border: 1 solid #000000' ID="Submit1">
                <input type="reset" name="reset" value="Limpar todos os campos" style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #E0E0E0; border: 1 solid #000000' ID="Reset1">
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
    </form>
    </body>
    </html>
    <!--Início do envio da Informação-->
    <%
    else
    rem conexão com o banco de dados
     set conn=server.createobject("adodb.connection")
     sqlserver="provider=sqloledb;server=horwsql01\horsql01;uid=sa;pwd=osascocity;database=DB_manutencao"
     conn.open sqlserver
    rem fazendo o select a partir do IP
    select case request("ip_unidade")
    case "10.1"
    rem <----------------gravando no banco a partir da planta soliticitante--------------->
    <!---
    if planta="SARAPUI" then
     'response.write request("c_login")&"<br>"
     'response.write request("c_nome")&"<br>"
     'response.write request("c_re")&"<br>"
     'response.write request("c_ramal")&"<br>"
     'response.write request("c_unid")&"<br>"
     'response.write request("unidade")&"<br>"
     'response.write request("solic")&"<br>"
     'response.write request("execut")&"<br>"
     'response.write request("bene")&"<br>"
     'response.write request("sac")&"<br>"
     'response.write request("tip_mass")&"<br>"
     'response.write request("equipa")&"<br>"
     'response.write request("descricao")&"<br>"
     'response.write request("descricao")&"<br>"
     'response.write request("prazo")&"<br>"
     'response.write request("c_login_cop")&"<br>"
     set query=conn.execute("exec autonumeracao_srp '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")

     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados_srp",sqlserver
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    else
     set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")
     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    end if
    --->
    rem <----------------------------------------fim-------------------------------------->
    case "10.2"
     set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")
     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    case "10.3"
     set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")
     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    case "10.4"
     set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")
     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     rem <---------------------------------------loop do contador----------------------------->
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    end select
    rem <--------------------------------------declarando as variáveis----------------------->
    dim ip_unidade, c_nome, c_depto,c_login, c_re, c_ramal, c_data, c_hora, c_unid, solic, execut, bene, tip_sac, sac, tip_service, equipa, tip_mass, descricao, prazo, c_login_cop
    ip          = Request("ip_unidade")
    name        = ucase(Request("c_nome"))
    depto       = Request("c_depto")
    login       = Request("c_login")
    re          = Request("c_re")
    ramal       = Request("c_ramal")
    data        = Request("c_data")
    hora        = Request("c_hora")
    planta      = ucase(Request("unidade"))
    solic       = Request ("solic")
    execut      = Request("execut")
    bene        = Request("bene")
    tip_sac     = ucase(Request("tip_sac"))
    sac         = ucase(Request("sac"))
    tip_service = ucase(Request("tip_service"))
    equipa      = ucase(Request("equipa"))
    tip_mass    = ucase(Request("tip_mass"))
    descricao   = Request("descricao")
    prazo       = Request("prazo")
    login_cop   = Request("c_login_cop")
    Rem <----verificando os campos que realmente foram preenchidos, caso não tenha sido preenchido, não será enviado no form.--->
    Rem <-------------Caso o campo SAC tenha sido preenchido o código abaixo entrará no form------------>
    if tip_sac ="SIM" or sac<>"" then
    tsac=tsac&"<tr bgcolor='#FFFFFF'>"
    tsac=tsac&"<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;S.A.C número:</font></td>"
    tsac=tsac&"<td height='24' width='475' colspan='3'>&nbsp;<input type='text' name='sac' value='"&sac&"' size='70' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    tsac=tsac&"</td>"
    tsac=tsac&"</tr>"
    end if
    Rem <--------------Caso o campo cópia da solicitação tenha sido preenchido o código abaixo entrará no form------------>
    if login_cop <> "" then
    bloco=bloco&"<tr>"
    bloco=bloco&"<td colspan='4' height='24' bgcolor='#E0E0E0' width='637'>"
    bloco=bloco&"<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'> c&oacute;pia para:</font></div>"
    bloco=bloco&"</td>"
    bloco=bloco&"</tr>"
    bloco=bloco&"<tr bgcolor='#FFFFFF'>"
    bloco=bloco&"<td width='158' height='24'>"
    bloco=bloco&"<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;e-Mail:</font></div>"
    bloco=bloco&"</td>"
    bloco=bloco&"<td colspan='3' height='24' width='475'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;<input type='text' name='c_login_cop' size='45' value='"&login_cop&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"
    bloco=bloco&"</font></td>"
    bloco=bloco&"</tr>"
    end if
    Rem <----------------------------------------------fim da verificação------------------------------------------------->
    if tip_mass="SIM" then
    ambiental=ambiental&"<tr bgcolor='#FFFFFF'>"
    ambiental=ambiental&"<td width='30%' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2' title='Meio Ambiente Saúde e Segurança'>&nbsp;Elimina o Impacto de</font><font face='Verdana, Arial, Helvetica, sans-serif' size='2' title='Meio Ambiente Saúde e Segurança' color='blue' style='cursor:hand'> Mass?</font></td>"
    ambiental=ambiental&"<td height='24' width='70%' colspan='4'>&nbsp;<input type='text' size='5' value='"&tip_mass&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'></td></tr>"
    end if
    Rem <-----------------------------------------Início do envio do formulário------------------------------------------->
    set jmail = server.CreateObject ("jmail.smtpmail")
    jmail.HTMLBody = jmail.AppendText ("<html>"&_
    "<head>"&_
    "<title>.:: Solicitação de Serviço ::.</title>"&_
    "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&_
    "</head>"&_
    "<body bgcolor='#FFFFFF' text='#000000'>"&_
    "<table width='651' border='0' cellspacing='1' cellpadding='1' align='center'>"&_
    "<tr>"&_
    "<td bgcolor='#000000'> "&_
    "<table width='100%' border='0' cellspacing='1' cellpadding='0' height='44'>"&_
    "<tr bgcolor='#FFFFFF' > "&_
    "<td width='17%' height='42'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>&nbsp;N&ordm; "&_
    "</b>I"&codigo&"</font></td>"&_
    "<td width='66%' height='42'> "&_
    "<div align='center'><font size='3' face='Verdana, Arial, Helvetica, sans-serif'><b>"&_
    "              Solicitação de Serviço</b></font></div>"&_
    "</td>"&_
    "<td width='17%' height='42'> "&_
    "<div align='right'><font face='BSHG-Logos' size='6'>h</font></div>"&_
    "</td>"&_
    "</tr></table>"&_
    "<table width='100%' border='0' cellspacing='1' cellpadding='0' height='44'>"&_
    "          "&_

     

     

    quarta-feira, 3 de setembro de 2008 17:27
  • 3º parte

     

    Code Snippet

    "<tr bgcolor='#E0E0E0'> "&_
    "<td colspan='4' height='24' width='637' > "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Dados "&_
    "                do solicitante:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Nome do solicitante:</font></td>"&_
    "<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'>&nbsp;<input type='text' readonly name='c_nome' size='70' value='"&name&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "</td>"&_
    "</tr>        "&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Departamento:</font></td>"&_
    "<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'>&nbsp;<input type='text' name='c_depto' readonly size='70' value='"&depto&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "</td>"&_
    "</tr>    "&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Login:</font></td>"&_
    "<td height='25' bgcolor='#FFFFFF' width='237'>&nbsp;<input type='text' readonly  name='c_login' size='15' value='"&login&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;RE:</font> "&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='181' >&nbsp;<input type='text'  readonly name='c_re' size='6' value='"&re&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Unidade:</font></td>"&_
    "<td height='25' bgcolor='#FFFFFF' width='237'>&nbsp;<input type='text' readOnly name='c_unid' size='15' value='"&planta&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Ramal:</font> "&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='181' >&nbsp;<input type='text' readonly name='c_ramal' size='6' value='"&ramal&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Data:</font></td>"&_
    "<td height='25' bgcolor='#FFFFFF' width='237'>&nbsp;<input type='text' name='c_data' size='10' value='"&data&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Hora:</font> "&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='181' >&nbsp;<input type='text' name='c_hora' size='10' value='"&hora&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td colspan='4' height='24' width='637'> "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Dados "&_
    "                da Solicita&ccedil;&atilde;o:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='25'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Área"&_
    "                Solicitante:</font></div>"&_
    "</td>"&_
    "<td height='24' width='475' colspan='3'>&nbsp;<input type='text' readOnly name='solic' size='70' value='"&solic&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Área"&_
    "              Executante:</font></td>"&_
    "<td height='24' width='475' colspan='3'>&nbsp;<input type='text' readOnly name='execut' size='70'   value='"&execut&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Área"&_
    "              Beneficiada:</font></td>"&_
    "<td height='24' width='475' colspan='3'>&nbsp;<input type='text' readOnly name='bene' size='70' value='"&bene&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    ""&tsac&""&_
    "<tr> "&_
    "<td colspan='4' height='24' bgcolor='#E0E0E0' width='637'> "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Tipo"&_
    "                de Serviço:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Serviço:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'>&nbsp;<input type='text' readOnly name='tip_service' size='15' value='"&tip_service&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Nome"&_
    "                do Equipamento:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'>&nbsp;<input type='text' readOnly name='equipa' size='70' value='"&equipa&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    ""&ambiental&""&_
    "<tr> "&_
    "<td colspan='4' height='24' bgcolor='#E0E0E0' width='637'> "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Descrição do serviço a executar e/ou defeito apresentado:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24' valign='top'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Texto:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;<textarea rows='5' name='descricao' cols='70' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&descricao&"</textarea></font>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Prazo:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'>&nbsp;<input type='text' name='prazo' size='15' value='"&prazo&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    ""&bloco&""&_
    "</table>"&_
    "</td>"&_
    "</tr>"&_
    "</table>"&_
    "</body>"&_
    "</html>")
    rem <-----------------------------abaixo teremos as pessoas ou grupos que receberam este formulário--------------------------->
    jmail.ContentType = "text/html"
    jmail.SenderName = "Formulário de solicitação de serviço"

    jmail.Sender     = email
    JMail.Subject = "Formulário de solicitação de serviço - NºI "&codigo
    jmail.SenderName = "Formulário de solicitação de serviço"
    jmail.ServerAddress = "smtpmail.hor.bshg.com"

    'jmail.AddRecipient   "daniel.duarte@bshg.com"
    'jmail.AddRecipient   "Sao-Man.Geral@bshg.com"
    'jmail.AddRecipient   "divino.ignacio@bshg.com"
    'jmail.AddRecipient   "limpadora.supervisao-ext@bshg.com"
    'jmail.AddRecipient   "gustavo.ottoboni@bshg.com"
    if email<>"" then
    jmail.AddRecipientCC email
    end if
    'response.Write ucase(Right(request.servervariables("logon_user"),len(request.servervariables("logon_user"))-instr(request.servervariables("logon_user"),"\")))&"<br>"
    'jmail.AddRecipientCC "Diego.Beserra@bshg.com"
    rem <-------------------------caso tenha sido preenchido o campo login para cópia a pessoa receberá uma cópia do form.-------->
        if login_cop<>"" then
     if instr(1,login_cop,"@")>0 then
          jmail.AddRecipientCC login_cop
       'Response.Write "-1"&login_cop&"<br>"
        else
      jmail.AddRecipientCC login_cop

        end if
    end if
    'Response.End
    jmail.Execute


    rem <---------------------------------------------fim da verificação para envio.---------------------------------------------->
    set jmail=nothing
    set jmail = server.CreateObject ("jmail.smtpmail")
    jmail.HTMLBody = jmail.AppendText ("<html>"&_
    "<head>"&_
    "<title>.:: Solicitação de Serviço ::.</title>"&_
    "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&_
    "</head>"&_
    "<body bgcolor='#FFFFFF' text='#000000'>"&_
    "<table width='651' border='0' cellspacing='1' cellpadding='1' align='center'>"&_
    "<tr>"&_
    "<td bgcolor='#000000'> "&_
    "<table width='100%' border='0' cellspacing='1' cellpadding='0' height='44'>"&_
    "<tr bgcolor='#FFFFFF' > "&_
    "<td width='17%' height='42'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>&nbsp;N&ordm; "&_
    "</b>I"&codigo&"</font></td>"&_
    "<td width='66%' height='42'> "&_
    "<div align='center'><font size='3' face='Verdana, Arial, Helvetica, sans-serif'><b>"&_
    "              Solicitação de Serviço</b></font></div>"&_
    "</td>"&_
    "<td width='17%' height='42'> "&_
    "<div align='right'><font face='BSHG-Logos' size='6'>h</font></div>"&_
    "</td>"&_
    "</tr></table>"&_
    "<table width='100%' border='0' cellspacing='1' cellpadding='0' height='44'>"&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td colspan='4' height='24' width='637' > "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Dados "&_
    "                do solicitante:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Nome do solicitante:</font></td>"&_
    "<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'>&nbsp;<input type='text' readonly name='c_nome' size='70' value='"&name&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "</td>"&_
    "</tr>        "&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Departamento:</font></td>"&_
    "<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'>&nbsp;<input type='text' name='c_depto' readonly size='70' value='"&depto&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "</td>"&_
    "</tr>    "&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Login:</font></td>"&_
    "<td height='25' bgcolor='#FFFFFF' width='237'>&nbsp;<input type='text' readonly  name='c_login' size='15' value='"&login&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;RE:</font> "&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='181' >&nbsp;<input type='text' readonly name='c_re' size='6' value='"&re&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Unidade:</font></td>"&_
    "<td height='25' bgcolor='#FFFFFF' width='237'>&nbsp;<input type='text' readOnly name='c_unid' size='15' value='"&planta&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "  &nbsp;"&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Ramal:</font> "&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='181' >&nbsp;<input type='text' readonly name='c_ramal' size='6' value='"&ramal&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Data:</font></td>"&_
    "<td height='25' bgcolor='#FFFFFF' width='237'>&nbsp;<input type='text' name='c_data' size='10' value='"&data&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Hora:</font> "&_
    "</td>"&_
    "<td bgcolor='#FFFFFF' width='181' >&nbsp;<input type='text' name='c_hora' size='10' value='"&hora&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td colspan='4' height='24' width='637'> "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Dados "&_
    "                da Solicita&ccedil;&atilde;o:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='25'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Área"&_
    "                Solicitante:</font></div>"&_
    "</td>"&_
    "<td height='24' width='475' colspan='3'>&nbsp;<input type='text' readOnly name='solic' size='70' value='"&solic&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Área"&_
    "              Executante:</font></td>"&_
    "<td height='24' width='475' colspan='3'>&nbsp;<input type='text' readOnly name='execut' size='70' value='"&execut&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Área"&_
    "              Beneficiada:</font></td>"&_
    "<td height='24' width='475' colspan='3'>&nbsp;<input type='text' readOnly name='bene' size='70' value='"&bene&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    ""&tsac&""&_
    "<tr> "&_
    "<td colspan='4' height='24' bgcolor='#E0E0E0' width='637'> "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Tipo"&_
    "                de Serviço:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Serviço:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'>&nbsp;<input type='text' readOnly name='tip_service' size='15' value='"&tip_service&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Nome"&_
    "                do Equipamento:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'>&nbsp;<input type='text' readOnly name='equipa' size='70' value='"&equipa&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0' >"&_
    "              &nbsp;"&_
    "</td>"&_
    "</tr>"&_
    ""&ambiental&""&_
    "<tr> "&_
    "<td colspan='4' height='24' bgcolor='#E0E0E0' width='637'> "&_
    "<div align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>&nbsp;Descrição do serviço a executar e/ou defeito apresentado:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24' valign='top'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Texto:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;<textarea rows='5' name='descricao' cols='70' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&descricao&"</textarea></font>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#FFFFFF'> "&_
    "<td width='158' height='24'> "&_
    "<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Prazo:</font></div>"&_
    "</td>"&_
    "<td colspan='3' height='24' width='475'>&nbsp;<input type='text' name='prazo' size='15' value='"&prazo&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
    "</td>"&_
    "</tr>"&_
    ""&bloco&""&_
    "</table>"&_
    "</td>"&_
    "</tr>"&_
    "</table><center>-----------------------------------------------------------------------------------------------------------"&_

     

     

    quarta-feira, 3 de setembro de 2008 17:28
  • 4º parte

     

    Code Snippet

    "<table width='651' border='0' cellspacing='1' cellpadding='1' align='center'>"&_
    "<tr>"&_
    "<td bgcolor='#000000'> "&_
    "<table width='100%' border='0' cellspacing='1' cellpadding='0' height='1'>     "&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td height='1' width='637' > "&_
    "<div align='center'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>&nbsp;Esta"&_
    "  &aacute;rea &eacute; reservada para o executante:</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr> "&_
    "<td width='651' bgcolor='#FFFFFF' height='25'>"&_
    "<div align='center'>"&_
    "<center>"&_
    "<table width='100%' border='0' cellspacing='1' bgcolor='#FFFFFF' cellpadding='0' height='139'> "&_
    "<tr>  "&_
    "<td height='23' align=left>  "&_
    "<div align='left'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>&nbsp;Executante:___________________________________________&nbsp;&nbsp;&nbsp;"&_
    "  RE:_________</font></div> "&_
    "</b> "&_
    "</td> "&_
    "</tr> "&_
    "<tr>  "&_
    "<td height='112'>  "&_
    "<table width='100%' border='0' cellpadding='2' height='1'> "&_
    "<tr>  "&_
    "<td width='21%' height='1'>"&_
    "  <p align='center'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Período&nbsp;</font></b></td> "&_
    "<td width='1%' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Data</font></b></td> "&_
    "<td width='17%' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Hora"&_
    "  In&iacute;cio</font></b></td> "&_
    "<td width='26%' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Hora"&_
    "  T&eacute;rmino</font></b></td> "&_
    "</tr> "&_
    "<tr>  "&_
    "<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>1</font></b></td> "&_
    "<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
    "<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "</tr> "&_
    "<tr>  "&_
    "<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>2</font></b></td> "&_
    "<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
    "<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "</tr> "&_
    "<tr>  "&_
    "<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>3</font></b></td> "&_
    "<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
    "<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "</tr> "&_
    "<tr>  "&_
    "<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>4</font></b></td> "&_
    "<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
    "<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "</tr> "&_
    "<tr>  "&_
    "<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>5</font></b></td> "&_
    "<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
    "<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
    "</tr> "&_
    "</center>"&_
    "<tr>  "&_
    "<td width='21%' align='center' height='1'>"&_
    "  <p align='left'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Nº"&_
    "  do Req. Material:</font></b></td> "&_
    "<center>"&_
    "<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>______________</font></td> "&_
    "<td width='17%' height='1'></td> "&_
    "<td width='26%' height='1'></td> "&_
    "</tr> "&_
    "</table> "&_
    "</td> "&_
    "</tr> "&_
    "</table> "&_
    "</center>"&_
    "</div>"&_
    "</td>"&_
    "</tr> "&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td height='1' width='637'> "&_
    "<p align='center'><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>Descrição"&_
    "do Material Utilizado</font><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>:</font>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td height='24' width='651' bgcolor='#FFFFFF'> "&_
    "<div align='center'>"&_
    "<table width='100%' border='0' cellpadding='2' height='1'> "&_
    "<tr>  "&_
    "<td colspan='7' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>__________________________________________________________________________________________________________<br> "&_
    "  __________________________________________________________________________________________________________</font></td> "&_
    "</tr> "&_
    "</table> "&_
    "</div>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td height='1' width='651' bgcolor='#E0E0E0'> "&_
    "<p align='center'><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>Observações:</font>"&_
    "</td>"&_
    "</tr>"&_
    "<tr bgcolor='#E0E0E0'> "&_
    "<td height='1' width='651' bgcolor='#FFFFFF'> "&_
    "<font face='Verdana, Arial, Helvetica, sans-serif' size='1'>___________________________________________________________________________________________________________<br> "&_
    "___________________________________________________________________________________________________________<br> "&_
    "____________________________________________________________________________________________________________</font>"&_
    "</td>"&_
    "</tr>"&_
    "</table>"&_
    "</td>"&_
    "</tr>"&_
    "</table>"&_
    "</body>"&_
    "</html>")
    Rem <------------------------Verificação de erro no envio---------------------------------------->
    on error resume next
    jmail.ContentType = "text/html"
    jmail.SenderName = "Formulário de solicitação de serviço"
    jmail.Sender     = email
    JMail.Subject = "Formulário de solicitação de serviço  Nº "&codigo
    jmail.ServerAddress = "smtpmail.hor.bshg.com"
    'jmail.AddRecipient   "limpadora.supervisao-ext@bshg.com"
    'jmail.AddRecipient   "Sao-Man.Geral@bshg.com"
    jmail.AddRecipient   "daniel.duarte@bshg.com"
    'jmail.AddRecipient   "divino.ignacio@bshg.com"
    'jmail.AddRecipient   "gustavo.ottoboni@bshg.com"
    'jmail.AddRecipientCC "Marcelo.moreira@bshg.com"
    if email<>"" then
     if instr(1,email,"@")>0 then
      jmail.AddRecipientCC email
     end if
    end if
    if login_cop<>"" then
     if instr(1,login_cop,"@")>0 then
          jmail.AddRecipientCC login_cop
          'Response.Write "3"&login_cop&"<br>"
        else
      jmail.AddRecipientCC login_cop
     end if
    end if
    'RESPONSE.WRITE EMAIL&"MARCELO"
    'response.End
    jmail.Execute

    if err then
    response.write"<html>"
    response.write"<head>"
    response.write"<title>.:: Solicitação de Serviço ::.</title>"
    response.write"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
    response.write"</head>"
    response.write"<body bgcolor='#FFFFFF' text='#000000'>"
    response.write"<table width='651' border='0' cellspacing='1' cellpadding='1' align='center'>"
    response.write"<tr>"
    response.write"<td bgcolor='#000000'>"
    response.write"<table width='100%' border='0' cellspacing='1' cellpadding='0' height='44'>"
    response.write"<tr bgcolor='#FFFFFF'>"
    response.write"<td colspan='2' width='83%' height='42'>"
    response.write"<div align='left'><font size='3' face='Verdana's-serif'><b>&nbsp;Solicitação de Serviço"
    response.write"</b></font></div>"
    response.write"</td>"
    response.write"<td width='17%' height='42'>"
    response.write"<div align='right'><font face='BSHG-Logos' size='6'>h</font></div>"
    response.write"</td>"
    response.write"</tr>"
    response.write"</table>"
    response.write"<table width='100%' border='0' cellspacing='1' cellpadding='0'>"
    response.write"<tr bgcolor='#E0E0E0'> "
    response.write"<td height='24'> "
    response.write"<div align='center'><font size='2' face='Verdana's-serif'>&nbsp;Problemas "
    response.write"                no envio deste formul&aacute;rio:</font></div>"
    response.write"</td>"
    response.write"</tr>"
    response.write"<tr>"
    response.write"<td height='25' bgcolor='#FFFFFF'>"
    response.write"<p align='justify'><font size='2' face='Verdana's-serif'>"
    response.write"<p>&nbsp;</p>"
    response.write"              Este formul&aacute;rio n&atilde;o p&ocirc;de ser enviado por motivo "
    response.write"              de problemas no servidor, por favor tente mais tarde.<br>"
    response.write"<br>"
    response.write"              Em caso de d&uacute;vida entre em contato atrav&eacute;s do e-Mail:<a href='mailto:contentmaster@bscontinental.com.br'>contentmaster@bscontinental.com.br</a></font><font size='2' face='Verdana's-serif'>&nbsp;<br>"
    response.write"</font></p>"
    response.write"<p>&nbsp;</p>"
    response.write"</td>"
    response.write"</tr>"
    response.write"</table>"
    response.write"<table width='100%' border='0' cellspacing='1' cellpadding='0'>"
    response.write"<tr bgcolor='#FFFFFF'> "
    response.write"<td height='34'>"
    response.write"&nbsp;<input type='button' name='Voltar' value='Voltar' onclick=""location.href='/forms/form_manutencao/index_Daniel.asp'"" style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #E0E0E0; border: 1 solid #000000'>"
    response.write"&nbsp;&nbsp;<input type='button' name='Fechar' value='Fechar' onClick='BLOCKED SCRIPTwindow.close();' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #E0E0E0; border: 1 solid #000000'>"
    response.write"</td>"
    response.write"</tr>"
    response.write"</table>"
    response.write"</td>"
    response.write"</tr>"
    response.write"</table>"
    response.write"</body>"
    response.write"</html>"
    response.end
    end if
    set jmail=nothing
    response.write ("<htm>"&_
    "<head>"&_
    "<title>.:: Solicitação de Serviço ::.</title>"&_
    "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"&_
    "</head>"&_
    "<body bgcolor='#FFFFFF' text='#000000'>"&_
    "<table width='651' border='0' cellspacing='1' cellpadding='0' align='center' bgcolor='#000000'>"&_
    "<tr colspan='3'> "&_
    "<td colspan='3'>"&_
    "<table width='651' border='0' cellspacing='1' cellpadding='0' align='center' bgcolor='#000000' >"&_
    "<tr bgcolor='#FFFFFF' > "&_
    "<td width='20%' height='42'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'><b>&nbsp;N&ordm; "&_
    "</b>I"&codigo&"</font> </td>"&_
    "<td width='63%' height='42'>"&_
    "<div align='center'><font size='3' face='Verdana, Arial, Helvetica, sans-serif'><b>"&_
    "              Solicitação de Serviço</b></font></div>"&_
    "</td>"&_
    "<td width='17%' height='42'> "&_
    "<div align='right'><font face='BSHG-Logos' size='6'>h</font></div>"&_
    "</td>"&_
    "</tr>"&_
    "</table>"&_
    "<table width='100%' border='0' cellspacing='1' cellpadding='0'>"&_
    "<tr bgcolor='#E0E0E0'>"&_
    "<td height='27'>"&_
    "<div align='center'></div>"&_
    "</td></tr><tr>"&_
    "<td bgcolor='#FFFFFF'> "&_
    "<br><p align='justify'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'>&nbsp;Sua"&_
    "              solicita&ccedil;&atilde;o foi encaminhada para a &aacute;rea de manutenção.<br><br>"&_
    "              <br><br><br></font></p><br>"&_
    "</td></tr>"&_
    "<tr bgcolor='#FFFFFF'><td height='34'>"&_
    "&nbsp;<input type='button' name='Voltar' value='Voltar' onclick=""location.href='/forms/form_manutencao/index_Daniel.asp'"" style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #E0E0E0; border: 1 solid #000000'>"&_
    "&nbsp;&nbsp;<input type='button' name='Fechar' value='Fechar' onClick='BLOCKED SCRIPTwindow.close();' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #E0E0E0; border: 1 solid #000000'>"&_
    "</td></tr></td></tr></table>"&_
    "</body>"&_
    "<html>")
    Response.End
    end if
    conn.close
    set rec=nothing
    set conn=nothing
    'recnewoffice.Close
    cnnOraclenew.Close
    set cnnOraclenew=nothing
    set recnewoffice=nothing
    %>

     

     

    quarta-feira, 3 de setembro de 2008 17:29
  • Código do windows_popup.asp

     

    Code Snippet

    <!--#include file="..\conexao.asp"-->
    <%
    response.expires=0
    REM  <-----------O select abaixo define o tamanho da janela------------------>
    ip         =request("ip_unidade")
    campo      =ucase(request("campo"))
    planta     =ucase(request("planta"))
    tip_service=ucase(request("tip_service"))
    login= REQUEST("LOGIN")

    select case campo
     case "UNIDADE", "C_UNID"
      twidth="140px"
      divheight="100px"
      divwidth="140px"

     case "SOLIC","BENE"
      twidth="295px"
      divheight="155px"
      divwidth="310px"

     case "EXECUT" , "execut"
      twidth="174px"
      divheight="105px"
      divwidth="180px"

     case "SAC"
      twidth="305px"
      divheight="155px"
      divwidth="320px"

     case "TIP_SERVICE"
      twidth="150px"
      divheight="150px"
      divwidth="160px"

     case "EQUIPA"
      twidth="250px"
      divheight="160px"
      divwidth="265px"

     case "C_LOGIN_COP"
      twidth="230px"
      divheight="190px"
      divwidth="246px"

    end select

    %>
    <HTML>
    <HEAD>
    <TITLE>.:: Caixa de seleção ::.</TITLE>
    </HEAD>
    <body bgcolor="#ffffff" onselectstart="return false;">
    <TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0 rules=all style="CURSOR: default; LEFT: 6px; POSITION: absolute; TOP: 6px;width:<%=twidth%>">
     <TR>
      <TH  BGColor="#E0E0E0" Align=center nowrap><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Caixa de Seleção</TH>
     </TR>
    </TABLE>
      <DIV  style="HEIGHT: <%=divheight%>; LEFT: 5px; OVERFLOW: auto; POSITION: absolute; TOP: 24px ; WIDTH:<%=divwidth%>">
    <TABLE ID="ALLSUBJECTS" BORDER=1 CELLPADDING=0 CELLSPACING=0 rules=all Style="CURSOR: default">
     <TBODY BGColor="#ffffff" Title="clique para selecionar a Linha">
     <TR>
     <%
     select case campo
      case "UNIDADE", "C_UNID"
     %>
      <!---
      <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="ANCHIETA"></TD>
      </TR>
      <TR>
      --->
      <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="FHH"></TD>
      </TR>
      <TR>
      <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="FHK"></TD>
      </TR>
      <!---
      <TR>
      <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="JUNDIAÍ"></TD>
      </TR>

      <TR>
      <TD>

      <INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="SARAPUI">
      </TD>
      </TR>
      --->

     <% case "SOLIC","BENE"
      set rec=nothing
      set rec=Conn.execute("select * from tb_ccusto where ccusto > 3999 or ccusto in(3050,3200,3715,3755) order by ccusto")
      do while not rec.eof
     %>
      <TR>
      <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 290px" Value="<%=rec("ccusto")&" - "&rec("nom_ccusto")%>" ></TD>
      </TR>

     <%
      rec.movenext
      loop
      case "EXECUT"
       select case ip
        case "10.1"
         Response.Write planta
         

           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut < 7000 order by nom_execut")

          

          do while not rec.eof
          %>
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id="Text4" name=text2></TD>
           </TR>
          <%
          
          loop
         'end if
        case "10.2"
          

          
           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut < 7000 order by nom_execut")

          
          do while not rec.eof
          %>
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id="Text3" name=text2></TD>
           </TR>
          <%
          rec.movenext
          loop
        case "10.4"
         
           
           set rec=nothing
           set rec=conn.execute("select * from tb_execut where cod_execut > 7000 order by cod_execut ")
           do while not rec.eof
           
          %>
          <!--nom_execut-->
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 170px" Value="<%=rec("cod_execut")&" - "&rec("nom_execut")%>" id=text2 name=text2></TD>
           </TR>
          <%
          rec.movenext
          loop
         
         
         
       end select

     

     

      'case "SAC"
      'set rec=nothing
      'set rec=conn.execute("select * from tb_sac order by num_sac desc")
      do while not rec.eof
     %>
      <TR>
      <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 300px" Value="<%=rec("num_sac")&" - "&rec("nom_sac")&" - "&rec("dep_sac") %>"></TD>
      </TR>
     <%
      rec.movenext
      loop
     %>
     <%case "TIP_SERVICE"%>
      <TD><INPUT onclick="ReturnData()"  readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="CORRETIVA" ></TD>
      </TR>
      <TR>
      <TD><INPUT onclick="ReturnData()"  readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="CORRETIVA PLANEJADA" ></TD>
      </TR>
      <TR>
      <TD><INPUT onclick="ReturnData()"  readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="INSTALAÇÃO" ></TD>
      </TR>
      <TR>
      <TD><INPUT onclick="ReturnData()"  readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="CONSTRUÇÃO" ></TD>
      </TR>
      <!--- pedido do Daniel --->
      <TR>
      <TD><INPUT onclick="ReturnData()"  readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="MELHORIA" ></TD>
      </TR>
      <TR>
      <TD><INPUT onclick="ReturnData()"  readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 11px; WIDTH: 136px" Value="MODIFICAÇÃO" ></TD>

     

     <% case "EQUIPA"
        dim altera
        'altera=cint(left(request("altera"),4))
        'if (tip_service="INSTALAÇÃO") then
         set rec=nothing
         set rec=conn.execute("select * from tb_instala order by cod_equip_ins asc")
         do while not rec.eof
         %>
          <TR>
          <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("cod_equip_ins")&" - "&rec("nom_equip_ins")%>"></TD>
          </TR>
         <%
         rec.movenext
         loop
        'elseif (altera="5130" and tip_service="INSTALAÇÃO") then
         set rec=nothing
         set rec=conn.execute("select * from tb_instala order by cod_equip_ins asc")
         do while not rec.eof
         %>
          <TR>
          <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("cod_equip_ins")&" - "&rec("nom_equip_ins")%>"></TD>
          </TR>
         <%
         rec.movenext
         loop
        'end if
        if altera=1131 then
         set rec=nothing
    rem início do select através da unidade
      select case ip
       case "10.1"
         'if planta="SARAPUI" then
          set rec=nothing
          set rec=conn.execute("select * from tb_ferram_srp order by cod_item_ferra")
          do while not rec.eof
          %>
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("Cod_item_ferra")&" - "&rec("desc_item_ferra")%>"></TD>
           </TR>
          <%
          rec.movenext
          loop
          'else
          set rec=nothing
          set rec=conn.execute("select * from tb_ferram order by cod_item_ferra")
          do while not rec.eof
          %>
           <TR>
           <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("Cod_item_ferra")&" - "&rec("desc_item_ferra")%>"></TD>
           </TR>
          <%
          rec.movenext
          loop
         'end if
            %>
       <!--começa a verificação para a metalfrio-->
      <% case "10.2"
           set rec=nothing
        set rec=conn.execute("select * from tb_ferram order by cod_item_ferra")
        do while not rec.eof
        %>
         <TR>
         <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("Cod_item_ferra")&" - "&rec("desc_item_ferra")%>" ></TD>
         </TR>
       <!--Termina a verificação para a metalfrio-->
        <%
        rec.movenext
        loop
                 %>
       <!--começa a verificação para a jaguare-->
      <% case "10.3"
           set rec=nothing
        set rec=conn.execute("select * from tb_ferram order by cod_item_ferra")
        do while not rec.eof
        %>
         <TR>
         <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("Cod_item_ferra")&" - "&rec("desc_item_ferra")%>" ></TD>
         </TR>
       <!--Termina a verificação para a jaguare-->
        <%
        rec.movenext
        loop
        %>
       <!--começa a verificação para a hortolândia-->
      <% case "10.4"
           set rec=nothing
        set rec=conn.execute("select * from tb_ferram order by cod_item_ferra")
        do while not rec.eof
        %>
         <TR>
         <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec("Cod_item_ferra")&" - "&rec("desc_item_ferra")%>" ></TD>
         </TR>
       <!--Termina a verificação para a Hortolândia     elseif (tip_service<>"INSTALAÇÃO") then -->
        <%
        rec.movenext
        loop
      end select
    rem fim do select da unidade

          set rec=nothing
          select case ip
           case "10.1"
            if planta="SARAPUI" then
             set rec2=nothing
              set rec2=conn.execute("select nom_equipa from tb_equipa_srp order by nom_equipa")
               do while not rec2.eof
           %>
            <TR>
            <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec2("nom_equipa")%>" ></TD>
            </TR>
            <%
           rec2.movenext
           loop
           else
            set rec1=nothing
             set rec1=conn.execute("select cod_equipa,nom_equipa from tb_equipa order by nom_equipa")
              do while not rec1.eof
            %>
            <TR>
            <TD><INPUT onclick="ReturnData()" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-SIZE: 9pt; WIDTH: 240px" Value="<%=rec1("Nom_equipa")&" - "&rec1("Cod_equipa")%>" ></TD>
            </TR>
            <%
            rec1.movenext
            loop
           end if
          end select
         end if

    case "C_LOGIN_COP"


     str_sql_newoffice="SELECT DECODE(CD_EMAIL_AMSO,NULL,lower(CD_LOGIN_BSC)||'@bscontinental.com.br',CD_EMAIL_AMSO) EMAILS_AMSO_BSC FROM TB_NEW_OFFICE WHERE 1=1 AND  CD_LOGIN_BSC LIKE '%"&ucase(login)&"%' OR CD_LOGIN_AMSO LIKE '%"&ucase(login)&"%' "
        set recnewoffice = Server.CreateObject("ADODB.Recordset")
        recnewoffice.Open str_sql_newoffice,cnnOraclenew
        do while not recnewoffice.EOF
     %>
       <TR>
       <TD><INPUT onclick="ReturnData()" Title="Dê um clique na linha" readonly tabIndex=-1 OnMouseOver ="style.backgroundColor='#E0E0E0'" OnMouseOut="style.backgroundColor='#ffffff'" STYLE="BACKGROUND-COLOR: transparent; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none; BORDER-RIGHT: medium none; BORDER-TOP: medium none; CURSOR: default; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; HEIGHT: 18px; WIDTH:  226px" Value="<%=recnewoffice("EMAILS_AMSO_BSC")%>"  id=text1 name=text1></TD>
       </TR>

     <%
        recnewoffice.movenext
        loop

    end select
     %>
     </TR>
       </TBODY>
    </TABLE>
    <SCRIPT LANGUAGE="JAVASCRIPT">
    var bDataChanged = false
    function Window_OnLoad()
    {
    }
    function ReturnData()
    {
     strValue = window.event.srcElement.value
     window.returnValue =  strValue //"teste"//
     window.close()
    }
    </SCRIPT>
    </body>
    </html>

     

     

    quarta-feira, 3 de setembro de 2008 17:33
  • Gustavo, tente tirar o "?botao=Submit" do atributo action do form, deixa somente o nome da pagina que ira fazer o processamento, do jeito que esta pode ser que o server entenda que as informaçoes serao passadas via query string, entao acaba nao pegando informaçoes dos campos do formulário, faça um teste para ver o que acontece.

    Abraço

    Estevam
    quarta-feira, 3 de setembro de 2008 17:55
  • Gustavo, esquece o que eu disse na mensagem anterior pois nao tem nada a ver fiz um teste e funciona normal, porém pelo que analisei seu código parece estar correto, faça o seguinte cria uma página em branco, altera o action desta página de envio para esta pagina em branco, e poe o codigo só pra testar se vai receber os dados do campo unidade. Exemplo:

    <%
    Response.Write(Request("unidade"))
    %>

    Abraços

    Estevam


    quarta-feira, 3 de setembro de 2008 18:21
  • Retirei, mas somente deu um postback na página e abriu novamente, não enviou o email....

    quarta-feira, 3 de setembro de 2008 18:29
  • Percebi que quando clico em enviar da pau e mostra a seguinte mensagem:

    O site não pode exibir a página

     HTTP 500
     

    Causas prováveis:

    • O site está em manutenção.
    • O site tem um erro de programação.
     

    Você pode tentar:

     

    Atualizar a página.

     

    Voltar para a página anterior.

     

    Mais informações

     

    No entanto seu eu der um CTRL+F5 ele envia o email sem nenhum dos dados preenchidos....

    o que será hein?

    quarta-feira, 3 de setembro de 2008 18:37
  • Mas só envia se eu preencher o ultimo campo

    Enviar uma cópia para:
     e-Mail:
     

     

    Caso contrário nem com CTRL+F5 esta enviando...

     

    quarta-feira, 3 de setembro de 2008 18:39
  • Este erro que ocorre é provavelmente erro no código, para visualizar o erro, vá em opçoes do internet explorer, na guia avançada, desmarque a opçao "Mostra mensagens de erro amigáveis", e teste novamente para ver qual erro esta ocorrendo.

    Abraço

    Estevam
    quarta-feira, 3 de setembro de 2008 18:57
  • O pior é que não posso, pois aqui na empresa os IE são travados...eles são configurados na alemanha....é ta complicado minha situação...

     

    quarta-feira, 3 de setembro de 2008 19:24
  • Alguem saberia dizer o q esta errado nesse maldito código?

    Grato

    Gustavo

     

    quarta-feira, 3 de setembro de 2008 20:09
  • Gustavo, sem saber o erro ocorrido fica dificil ajudar, o código é grande e é complicado tentar saber o erro que esta ocorrendo.

    Abraço

    Estevam
    quinta-feira, 4 de setembro de 2008 11:38
  • Estevam, consegui pegar o erro...

     

    Microsoft OLE DB Provider for SQL Server error '80040e07'

    Error converting data type varchar to numeric.

    /IntranetAutenticada/forms/form_manutencao/Index_daniel.asp, line 523

     

     

    o que será que pode ser?

     

     

    quinta-feira, 4 de setembro de 2008 12:17
  • Segue o código da linha 510 á 530

    Code Snippet

    set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    case "10.3"
     set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")
     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    case "10.4"
     set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")
     set query=server.createobject("adodb.recordset")
     Query.open "select Max(cod_cadastro) registro from tb_dados",sqlserver
     rem <---------------------------------------loop do contador----------------------------->
     if not Query.eof then
     Codigo=replace(space(7-len(query("registro"))),chr(32),"0")&query("registro")
     end if
    end select

     

     

     

     

    quinta-feira, 4 de setembro de 2008 12:25
  • Segue a linha 523

     

    Code Snippet
    set query=conn.execute("exec autonumeracao '"&request("c_login")&"','"&request("c_nome")&"','"&request("c_depto")&"','"&request("c_re")&"','"&request("c_ramal")&"','"&request("c_unid")&"','"&request("unidade")&"','"&request("solic")&"','"&request("execut")&"','"&request("bene")&"','"&request("sac")&"','"&request("tip_mass")&"','"&request("tip_service")&"','"&request("equipa")&"','"&replace(request("descricao"),chr(39),chr(32))&"','"&request("prazo")&"','"&request("c_login_cop")&"'")

     

     

     

    quinta-feira, 4 de setembro de 2008 12:33
  • Gustavo, é algum campo que no banco esta como inteiro ou numerico e voce esta tentando passar uma string, verifique os campos no banco veja quais NAO sao do tipo string e veja na instrucao sql que você tem para verificar qual campo esta gerando erros. 

    Abraço

    Estevam
    quinta-feira, 4 de setembro de 2008 12:56
  • Existem 3 campos que são do tipo decimal :

    - cod_cadastro

    - re_solic

    - ramal

     

    eu teria que transformar para decimal?

    Como eu faria isso?

    Att

     

    quinta-feira, 4 de setembro de 2008 13:51
  • Estou tentando  utilizar a função CDBL()

    dai fiz o seguinte código:

    '"&request(CDBL("c_re"))&"',

    Mas não esta dando certo

    alguem ajuda?

     

    quinta-feira, 4 de setembro de 2008 14:52
  • Gustavo o correto é assim

    "& CDbl(request("c_re")) &"',

    Abraço

    Estevavm
    quinta-feira, 4 de setembro de 2008 15:25
  • Estevam muito obrigado pela ajuda!!!! problema resolvido!

     

    quinta-feira, 4 de setembro de 2008 16:27