nosliwde

Prezados Colegas,

Preciso imprimir o resultado de uma consulta que traz por exemplo os dados de uns 20 clientes (Nome, Endereco, Cidade, Bairro, Cep) em 2 colunas na pagina, de forma a ser impresso logo depois em etiquetas.

Cara, alguem sabe me dizer como fazer istro no ASP? O que ta pegando e o posicionamento dos dados em 2 colunas na tela.

Alguem tem alguma sugestao ai para me passar?

Aguardo suas sugestoes e ajudas.

Obrigado desde ja.

Prezados Colegas,

Sei que este e um forum de ASp, mas postei uma duvida sobre JavaScript e espero que possam me ajudar.

Eis a funcao:

function VerEmail(pesquisa2)
{
verArroba=pesquisa2.indexOf("@")
if ( verArroba!=-1 )
{
tamStr=pesquisa2.length

//Pega o pedaco da String depois do simbolo @
complement = pesquisa2.substring(verArroba+1,tamStr);

//Pega o pedaco da String antes do simbolo @
pesquisa2 = pesquisa2.substring(0,verArroba);

}


return pesquisa2
}

As 2 variaveis coloridas de vermelho, possuem valores que quero retornar.

Eu estou conseguindo retornar apenas 1 valor, o pesquisa2.

Como e que faco pra retornar tambem o valor de complement?

Quero retornar pesquisa2 e complement.Como e que faco isto?

E depois de retornar os 2 valores, como e que faco pra chama-los?

Boa tarde.

No relatório que estou criando, cada linha do relatório possui:

01 CheckBox, Nome do Funcionário, DropDown Evento, DwopDown Jornada, campo Serviço e Descrição de Serviço , Qtde Horas e opção de Salvar a alteração de dados na linha.

Veja o meu código:

<form name="form" method="post" action="">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="4" align="RIGHT">N&ordm; de registros encontrados: <b><%=rsLotados.RecordCount%></b>
&nbsp;&nbsp;&nbsp;&nbsp;P&aacute;gina <%'=pagina%> de <%'=ultpagina%></td>
</tr>
<tr bgcolor="#0672a7">

<td width="37" class="titulo" nowrap>&nbsp;&nbsp;<a href='java script:Selecionar_Todos(form.Check,quantidade.value)'><img src="../../Imagens/selecionar00.gif" border=0 alt="Marcar / Desmarcar Todos"></a>&nbsp;&nbsp;</td>
<td class="titulo">Funcionário</td>
<td class="titulo">Evento</td>
<td class="titulo">Jornada</td>
<td width="63" class="titulo">Serviço</td>
<td width="258"></td>
<td width="87" class="titulo">Qtde Hrs</td>
<td width="30" class="titulo"></td>
</tr>

<% rsLotados.MoveFirst
Do While not(rsLotados.EOF)
%>

<td align="left"><input type="Checkbox" name="prog" value="<%=rsLotados("FunCodigo")%>" onClick="MudarLinha(this)"></td>
<td align="left" width="97" %>
<%=rsLotados("UsuNome")%></td>
<td width="60" align="left" %><select name="inIndice" class="entrada" >
<option value="">&nbsp;</option>

<% rsEvento.MoveFirst
Do while not(rsEvento.EOF)%>

<option value="<%=rsEvento("EveCodigo")%>"><%=rsEvento("EveDescricao")%></option>
<%rsEvento.MoveNext
Loop%>
</select>
<% if Request.QueryString("Evento")&"" <> "" then %>
<script>Seleciona_Option(<%=Request.QueryString("Evento")%>,form.inIndice)</script>
<% end if %>
</td>
<td width="54" align="left" %><select name="inJornada" class="entrada">
<% rsJornada.MoveFirst
Do while not(rsJornada.EOF)

if rsJornada("MININICIAL")<10 then
horario = rsJornada("HORAINICIAL") &":0"&rsJornada("MININICIAL")
else
horario = rsJornada("HORAINICIAL") &":"&rsJornada("MININICIAL")
end if

if rsJornada("JORHORAFINAL")&"" <> "" then
if rsJornada("MINFINAL")<10 then
horario = horario & " às " & rsJornada("HORAFINAL") &":0"&rsJornada("MINFINAL")
else
horario = horario & " às " & rsJornada("HORAFINAL") &":"&rsJornada("MINFINAL")
end if
end if
%>
<option value="<%=rsJornada("JorCodigo")%>"><%=horario%></option>

<%'if rsJornada("JorHoraFinal")&"" <> "" then response.write " - ("&FormatNumber(rsJornada("JorQtd"),2)&")"%>

<%rsJornada.MoveNext
Loop%>
</select>
<% if Request.QueryString("Jornada")&"" <> "" then %>
<script>Seleciona_Option(<%=Request.QueryString("Jornada")%>,form.inJornada)</script>
<% end if %>
</td>
<td width="63" align="left" %><input type="text" name="inServico" size="10" maxlength="20" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=Request.QueryString("inSerIndice")%>"></td>
<td width="290" align="left" %><input type="text" name="inSerDescricao" size="38" maxlength="50" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=Request.QueryString("inSerDescricao")%>">

<a href="java script:Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value);"><img src="../../Imagens/Lupa00.gif" border=0 alt="Pesquisar Serviço"></a>
<img src="../../imagens/borracha.gif" onClick="java script: document.form.inServico.value=''; document.form.inSerDescricao.value='';" style="cursor:hand" alt="Limpar Campo">
</td>
<td width="87" align="left" %><input type="text" name="inQtde" size="8" maxlength="8" onKeyDown="FormataValor(this, 15, event)" onFocus="return Focu(this)" onBlur="return Sair(this)" class="entrada" value="<%=quantidade%>"></td>
<td><a href="java script:Gravar();"><img src="../../Imagens/salvar.gif" border=0 alt="(Ctrl + Shift + F)"</a></td>

</tr>
<% rsLotados.MoveNext
cont=cont+1
Loop
%>
</table>
</form>

Bom, no relatório aparecem o nome de 10 pessoas.

Quando clico o desenho (link) da lupa, ele aciona o seguinte código:

<a href="java script:Pesquisar('PesServicos.asp?inCC=<%=rsCentroCusto("CenCusCodigo")%>', form.inSerDescricao.value, form.inServico.value);"><img src="../../Imagens/Lupa00.gif" border=0 alt="Pesquisar Serviço"></a>

Chama a página PesServicos.asp e teria q passar o valores do campo inSerDescricao e inServico.

Mas não está passando os valores dos 2 campos. A página dá um erro tipo assim:

form.inSerdescricao.value é nulo ou não é um objeto

Mesmo com os campos inSerDescricao e inServico preenchidos, a mensagem persiste.

O que pode estar acontecendo?

Cada linha deste relatório deverias ser armazenado em um Array?

Me deem um Help, pois fiquei o dia inteiro preso neste problema e já não sei mais como resolver.

Estou tentando enviar um e-mail, mas aparece a seguinte mensagem de erro:

Persits.MailSender.4 error '800a0004' Connection timed out.

Alguém sabe o que ela significa?

O que foi q aconteceu de errado?

Aguardo vcs.

Oi pessoal, consegui resolver o problema.

No meu código asp, para o envio de e-mail, tinha uma linha:

Mail.Host = '"189.23.22.22"

troquei por

Mail.Host = strSMTP

Pronto, problema resolvido.


Obrigado aos q tentaram em ajudar.

Bom gente, acabei resolvendo um problema que estava relacionado aos campos que não possuiam endereços de e-mail preenchidos.
Mas surgiu uma questão que quero tratar antes que aconteça algum erro.

Como faço pra detectar se um endereço de e-mail é inválido, após ter enviado o e-mail?

Tipo assim, o campo de e-mail está prenchido, o e-mail foi enviado, mas de repente ele chega lá e retorna é claro uma mensagem indicando que aquele end. de e-mail é invalido.

Como faço pra detectar isto?

Eis meu código:

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML = True
Mail.Host = Application("IPServidor")
Mail.From = "suporte@sox.com.br" 'Remetente
Mail.FromName = "SOX" 'nome do remetente

Mail.AddAddress rsUsuario("UsuEmail") 'endereço do destinatário , nome do destinatário
Mail.Subject = "Você foi Qualificado" 'assunto
Mail.Body = "Caro(a) "&rsUsuario("UsuNome") &_ "<br><br>Temos a satisfação de comunicar, que a empresa "&rsEmpresa("EmpNomeFantasia")&",atraves do comprador "&rsUsuarioAtual("UsuNome")&", tel:"&rsUsuarioAtual("UsuTelefone1")&" o qualificou como parceiro para fornecimento de materiais ou serviços em suas futuras coletas de preços."

Mail.Send
Set Mail = Nothing

Agradeço se alguém puder me ajudar.