Usuário com melhor resposta
Ajuda com Código

Pergunta
-
Pessoal, bom dia!
Seguinte, tenho 2 formulários que usam uma mesma função (windows_popup.asp).
Quero que o windows_popup.asp reconheça qual o formulário pai que chamou e de acordo com esse parametro ele faça um select diferente.
Tem 2 diferenças entre os formulários que chamam o windows_popup.asp, o value de um textbox ( que em ambos formulário tem o name = text1 porem o value do primeiro é FHH e do segundo FHK) e o nome do arquivo ( um tem o nome de index_divino.asp e o outro de index_daniel.asp)
Estou tentando o código abaixo, mas esta dando erro, gostaria de uma ajuda para resolver o problema.
Abaixo segue o código (em vermelho esta o código que teoricamente faria a checagem):
Code Snippetif (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
loopelse
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
loopEnd if
Respostas
-
Gustavo, é algum campo que no banco esta como inteiro ou numerico e voce esta tentando passar uma string, verifique os campos no banco veja quais NAO sao do tipo string e veja na instrucao sql que você tem para verificar qual campo esta gerando erros.AbraçoEstevam
-
Todas as Respostas
-
-
-
-
-
-
-
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
-
-
-
Tirei o readonly e nada...
esta assim a configuração do Text1:
</td> -
-
Nada.....segue o código para vc dar uma olhada...
Code Snippetif ( 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 -
-
-
-
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
-
Estevam e pessoal, segue o código para análise. Outra coisa tenho outro problema fora esse de não reconhecer se é FHH ou FHK, quando o usuário clica no botão enviar o email não esta indo e aparece uma página de erro do IExplorer....
Preciso de ajuda!
Code Snippet<!--#include file="conexao.asp"-->
<%login= ucase(Right(request.servervariables("logon_user"),len(request.servervariables("logon_user"))-instr(request.servervariables("logon_user"),"\")))
login_a= ucase(Right(request.servervariables("logon_user"),len(request.servervariables("logon_user"))-instr(request.servervariables("logon_user"),"\")))
if login="OTTOBONI" then
'login="TARTARIK"
end if
function Retorna_Email_Login(tipo,login)
Rem <-------------------recebendo o domínio------------------>
dominio=ucase(mid(request.servervariables("logon_user"),1,instr(request.servervariables("logon_user"),"\")-1))
Rem <-------------------comparando o domínio------------------>
dim str_sql_newoffice
'login = "MOREIRAM"
str_sql_newoffice="SELECT CD_LOGIN_BSC, CD_EMAIL_AMSO FROM TB_NEW_OFFICE WHERE CD_LOGIN_AMSO='"&ucase(login)&"'"
'RESPONSE.Write str_sql_newoffice
rem "&ucase(login)&"
set recnewoffice = Server.CreateObject("ADODB.Recordset")
recnewoffice.Open str_sql_newoffice,cnnOraclenew
'response.Write login&"<br>"
if not recnewoffice.EOF then
login=""
login=recnewoffice("CD_LOGIN_BSC") 'AQUI VC DEVERÁ COLOCAR A VARIAVEL QUE PEGA O LOGIN
email=recnewoffice("CD_EMAIL_AMSO")
'Correção provisoria para fazer o e-mail entrar na pasa publica do Daniel
if CD_LOGIN_BSC = "DUARTED" then
email = "daniel.duarte@bshg.com"
'response.Write email&"<br>"
'response.Write login&"<br>"
end if
'response.Write email
end if
Rem <---------------------------------------------------fim--------------------------------------------------------------->
if tipo="EMAIL" then
Retorna_Email_Login=email
else
Retorna_Email_Login=login
end if
end function'login_a = "DUARTED"
Login=Retorna_Email_Login ("LOGIN",Login)
email=Retorna_Email_Login ("EMAIL",login_a)
'response.write login&"<br>"
'response.write email
'Correção provisoria para fazer o e-mail entrar na pasa publica do Daniel
'if login = "DUARTED" then
' email = "daniel.duarte@bshg.com"
'response.Write email&"<br>"
'response.Write login&"<br>"
'end ifplanta=ucase(request("unidade"))
if request("botao")="" then
ip_unidade=Request.ServerVariables("REMOTE_ADDR")
ip_unidade=left(ip_unidade,4)
'response.write ip_unidade
'response.endRem <---------------------------------------recebendo os logins da rede-------------------------------------------------->
Rem <-------------------comparando o domínio------------------>
'response.Write loginRem <---------------------------------------------------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> 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"> 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'> Nome do solicitante:</font></td>"
response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'> <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'> Departamento:</font></td>"
response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'> <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'> Login:</font></td>"
response.write"<td height='25' bgcolor='#FFFFFF' width='33%'> <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'> RE:</font>"
response.write"</td>"
response.write"<td bgcolor='#FFFFFF' width='29%'> <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'> Unidade:</font></td>"
response.write"<td height='25' bgcolor='#FFFFFF' width='33%'> <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'> Ramal:</font> "
response.write"</td>"
response.write"<td bgcolor='#FFFFFF' width='29%'> <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'> Data:</font></td>"
response.write"<td height='25' bgcolor='#FFFFFF' width='33%'> <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'> Hora:</font> "
response.write"</td>"
response.write"<td bgcolor='#FFFFFF' width='29%'> <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'> Nome do solicitante:</font></td>"
response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'> <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'> Departamento:</font></td>"
response.write"<td colspan='4' height='25' bgcolor='#FFFFFF'> <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'> Login:</font></td>"
response.write"<td height='25' bgcolor='#FFFFFF' width='33%'> <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'> RE:</font>"
response.write"</td>"
response.write"<td bgcolor='#FFFFFF' width='29%'> <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'> Unidade:</font></td>"
response.write"<td height='25' bgcolor='#FFFFFF' width='33%'> <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'> Ramal:</font> "
response.write"</td>"
response.write"<td bgcolor='#FFFFFF' width='29%'> <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'> Data:</font></td>"
response.write"<td height='25' bgcolor='#FFFFFF' width='33%'> <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'> Hora:</font> "
response.write"</td>"
response.write"<td bgcolor='#FFFFFF' width='29%'> <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çã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"> Unidade executante:</font></div>
</td>
<td height="24" width="70%" colspan="4"> <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"> Área Solicitante:</font></div>
</td>
<td height="24" width="70%" colspan="4"> <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>
-
2º parte
Code Snippet<tr bgcolor="#FFFFFF">
<td width="30%" height="25"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Área Executante:</font></td>
<td height="24" width="70%" colspan="4"> <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"> Área Beneficiada:</font></td>
<td height="24" width="70%" colspan="4"> <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"> <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"> É
uma S.A.C?:</font></td>
<td height="24" width="70%" colspan="4"> <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"> Identifique:</font></td>
<td height="24" width="70%" colspan="4"> <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"> 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"> Serviço:</font></div>
</td>
<td colspan="7" height="24" width="70%"> <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"> Nome
do Equipamento:</font></div>
</td>
<td colspan="7" height="24" width="70%"> <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"> <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"> 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"> <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"> 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"> Texto:</font></div>
</td>
<td colspan="7" height="24" width="70%"> <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"> Prazo:</font></div>
</td>
<td colspan="7" height="24" width="70%"> <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ó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"> e-Mail:</font></div>
</td>
<td colspan="7" height="24" width="70%"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <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">
<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'> S.A.C número:</font></td>"
tsac=tsac&"<td height='24' width='475' colspan='3'> <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ó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'> 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'> <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'> 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'> <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> Nº "&_
"</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'>"&_
" "&_ -
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'> Dados "&_
" do solicitante:</font></div>"&_
"</td>"&_
"</tr>"&_
"<tr> "&_
"<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'> Nome do solicitante:</font></td>"&_
"<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'> <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'> Departamento:</font></td>"&_
"<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'> <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'> Login:</font></td>"&_
"<td height='25' bgcolor='#FFFFFF' width='237'> <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'> RE:</font> "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='181' > <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'> Unidade:</font></td>"&_
"<td height='25' bgcolor='#FFFFFF' width='237'> <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' >"&_
" "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'> Ramal:</font> "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='181' > <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'> Data:</font></td>"&_
"<td height='25' bgcolor='#FFFFFF' width='237'> <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'> Hora:</font> "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='181' > <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çã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'> Área"&_
" Solicitante:</font></div>"&_
"</td>"&_
"<td height='24' width='475' colspan='3'> <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' >"&_
" "&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#FFFFFF'> "&_
"<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> Área"&_
" Executante:</font></td>"&_
"<td height='24' width='475' colspan='3'> <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' >"&_
" "&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#FFFFFF'> "&_
"<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> Área"&_
" Beneficiada:</font></td>"&_
"<td height='24' width='475' colspan='3'> <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' >"&_
" "&_
"</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'> 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'> Serviço:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'> <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' >"&_
" </td>"&_
"</tr>"&_
"<tr bgcolor='#FFFFFF'> "&_
"<td width='158' height='24'> "&_
"<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> Nome"&_
" do Equipamento:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'> <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' >"&_
" "&_
"</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'> 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'> Texto:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> <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'> Prazo:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'> <input type='text' name='prazo' size='15' value='"&prazo&"' style='font-family: Verdana; font-size: 8 pt; color: #000000; background-color: #FFFFFF; border: 1 solid #C0C0C0'>"&_
"</td>"&_
"</tr>"&_
""&bloco&""&_
"</table>"&_
"</td>"&_
"</tr>"&_
"</table>"&_
"</body>"&_
"</html>")
rem <-----------------------------abaixo teremos as pessoas ou grupos que receberam este formulário--------------------------->
jmail.ContentType = "text/html"
jmail.SenderName = "Formulário de solicitação de serviço"jmail.Sender = email
JMail.Subject = "Formulário de solicitação de serviço - NºI "&codigo
jmail.SenderName = "Formulário de solicitação de serviço"
jmail.ServerAddress = "smtpmail.hor.bshg.com"'jmail.AddRecipient "daniel.duarte@bshg.com"
'jmail.AddRecipient "Sao-Man.Geral@bshg.com"
'jmail.AddRecipient "divino.ignacio@bshg.com"
'jmail.AddRecipient "limpadora.supervisao-ext@bshg.com"
'jmail.AddRecipient "gustavo.ottoboni@bshg.com"
if email<>"" then
jmail.AddRecipientCC email
end if
'response.Write ucase(Right(request.servervariables("logon_user"),len(request.servervariables("logon_user"))-instr(request.servervariables("logon_user"),"\")))&"<br>"
'jmail.AddRecipientCC "Diego.Beserra@bshg.com"
rem <-------------------------caso tenha sido preenchido o campo login para cópia a pessoa receberá uma cópia do form.-------->
if login_cop<>"" then
if instr(1,login_cop,"@")>0 then
jmail.AddRecipientCC login_cop
'Response.Write "-1"&login_cop&"<br>"
else
jmail.AddRecipientCC login_copend 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> Nº "&_
"</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'> Dados "&_
" do solicitante:</font></div>"&_
"</td>"&_
"</tr>"&_
"<tr> "&_
"<td width='158' bgcolor='#FFFFFF' height='25'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'> Nome do solicitante:</font></td>"&_
"<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'> <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'> Departamento:</font></td>"&_
"<td colspan='3' height='25' bgcolor='#FFFFFF' width='475'> <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'> Login:</font></td>"&_
"<td height='25' bgcolor='#FFFFFF' width='237'> <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'> RE:</font> "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='181' > <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'> Unidade:</font></td>"&_
"<td height='25' bgcolor='#FFFFFF' width='237'> <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' >"&_
" "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='49'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'> Ramal:</font> "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='181' > <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'> Data:</font></td>"&_
"<td height='25' bgcolor='#FFFFFF' width='237'> <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'> Hora:</font> "&_
"</td>"&_
"<td bgcolor='#FFFFFF' width='181' > <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çã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'> Área"&_
" Solicitante:</font></div>"&_
"</td>"&_
"<td height='24' width='475' colspan='3'> <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' >"&_
" "&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#FFFFFF'> "&_
"<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> Área"&_
" Executante:</font></td>"&_
"<td height='24' width='475' colspan='3'> <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' >"&_
" "&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#FFFFFF'> "&_
"<td width='158' height='25'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> Área"&_
" Beneficiada:</font></td>"&_
"<td height='24' width='475' colspan='3'> <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' >"&_
" "&_
"</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'> 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'> Serviço:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'> <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' >"&_
" </td>"&_
"</tr>"&_
"<tr bgcolor='#FFFFFF'> "&_
"<td width='158' height='24'> "&_
"<div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> Nome"&_
" do Equipamento:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'> <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' >"&_
" "&_
"</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'> 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'> Texto:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'><font face='Verdana, Arial, Helvetica, sans-serif' size='2'> <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'> Prazo:</font></div>"&_
"</td>"&_
"<td colspan='3' height='24' width='475'> <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>-----------------------------------------------------------------------------------------------------------"&_ -
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'> Esta"&_
" área é 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'> Executante:___________________________________________ "&_
" 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 </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ício</font></b></td> "&_
"<td width='26%' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Hora"&_
" Término</font></b></td> "&_
"</tr> "&_
"<tr> "&_
"<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>1</font></b></td> "&_
"<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
"<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"</tr> "&_
"<tr> "&_
"<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>2</font></b></td> "&_
"<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
"<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"</tr> "&_
"<tr> "&_
"<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>3</font></b></td> "&_
"<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
"<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"</tr> "&_
"<tr> "&_
"<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>4</font></b></td> "&_
"<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
"<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"</tr> "&_
"<tr> "&_
"<td width='21%' align='center' height='1'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>5</font></b></td> "&_
"<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>____/____/____</font></td> "&_
"<td width='17%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"<td width='26%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>_______:______</font></td> "&_
"</tr> "&_
"</center>"&_
"<tr> "&_
"<td width='21%' align='center' height='1'>"&_
" <p align='left'><b><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>Nº"&_
" do Req. Material:</font></b></td> "&_
"<center>"&_
"<td width='1%' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>______________</font></td> "&_
"<td width='17%' height='1'></td> "&_
"<td width='26%' height='1'></td> "&_
"</tr> "&_
"</table> "&_
"</td> "&_
"</tr> "&_
"</table> "&_
"</center>"&_
"</div>"&_
"</td>"&_
"</tr> "&_
"<tr bgcolor='#E0E0E0'> "&_
"<td height='1' width='637'> "&_
"<p align='center'><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>Descrição"&_
"do Material Utilizado</font><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>:</font>"&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#E0E0E0'> "&_
"<td height='24' width='651' bgcolor='#FFFFFF'> "&_
"<div align='center'>"&_
"<table width='100%' border='0' cellpadding='2' height='1'> "&_
"<tr> "&_
"<td colspan='7' height='1'><font face='Verdana, Arial, Helvetica, sans-serif' size='1'>__________________________________________________________________________________________________________<br> "&_
" __________________________________________________________________________________________________________</font></td> "&_
"</tr> "&_
"</table> "&_
"</div>"&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#E0E0E0'> "&_
"<td height='1' width='651' bgcolor='#E0E0E0'> "&_
"<p align='center'><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>Observações:</font>"&_
"</td>"&_
"</tr>"&_
"<tr bgcolor='#E0E0E0'> "&_
"<td height='1' width='651' bgcolor='#FFFFFF'> "&_
"<font face='Verdana, Arial, Helvetica, sans-serif' size='1'>___________________________________________________________________________________________________________<br> "&_
"___________________________________________________________________________________________________________<br> "&_
"____________________________________________________________________________________________________________</font>"&_
"</td>"&_
"</tr>"&_
"</table>"&_
"</td>"&_
"</tr>"&_
"</table>"&_
"</body>"&_
"</html>")
Rem <------------------------Verificação de erro no envio---------------------------------------->
on error resume next
jmail.ContentType = "text/html"
jmail.SenderName = "Formulário de solicitação de serviço"
jmail.Sender = email
JMail.Subject = "Formulário de solicitação de serviço Nº "&codigo
jmail.ServerAddress = "smtpmail.hor.bshg.com"
'jmail.AddRecipient "limpadora.supervisao-ext@bshg.com"
'jmail.AddRecipient "Sao-Man.Geral@bshg.com"
jmail.AddRecipient "daniel.duarte@bshg.com"
'jmail.AddRecipient "divino.ignacio@bshg.com"
'jmail.AddRecipient "gustavo.ottoboni@bshg.com"
'jmail.AddRecipientCC "Marcelo.moreira@bshg.com"
if email<>"" then
if instr(1,email,"@")>0 then
jmail.AddRecipientCC email
end if
end if
if login_cop<>"" then
if instr(1,login_cop,"@")>0 then
jmail.AddRecipientCC login_cop
'Response.Write "3"&login_cop&"<br>"
else
jmail.AddRecipientCC login_cop
end if
end if
'RESPONSE.WRITE EMAIL&"MARCELO"
'response.End
jmail.Executeif 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> 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'> Problemas "
response.write" no envio deste formulá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> </p>"
response.write" Este formulário não pô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úvida entre em contato através do e-Mail:<a href='mailto:contentmaster@bscontinental.com.br'>contentmaster@bscontinental.com.br</a></font><font size='2' face='Verdana's-serif'> <br>"
response.write"</font></p>"
response.write"<p> </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" <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" <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> Nº "&_
"</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'> Sua"&_
" solicitação foi encaminhada para a área de manutenção.<br><br>"&_
" <br><br><br></font></p><br>"&_
"</td></tr>"&_
"<tr bgcolor='#FFFFFF'><td height='34'>"&_
" <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'>"&_
" <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
%> -
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 unidadeset 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 ifcase "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
loopend 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> -
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çoEstevam
-
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çosEstevam
-
-
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?
-
-
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çoEstevam
-
-
-
-
-
Segue o código da linha 510 á 530
Code Snippetset 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 -
Segue a linha 523
Code Snippetset 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")&"'") -
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çoEstevam
-
-
-
-