Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Wellington Nonat

Vincular dois campos no asp utilizando o Dreamweaver CS5

Recommended Posts

:confused: Boa tarde!

Estou tendo problemas para vincular dos campos o cliente com o solicitante "usuário" ambos estão na mesma tabela, na linguagem ASP e com o banco de dados Access 2007. O meu problema é o seguinte quero que o campo solicitante aparece somente os solicitantes do cliente que for escolhido no campo cliente. O que devo fazer para dar certo?

O codigo é este:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<!--#include file="Connections/Conexao_Atendimento.asp" -->

<%

Dim MM_editAction

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

' boolean to abort record edit

Dim MM_abortEdit

MM_abortEdit = false

%>

<%

' IIf implementation

Function MM_IIf(condition, ifTrue, ifFalse)

If condition = "" Then

MM_IIf = ifFalse

Else

MM_IIf = ifTrue

End If

End Function

%>

<%

If (CStr(Request("MM_insert")) = "formInserirTelefonemasRecebido") Then

If (Not MM_abortEdit) Then

' execute the insert

Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")

MM_editCmd.ActiveConnection = MM_Conexao_Atendimento_STRING

MM_editCmd.CommandText = "INSERT INTO TELEFONEMAS_RECEBIDOS (DATA_TEL_RECEBIDOS, HORA_TEL_RECEBIDOS, ATENDENTE_TEL_RECEBIDOS, CLIENTE_TEL_RECEBIDOS, Local_TelRecebidos, SOLICITANTE_TEL_RECEBIDOS, SISTEMA_TEL_RECEBIDOS, MODULOS_TEL_RECEBIDOS, TIPO_LIGACAO_TEL_RECEBIDOS, OBSERVACAO_TEL_RECEBIDOS, Pedente_Tel_Recebidos) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"

MM_editCmd.Prepared = true

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("InserirDataInicial_TelRecebido"), Request.Form("InserirDataInicial_TelRecebido"), null)) ' adDBTimeStamp

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 135, 1, -1, MM_IIF(Request.Form("InserirHora_TelRecebidos"), Request.Form("InserirHora_TelRecebidos"), null)) ' adDBTimeStamp

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("InserirAtendente_TelRecebidos"), Request.Form("InserirAtendente_TelRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("InserirCliente_TelRecebidos"), Request.Form("InserirCliente_TelRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("InserirLocal_TelRecebidos"), Request.Form("InserirLocal_TelRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("InserirSolicitante_TelRecebidos"), Request.Form("InserirSolicitante_TelRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("inserirSistema_TElRecebidos"), Request.Form("inserirSistema_TElRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("InserirModulo_TelRecebidos"), Request.Form("InserirModulo_TelRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 5, 1, -1, MM_IIF(Request.Form("InserirTipoLigacao_TelRecebidos"), Request.Form("InserirTipoLigacao_TelRecebidos"), null)) ' adDouble

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("InserirObs_TelRecebidos")) ' adVarWChar

MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 255, Request.Form("Pedente")) ' adVarWChar

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL

Dim MM_editRedirectUrl

MM_editRedirectUrl = "Confirmacao/ConfTelRecebidos.asp"

If (Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

Response.Redirect(MM_editRedirectUrl)

End If

End If

%>

<%

Dim TelefonemasRecebidos

Dim TelefonemasRecebidos_cmd

Dim TelefonemasRecebidos_numRows

Set TelefonemasRecebidos_cmd = Server.CreateObject ("ADODB.Command")

TelefonemasRecebidos_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

TelefonemasRecebidos_cmd.CommandText = "SELECT * FROM TELEFONEMAS_RECEBIDOS"

TelefonemasRecebidos_cmd.Prepared = true

Set TelefonemasRecebidos = TelefonemasRecebidos_cmd.Execute

TelefonemasRecebidos_numRows = 0

%>

<%

Dim Atendente

Dim Atendente_cmd

Dim Atendente_numRows

Set Atendente_cmd = Server.CreateObject ("ADODB.Command")

Atendente_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

Atendente_cmd.CommandText = "SELECT * FROM ATENDENTE ORDER BY ATENDENTE ASC"

Atendente_cmd.Prepared = true

Set Atendente = Atendente_cmd.Execute

Atendente_numRows = 0

%>

<%

Dim Cliente

Dim Cliente_cmd

Dim Cliente_numRows

Set Cliente_cmd = Server.CreateObject ("ADODB.Command")

Cliente_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

Cliente_cmd.CommandText = "SELECT * FROM CLIENTE ORDER BY CLIENTE_CLIENTE ASC"

Cliente_cmd.Prepared = true

Set Cliente = Cliente_cmd.Execute

Cliente_numRows = 0

%>

<%

Dim TelefoneGeral

Dim TelefoneGeral_cmd

Dim TelefoneGeral_numRows

Set TelefoneGeral_cmd = Server.CreateObject ("ADODB.Command")

TelefoneGeral_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

TelefoneGeral_cmd.CommandText = "SELECT * FROM TELEFONE_GERAL ORDER BY LOCAL_TEL_GERAL ASC"

TelefoneGeral_cmd.Prepared = true

Set TelefoneGeral = TelefoneGeral_cmd.Execute

TelefoneGeral_numRows = 0

%>

<%

Dim Sistema

Dim Sistema_cmd

Dim Sistema_numRows

Set Sistema_cmd = Server.CreateObject ("ADODB.Command")

Sistema_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

Sistema_cmd.CommandText = "SELECT * FROM SISTEMAS ORDER BY SISTEMAS_SITEMAS ASC"

Sistema_cmd.Prepared = true

Set Sistema = Sistema_cmd.Execute

Sistema_numRows = 0

%>

<%

Dim Situacao

Dim Situacao_cmd

Dim Situacao_numRows

Set Situacao_cmd = Server.CreateObject ("ADODB.Command")

Situacao_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

Situacao_cmd.CommandText = "SELECT * FROM SITUACAO ORDER BY SITUACAO_SITUACAO ASC"

Situacao_cmd.Prepared = true

Set Situacao = Situacao_cmd.Execute

Situacao_numRows = 0

%>

<%

Dim TipoAtendimento

Dim TipoAtendimento_cmd

Dim TipoAtendimento_numRows

Set TipoAtendimento_cmd = Server.CreateObject ("ADODB.Command")

TipoAtendimento_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

TipoAtendimento_cmd.CommandText = "SELECT * FROM TIPO_ATENDIMENTO ORDER BY TIPO_LIGACAO ASC"

TipoAtendimento_cmd.Prepared = true

Set TipoAtendimento = TipoAtendimento_cmd.Execute

TipoAtendimento_numRows = 0

%>

<%

Dim Solicitante_TelRecebidos

Dim Solicitante_TelRecebidos_cmd

Dim Solicitante_TelRecebidos_numRows

Set Solicitante_TelRecebidos_cmd = Server.CreateObject ("ADODB.Command")

Solicitante_TelRecebidos_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

Solicitante_TelRecebidos_cmd.CommandText = "SELECT * FROM SOLICITANTE ORDER BY SOLICITANTE_SOLICITANTE ASC"

Solicitante_TelRecebidos_cmd.Prepared = true

Set Solicitante_TelRecebidos = Solicitante_TelRecebidos_cmd.Execute

Solicitante_TelRecebidos_numRows = 0

%>

<%

Dim ModulosTelRecebidos

Dim ModulosTelRecebidos_cmd

Dim ModulosTelRecebidos_numRows

Set ModulosTelRecebidos_cmd = Server.CreateObject ("ADODB.Command")

ModulosTelRecebidos_cmd.ActiveConnection = MM_Conexao_Atendimento_STRING

ModulosTelRecebidos_cmd.CommandText = "SELECT * FROM Modulos ORDER BY MODULOS ASC"

ModulosTelRecebidos_cmd.Prepared = true

Set ModulosTelRecebidos = ModulosTelRecebidos_cmd.Execute

ModulosTelRecebidos_numRows = 0

%>

<%

Dim MM_paramName

%>

<%

' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone

Dim MM_keepURL

Dim MM_keepForm

Dim MM_keepBoth

Dim MM_removeList

Dim MM_item

Dim MM_nextItem

' create the list of parameters which should not be maintained

MM_removeList = "&index="

If (MM_paramName <> "") Then

MM_removeList = MM_removeList & "&" & MM_paramName & "="

End If

MM_keepURL=""

MM_keepForm=""

MM_keepBoth=""

MM_keepNone=""

' add the URL parameters to the MM_keepURL string

For Each MM_item In Request.QueryString

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))

End If

Next

' add the Form variables to the MM_keepForm string

For Each MM_item In Request.Form

MM_nextItem = "&" & MM_item & "="

If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then

MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))

End If

Next

' create the Form + URL string and remove the intial '&' from each of the strings

MM_keepBoth = MM_keepURL & MM_keepForm

If (MM_keepBoth <> "") Then

MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)

End If

If (MM_keepURL <> "") Then

MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)

End If

If (MM_keepForm <> "") Then

MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

End If

' a utility function used for adding additional parameters to these strings

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Untitled Document</title>

<style type="text/css">

#formInserirTelefonemasRecebido {

text-align: center;

font-weight: bold;

font-size: 24px;

}

#formInserirTelefonemasRecebido table tr td div strong {

font-size: 16px;

text-align: center;

}

#formInserirTelefonemasRecebido table tr td div #sprytextfield20 .textfieldRequiredMsg {

font-size: 16px;

}

#formInserirTelefonemasRecebido table {

font-size: 16px;

text-align: left;

}

#formInserirTelefonemasRecebido table {

text-align: center;

}

.tituloTabelaTelRecebidos {

font-size: 12px;

}

#formInserirTelefonemasRecebido table .tituloTabelaTelRecebidos th {

font-size: 14px;

}

.editTelRecebidos {

font-size: 12px;

}

#formInserirTelefonemasRecebido table tr td link {

font-size: 12px;

}

#formInserirTelefonemasRecebido table tr td #spryselect6 {

font-size: 10px;

}

#formInserirTelefonemasRecebido table tr td link {

font-size: 10px;

}

link {

font-size: 12px;

}

</style>

<script type="text/javascript">

function Formatadata(Campo, teclapres)

{

var tecla = teclapres.keyCode;

var vr = new String(Campo.value);

vr = vr.replace("/", "");

vr = vr.replace("/", "");

vr = vr.replace("/", "");

tam = vr.length + 1;

if (tecla != 8 && tecla != 8)

{

if (tam > 0 && tam < 2)

Campo.value = vr.substr(0, 2) ;

if (tam > 2 && tam < 4)

Campo.value = vr.substr(0, 2) + '/' + vr.substr(2, 2);

if (tam > 4 && tam < 6)

Campo.value = vr.substr(0, 2) + '/' + vr.substr(2, 2) + '/' + vr.substr(4, 6);

}

}

</script>

<script type="text/javascript">

function Formatahora(Campo, teclapres)

{

var tecla = teclapres.keyCode;

var vr = new String(Campo.value);

vr = vr.replace(":", "");

tam = vr.length + 1;

if (tecla != 8 && tecla != 8)

{

if (tam > 0 && tam < 2)

Campo.value = vr.substr(0, 2) ;

if (tam > 2 && tam < 4)

Campo.value = vr.substr(0, 2) + ':' + vr.substr(2, 2);

}

}

</script>

<script language="JavaScript">

function abrir(URL) {

var width = 500;

var height = 300;

var left = 99;

var top = 99;

window.open(URL,'janela', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');

}

</script>

<script src="SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>

<script src="SpryAssets/SpryValidationSelect.js" type="text/javascript"></script>

<script src="SpryAssets/SpryValidationTextarea.js" type="text/javascript"></script>

<link href="SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />

<link href="SpryAssets/SpryValidationSelect.css" rel="stylesheet" type="text/css" />

<link href="SpryAssets/SpryValidationTextarea.css" rel="stylesheet" type="text/css" />

</head>

<body>

<form ACTION="<%=MM_editAction%>" METHOD="POST" id="formInserirTelefonemasRecebido" name="formInserirTelefonemasRecebido">

<p style="font-size: 12px; text-align: left;"><a href="DadosCadastrados/DadoCadTelRecebidos.asp"><img src="Imagens/Visualizar/viewTelRecebidos.png" width="20" height="20" /></a> <a href="DadosCadastrados/DadoCadTelRecebidos.asp">Visualizar telefonemas recebidos cadastrados</a>             <a href="DadosCadastrados/DadoCadPedenteTelRecebidos.asp">Telefonemas Pedentes</a></p>

<p>Telefonemas Recebidos

</p>

<p><table width="315" border="0" align="center" cellpadding="2" cellspacing="2">

<tr>

<td width="107" scope="col"><div align="center"><strong>Data:</strong></div></td>

<td width="197" align="left" scope="col"><span id="sprytextfield1">

<label for="InserirDataInicial_TelRecebido"></label>

<input name="InserirDataInicial_TelRecebido" value="<%=date%>" type="text" id="InserirDataInicial_TelRecebido" onkeyup="Formatadata(this,event)" size="15" maxlength="10" />

<span class="textfieldRequiredMsg">Digite a data.</span><span class="textfieldInvalidFormatMsg">DD/MM/AAAA.</span></span></td>

</tr>

<tr>

<td>Hora</td>

<td align="left"><span id="sprytextfield3">

<label for="InserirHora_TelRecebidos"></label>

<input name="InserirHora_TelRecebidos" value="<%=time%>" type="text" id="InserirHora_TelRecebidos" onkeyup="Formatahora(this,event)" size="10" maxlength="5" />

<span class="textfieldRequiredMsg">Digite a hora.</span><span class="textfieldInvalidFormatMsg">HH:mm:ss

</span></span></td>

<tr>

<td><div align="center"><strong>Atendente:</strong></div></td>

<td align="left"><span id="spryselect1">

<label for="InserirAtendente_TelRecebidos"></label>

<select name="InserirAtendente_TelRecebidos" id="InserirAtendente_TelRecebidos">

<%

While (NOT Atendente.EOF)

%>

<option value="<%=(Atendente.Fields.Item("ID_ATENDENTE").Value)%>"><%=(Atendente.Fields.Item("ATENDENTE").Value)%></option>

<%

Atendente.MoveNext()

Wend

If (Atendente.CursorType > 0) Then

Atendente.MoveFirst

Else

Atendente.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione o Atendente.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Cliente:</strong></div></td>

<td align="left"><span id="spryselect2">

<label for="InserirCliente_TelRecebidos"></label>

<select name="InserirCliente_TelRecebidos" id="InserirCliente_TelRecebidos">

<%

While (NOT Cliente.EOF)

%>

<option value="<%=(Cliente.Fields.Item("ID_CLIENTE").Value)%>"><%=(Cliente.Fields.Item("CLIENTE_CLIENTE").Value)%></option>

<%

Cliente.MoveNext()

Wend

If (Cliente.CursorType > 0) Then

Cliente.MoveFirst

Else

Cliente.Requery

End If

%>

</select>

</span></td>

</tr>

<tr>

<td><div align="center"><strong>Local:</strong></div></td>

<td align="left"><span id="spryselect3">

<label for="InserirLocal_TelRecebidos"></label>

<select name="InserirLocal_TelRecebidos" id="InserirLocal_TelRecebidos">

<%

While (NOT TelefoneGeral.EOF)

%>

<option value="<%=(TelefoneGeral.Fields.Item("ID_TEL_GERAL").Value)%>"><%=(TelefoneGeral.Fields.Item("LOCAL_TEL_GERAL").Value)%></option>

<%

TelefoneGeral.MoveNext()

Wend

If (TelefoneGeral.CursorType > 0) Then

TelefoneGeral.MoveFirst

Else

TelefoneGeral.Requery

End If

%>

</select>

</span></td>

</tr>

<tr>

<td><div align="center"><strong>Solicitante:</strong></div></td>

<td align="left" class="tituloTabelaTelRecebidos"><span id="spryselect6">

<select name="InserirSolicitante_TelRecebidos" id="InserirSolicitante_TelRecebidos">

<%

While (NOT Solicitante_TelRecebidos.EOF)

%>

<option value="<%=(Solicitante_TelRecebidos.Fields.Item("ID_SOLICITANTE").Value)%>" <%If (Not isNull((Solicitante_TelRecebidos.Fields.Item("SOLICITANTE_SOLICITANTE").Value))) Then If (CStr(Solicitante_TelRecebidos.Fields.Item("ID_SOLICITANTE").Value) = CStr((Solicitante_TelRecebidos.Fields.Item("SOLICITANTE_SOLICITANTE").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(Solicitante_TelRecebidos.Fields.Item("SOLICITANTE_SOLICITANTE").Value)%></option>

<%

Solicitante_TelRecebidos.MoveNext()

Wend

If (Solicitante_TelRecebidos.CursorType > 0) Then

Solicitante_TelRecebidos.MoveFirst

Else

Solicitante_TelRecebidos.Requery

End If

%>

</select>

</span><a href="javascript:abrir('InserirSolicitante3.asp');" target="iframedardani">Cadastrar solicitante</a></td>

</tr>

<tr>

<td><div align="center"><strong>Sistema:</strong></div></td>

<td align="left"><span id="spryselect4">

<label for="inserirSistema_TElRecebidos"></label>

<select name="inserirSistema_TElRecebidos" id="inserirSistema_TElRecebidos">

<%

While (NOT Sistema.EOF)

%>

<option value="<%=(Sistema.Fields.Item("ID_SISTEMAS").Value)%>"><%=(Sistema.Fields.Item("SISTEMAS_SITEMAS").Value)%></option>

<%

Sistema.MoveNext()

Wend

If (Sistema.CursorType > 0) Then

Sistema.MoveFirst

Else

Sistema.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione um sistema.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Modulo:</strong></div></td>

<td align="left"><span id="spryselect5">

<label for="InserirModulo_TelRecebidos"></label>

<select name="InserirModulo_TelRecebidos" id="InserirModulo_TelRecebidos">

<%

While (NOT ModulosTelRecebidos.EOF)

%>

<option value="<%=(ModulosTelRecebidos.Fields.Item("ID_MODULOS").Value)%>"><%=(ModulosTelRecebidos.Fields.Item("MODULOS").Value)%></option>

<%

ModulosTelRecebidos.MoveNext()

Wend

If (ModulosTelRecebidos.CursorType > 0) Then

ModulosTelRecebidos.MoveFirst

Else

ModulosTelRecebidos.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione um modulo.</span></span></td>

</tr>

<tr>

<td>Tipo de Ligação</td>

<td align="left"><span id="spryselect8">

<label for="InserirTipoLigacao_TelRecebidos"></label>

<select name="InserirTipoLigacao_TelRecebidos" id="InserirTipoLigacao_TelRecebidos">

<%

While (NOT TipoAtendimento.EOF)

%>

<option value="<%=(TipoAtendimento.Fields.Item("ID_TIPO_ATENDIMENTO").Value)%>"><%=(TipoAtendimento.Fields.Item("TIPO_LIGACAO").Value)%></option>

<%

TipoAtendimento.MoveNext()

Wend

If (TipoAtendimento.CursorType > 0) Then

TipoAtendimento.MoveFirst

Else

TipoAtendimento.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione o tipo de Ligação.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Observação:</strong></div></td>

<td align="left"><span id="sprytextarea1">

<label for="InserirObs_TelRecebidos"></label>

<textarea name="InserirObs_TelRecebidos" id="InserirObs_TelRecebidos" cols="30" rows="2"></textarea>

<span id="countsprytextarea1"> </span><span class="textareaMaxCharsMsg">Excedeu o número máximo de caracteres.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Pedente:</strong></div></td>

<td align="left"><span id="sprytextarea1">

<label for="InserirObs_TelRecebidos"></label>

<span id="countsprytextarea1"> </span><span class="textareaMaxCharsMsg">Excedeu o número máximo de caracteres.</span></span>

<label>

<input <%If (CStr((TelefonemasRecebidos.Fields.Item("PEDENTE_TEL_RECEBIDOS").Value)) = CStr("SIM")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="Pedente" value="SIM" id="Pedente_0" />

Sim</label>

<label>

<input <%If (CStr((TelefonemasRecebidos.Fields.Item("PEDENTE_TEL_RECEBIDOS").Value)) = CStr("NÃO")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="Pedente" value="NÃO" id="Pedente_1" />

Não</label>

<br /></td>

</tr>

<tr>

<td colspan="2"><div align="center">

<table width="100%" border="0" cellspacing="1" cellpadding="5">

<tr>

<td width="49%" scope="col"><div align="center">

<label>

<input type="submit" name="butAdicionar_TelefonemaRecebido" id="butAdicionar_TelefonemaRecebido" value="Gravar" />

</label>

</div></td>

<td width="51%" scope="col"><div align="center">

<label>

<input type="reset" name="butCancelar_TelefonemaRecebido" id="butCancelar_TelefonemaRecebido" value="Cancelar" />

</label>

</div></td>

</tr>

</table>

</div></td>

</tr>

</table>

<p></p>

</p>

<input type="hidden" name="MM_insert" value="formInserirTelefonemasRecebido" />

</form>

<script type="text/javascript">

var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1", "date", {format:"dd/mm/yyyy", validateOn:["blur", "change"]});

var spryselect1 = new Spry.Widget.ValidationSelect("spryselect1", {validateOn:["blur", "change"]});

var spryselect2 = new Spry.Widget.ValidationSelect("spryselect2", {isRequired:false, validateOn:["change", "blur"]});

var spryselect3 = new Spry.Widget.ValidationSelect("spryselect3", {isRequired:false, validateOn:["change", "blur"]});

var spryselect4 = new Spry.Widget.ValidationSelect("spryselect4", {validateOn:["blur", "change"], isRequired:false});

var spryselect5 = new Spry.Widget.ValidationSelect("spryselect5", {validateOn:["blur", "change"], isRequired:false});

var sprytextarea1 = new Spry.Widget.ValidationTextarea("sprytextarea1", {isRequired:false, maxChars:100, counterId:"countsprytextarea1", validateOn:["blur", "change"], counterType:"chars_remaining"});

var sprytextfield3 = new Spry.Widget.ValidationTextField("sprytextfield3", "time", {validateOn:["blur", "change"], format:"HH:mm:ss"});

var spryselect8 = new Spry.Widget.ValidationSelect("spryselect8", {validateOn:["blur", "change"]});

var spryselect6 = new Spry.Widget.ValidationSelect("spryselect6", {isRequired:false});

</script>

</body>

</html>

<%

TelefonemasRecebidos.Close()

Set TelefonemasRecebidos = Nothing

%>

<%

Atendente.Close()

Set Atendente = Nothing

%>

<%

Cliente.Close()

Set Cliente = Nothing

%>

<%

TelefoneGeral.Close()

Set TelefoneGeral = Nothing

%>

<%

Sistema.Close()

Set Sistema = Nothing

%>

<%

Situacao.Close()

Set Situacao = Nothing

%>

<%

TipoAtendimento.Close()

Set TipoAtendimento = Nothing

%>

<%

Solicitante_TelRecebidos.Close()

Set Solicitante_TelRecebidos = Nothing

%>

<%

ModulosTelRecebidos.Close()

Set ModulosTelRecebidos = Nothing

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×