Ajuda com Código

Question

 

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

Answer 1

Gustavo, tente realiza o if da maneira abaixo:

 

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

 

Abraços

 

Estevam

Answer 2

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

 

 

Answer 3

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

Answer 4

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

 

Answer 5

Cheguei a achar q tinha dado certo, mas ainda não deu não

 

Answer 6

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

Answer 7

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

Answer 8

Gustavo, por acaso este campo nao esta como disable nao né?

 

Abraço

 

Estevam

Answer 9

Estevam, ele não permite ser alterado nem por o focus nele.

Isso empede que o comando pegue o valor?

Att

Gustavo

Answer 10

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>

Answer 11

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

Answer 12

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

 

Answer 13

Gustavo como esta o atributo name do campo input do value FHH??

 

Abraços

 

Estevam

Answer 14

name="unidade"

 

Answer 15

Gustavo, aparentemente esta tudo correto, envie o código do form que faz envio do FHH.

 

Abraço

 

Estevam

Answer 16

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

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

 

Answer 17

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 = "[e-mail]"
     '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 = "[e-mail]"
  '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>
 

 

 

Answer 18

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'>"&_
"          "&_

 

 

Answer 19

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   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
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 "[e-mail]"
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>-----------------------------------------------------------------------------------------------------------"&_

 

 

Answer 20

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   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
jmail.AddRecipient   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
'jmail.AddRecipient   "[e-mail]"
'jmail.AddRecipientCC "[e-mail]"
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:[e-mail]'>[e-mail]</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
%>

 

 

Answer 21

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>

 

 

Answer 22

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

Answer 23

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

Answer 24

Retirei, mas somente deu um postback na página e abriu novamente, não enviou o email....

Answer 25

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 Esse erro (HTTP 500 Erro Interno do Servidor) significa que o site visitado teve um problema no servidor que impediu a exibição da página da Web. Para obter mais informações sobre erros de HTTP, consulte a Ajuda.

 

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

o que será hein?

Answer 26

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

 

Answer 27

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

Answer 28

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

 

Answer 29

Alguem saberia dizer o q esta errado nesse maldito código?

Grato

Gustavo

 

Answer 30

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

Answer 31

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?

 

 

Answer 32

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

 

 

 

 

Answer 33

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")&"'")

 

 

 

Answer 34

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

Answer 35

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

 

Answer 36

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?

 

Answer 37

Gustavo o correto é assim

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

Abraço

Estevavm

Answer 38

Estevam muito obrigado pela ajuda!!!! problema resolvido!