igadino
-
Total de itens
35 -
Registro em
-
Última visita
Tudo que igadino postou
-
Olha o erro que aparece Número de argumentos incorreto ou atribuição de propriedade inválida: 'DestacaTexto' /biblia/busca_biblia12.asp, line 410
-
Pessoal estou com pboblema neste cidigo não estou conseguindo destacar as palavras pesquisada, alguém pode me dá uma luz estou tentandi assim, mais dá erro a linha em vermelho e onde estou chamando a função <!-- #include file = "conexao.asp" --> <% Function DestacaTexto(textoBD, n_palavras) y = n_palavras Alterado = textoBD DO WHILE 0 <= y palavra_M = UCase(palavra(y)) palavra_m = LCase(palavra(y)) palavra_Mm = UCase(MID(palavra(y),1,1)) & LCase(MID(palavra(y),2,Len(palavra(y)))) DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_M & "</STRONG></FONT>" Alterado = Replace(Alterado,palavra_M, DestTexto) DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_m & "</STRONG></FONT>" Alterado = Replace(Alterado, palavra_m, DestTexto) DestTexto = "<FONT style=""BACKGROUND-COLOR:#D1D1D1"" color=""#006600""><STRONG>" & palavra_Mm & "</STRONG></FONT>" Alterado = Replace(Alterado, palavra_Mm, DestTexto) y = y - 1 LOOP DestacaTexto = Alterado End Function s=request("s") ID_Apostolo=request("ID_Apostolo") PagAtual = Request.QueryString("PagAtual") 'página atual ID_AP = Request("ID_Apostolo") 'página atual Capitulo = Request("Capitulo") 'página atual if ID_AP ="68" then SQL = "SELECT * FROM livros WHERE Versiculo LIKE '%"&s&"%' and Versiculo LIKE '%"&s&"%'" ' SQL = "SELECT * FROM apost, Livros WHERE Versiculo LIKE '%"&s&"%' OR Versiculo LIKE '%"&s&"%'" RS.Open SQL, conn, 3 else SQL = "SELECT * FROM livros WHERE livro ='"&request("ID_Apostolo")&"' And Versiculo LIKE '%"&s&"%' ORDER BY cod DESC" RS.Open SQL, conn, 3 end if %> <html> <head> <title><%=mostra%></title> <link href="../css/Show_ads.css" rel="stylesheet" type="text/css"> <link href="../css/estilo.css" rel="stylesheet" type="text/css"> <STYLE type="text/css"> <!-- BODY { scrollbar-face-color:#E2ECF5; scrollbar-highlight-color:#D8D391; scrollbar-3dlight-color:#FFFFFF; scrollbar-darkshadow-color:#E6E7E8; scrollbar-shadow-color:#A19F61; scrollbar-arrow-color:#000000; scrollbar-track-color:#E2ECF5; } --> </STYLE> </head> <body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" class="tabela01"> <div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr><td valign="top"> <table width="100%" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center"> <form name="form" method="post" action="busca_biblia1.asp"> <tr><td colspan="2" align="center"><font color="#000000" size="3" face="Arial, Helvetica, sans-serif"><b>Consultar por palavras.</b></font></td></tr> <tr> <td align="right" width="33%"><b>Livro:</b></a></td><td width="67%"> <select name="ID_Apostolo" style="width:150px" class="text"> <option value="68">Toda Biblia</option> <% SQL = "SELECT * FROM Apost ORDER BY cod" set RecSet = conn.execute(SQL) do while not RecSet.eof lista=RecSet("cod") MTT=RecSet("livro") arrsetor3=split(Request("ID_Apostolo"),",") arrsetores3=split(lista,",") mostra_form=split(MTT,",") for y = LBOUND(mostra_form) to ubound(mostra_form) ' response.write"<option value="&arrsetores3(y) response.write"<option " for x= LBOUND(arrsetor3) to ubound(arrsetor3) if arrsetor3(x) = arrsetores3(y) then response.write "selected " response.Write"value="""&arrsetores3(y) next response.write""">"&mostra_form(y)&"</option>"&vbcr next %> <% RecSet.movenext loop %> </select> </td></tr> <tr><td width="33%" align="right"><b>Palavras:</b></td><td> <input type="text" class="text" name="s" style="width:150px" value="<%=request("s")%>"> </td></tr> <tr><td></td><td><input type="submit" name="procur" style="cursor:hand; width:150; height:22" value="Pesquisar"></td></tr> </form> </table> <table width="100%" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center"> <tr><td align="center" width="100%"> <table width="100%" cellSpacing="0" cellPadding="0" bordercolor="#EFEFEF" border="1" align="center"> <tr><td align="center"> <% if RS.EOF then if not s ="" then response.Write "<table align='left' width='494'><tr><td align='left'>Nenhum versículo encontrado, com palavra "&"<font color='#ff0000' size='2'><b>"&s&"</b></font> em "&uf&"</b></font></td></tr></table><br>" end if response.End() else '------- Coloque aqui a quantidade de registros que você deseja por página -------- Const NumPorPage = 10 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros RS.MoveFirst 'Move o RecorSet para o início RS.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = RS.PageCount RS.AbsolutePage = PagAtual 'Configura a página atual Response.Write"<table align='left' width='494'><tr><td align='left'><font size='2'>Encontramos "&"<font color='#ff0000' size='2'><b>"& RS.RecordCount & "</b></font> versículos com a(s) palavra(s):<font color='red'><b> "&s&"</b></font><br><font color='#ff0000'>Sua busca foi processada em " &FormatNumber( Timer - inicio, 2 ) &" segundos</font></td></tr></table>" Count = 0 'Zera o contador end if i = 0 %> </td></tr> <tr><td> <% DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize if not request("s")="" then response.write(DestacaTexto("<DIV align=justify><b>"&uf&" - "&rs("cap")&":"&rs("ver")&"</b> "&(RS("versiculo"))&"</div><br>" end if Next %><% i = i+1 Count = Count + 1 'paginacao RS.MoveNext LOOP 'tb paginacao %> </td></tr> <form name="mensagens"> <tr><td bgcolor="#6699CC" align="center"> <% if not request("s")="" then IF PagAtual > 1 THEN Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<input type='button' name='primeira' style='cursor:hand; width:90; height:17' value='Primeira' class='Form_pag' onClick=""window.location='?PagAtual="&"" & 1 & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='?PagAtual=" & PagAtual - 1 & "'>") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<input type='button' name='Anterior' style='cursor:hand; width:90; height:17' value='Anterior' class='Form_pag' onClick=""window.location='?PagAtual="&""& PagAtual - 1 & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""") Response.Write("Anterior") Response.Write("</a></font></B> ") Else Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("</font></B> ") Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("<input type='button' value='Anterior' style='cursor:hand; width:90; height:17' class='Form_pag' disabled>") Response.Write("</font></B> ") End If max_n_mostrados = 5 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 5 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write("<input type='button' name='atual' class='Form_pag1' value="&i&">") END IF If CInt(i) < CInt(PagAtual) Then Response.Write("<input type='button' name='--' class='Form_pag' value="&i&" onClick=""window.location='?PagAtual=" & i & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'"">") END IF If CInt(i) > CInt(PagAtual) Then Response.Write("<input type='button' name='++' class='Form_pag' value="&i&" onClick=""window.location='?PagAtual=" & i & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'"">") END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<input type='button' name='Próxima' style='cursor:hand; width:90; height:17' value='Próxima' class='Form_pag' onClick=""window.location='?PagAtual="&""& PagAtual + 1 & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""") Response.Write("Próxima") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<input type='button' name='ultima' style='cursor:hand; width:90; height:17' value='Ultima' class='Form_pag' onClick=""window.location='?PagAtual="&"" & TotalPages & "&"&"Tipo=1&s="&Request("s")&"&ID_Apostolo="&Request("ID_Apostolo")&"'""") Response.Write("</a></font></B> ") Else Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("<input type='button' value='Próxima' style='cursor:hand; width:90; height:17' class='Form_pag' disabled>") Response.Write("</font></B> ") Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("</font></B> ") End If %> <%end if%> </td></tr> </form> </table> </td></tr> </table> </td></tr> </table> <!--fim das tabela link--> </td></tr> </table> </div> </body> </html>
-
Pessoal estou com um pequena problema meste codigo, não estou conseguindo alterar os registro que marco no checkbox alguém tem uma luz. <% dim mostra dim sql dim conn on error resume next Session.TimeOut = 20 Set conn = Server.CreateObject("ADODB.CONNECTION") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db/banco.mdb") ' Conexao que faz a paginação Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação mostra="Igreja Evangélica Assembléia de Deus - Ministério da Missão" SQL = "SELECT * FROM email ORDER BY id DESC" RS.Open SQL, conn, 3 if not request("id")="" then str=request.form("id") strq=Split(str,",") strListaId = Request.Form("check") arrLista = Split(strListaId,",") For i = 0 To Ubound(arrLista) strQ.Execute("UPDATE email SET mail = '" &arrLista(i)& "' WHERE id = "&strq&"") Set objRS = conn.Execute(strQ) Next else response.Write("Error") end if %> <html> <head> <title><%=mostra%></title> <body marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" class="tabela01"> <form method="post" action="varios.asp"> <% while not rs.eof %> <input type="text" name="check" value="<%=rs("mail")%>"> <input type="checkbox" name="id" value="<%=rs("id")%>"><br> <% rs.movenext wend %> <input type="Submit" value="Alterar"> </form> </body> </html>
-
fazer paginção para que possa mostra uma quantidade 'X' de registro por pagina
-
Pessoal sou leigo em php alguém pode me dar uma luz para que eu possa incrementar um sistema de paginação neste codigo. exemplo: anterior 1 2 [3] 4 5 6 Proxima <?php $mostra = "Igreja Evangélica Assembléia de Deus - Ministério da Missão"; $pathDb=realpath("../db/banco.mdb"); if (!$conn = new COM("ADODB.Connection")) exit("Unable to create an ADODB connection<br>"); $strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=$pathDb"; $conn->open($strConn); $Cad_SQL = "SELECT * FROM Cad_Usuario ORDER BY id DESC"; $Cad_rs = $conn->execute($Cad_SQL); $Cad_Usu = $Cad_rs->Fields["usuario"]; $Cad_Usu1 = $Cad_rs->Fields["id"]; $strSQL = "SELECT * FROM recado WHERE particular=0 ORDER BY id DESC"; //$strSQL = "SELECT * FROM recado WHERE mst Like '%0%' ORDER BY id DESC"; $rs = $conn->execute($strSQL); $de_mst = $rs->Fields["de"]; $email_mst = $rs->Fields["email"]; $para_mst =$rs->Fields["para"]; $assunto_mst = $rs-> Fields["assunto"]; $mensagem_mst = $rs->Fields["mensagem"]; $de = $_POST['de']; $email = $_POST['email']; $para = $_POST['para']; $paraparticular = $_POST['paraparticular']; $status = $_POST['status']; $assunto = $_POST['assunto']; $mensagem = $_POST['recado']; $data = date('d/m/Y'); $email = $_POST["email"]; $email = trim(@$_REQUEST['email']); if($de==""){ $error= "O campo de esta vazio"; }else if($email==""){ $error= "O campo email esta vazio"; }elseif ($email){ if (!preg_match ("/^[A-Za-z0-9]+([_.-][A-Za-z0-9]+)*@[A-Za-z0-9]+([_.-][A-Za-z0-9]+)*\\.[A-Za-z0-9]{2,4}$/", $email)) { $error= "O e-mail que voce digitou é inválido!"; //}elseif($para==""){ // $error= "O campo para esta vazio"; }elseif($assunto==""){ $error= "O campo assunto esta vazio"; }elseif($mensagem==""){ $error= "O campo mensagem esta vazio"; }else{ if(!$de==""){ if($status==2){ //----------------------------------- $Cad_prt = "SELECT * FROM Cad_Usuario WHERE id=$paraparticular"; $Cad_rs11 = $conn->execute($Cad_prt); $Cad_prt = $Cad_rs11->Fields["usuario"]; $Cad_prt1 = $Cad_rs11->Fields["id"]; //----------------------------------- $strSQL1 = "INSERT INTO recado (de, particular, email, para, assunto, mensagem, data) VALUES ('$de','$paraparticular','$email','$Cad_prt->value','$assunto','$mensagem','$data')"; $rs1 = $conn->execute($strSQL1); header("Location: mural.php"); }elseif($status==0){ $strSQL1 = "INSERT INTO recado (de, email, para, assunto, mensagem, data) VALUES ('$de','$email','$para','$assunto','$mensagem','$data')"; $rs1 = $conn->execute($strSQL1); header("Location: mural.php"); } }}} ?> <html> <head> <title><? echo $mostra ?></title> <link href="css/Show_ads.css" rel="stylesheet" type="text/css"> <link href="css/estilo.css" rel="stylesheet" type="text/css"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="JavaScript1.1" type="text/jscript"> function IncText(){ if (document.mural.recado.value == ""){ document.mural.recado.value = "Digite sua mensagem aqui..."; } } function SelText(){ if (document.mural.recado.value == "Digite sua mensagem aqui..."){ document.mural.recado.value = ""; } } function ver_Sim_Não(){ if(document.mural.mostra.checked){ if(confirm ("Atenção, ao clicar OK, seu EMAIL não será exibido, \nno recado. Você tem certeza?")){ window.document.mural.mostra.checked = true; document.mural.txtsim_email.value = "1"; return true; }else{ window.document.mural.mostra.checked = false; } }else{ document.mural.txtsim_email.value = "0"; } } function ver_status(){ if (document.mural.particular.checked){ if(confirm ("Atenção, ao clicar OK, seu RECADO não será exibido, \n ao publico e sim apenas o destinatário\n que você escolheu. Você tem certeza?")){ window.document.mural.particular.checked = true; document.mural.paraparticular.disabled=false; document.mural.para.disabled=true; document.mural.para.value="Selecione um nome"; document.mural.status.value="2" }else{ window.document.mural.particular.checked = false; } }else{ document.mural.paraparticular.disabled=true; document.mural.para.disabled=false; document.mural.para.value=""; document.mural.para.focus(); document.mural.status.value="0" } } var maxSize=300; //Tamanho máximo de um torpedo function DescriptionCharCount() { var numCaracteres = maxSize - document.mural.recado.value.length; if(numCaracteres<0){ document.mural.recado.value = document.mural.recado.value.substring(0,document.mural.recado.value.length + numCaracteres); numCaracteres=0; alert('O recado ultrapassou o limite de ' + maxSize + ' caracteres!'); return false; } document.getElementById('contador').innerHTML = numCaracteres; return true; } </script> </head> <STYLE type="text/css"> <!-- BODY { scrollbar-face-color:#E2ECF5; scrollbar-highlight-color:#D8D391; scrollbar-3dlight-color:#FFFFFF; scrollbar-darkshadow-color:#E6E7E8; scrollbar-shadow-color:#A19F61; scrollbar-arrow-color:#000000; scrollbar-track-color:#E2ECF5; } --> </STYLE> </head> <body> <table border="0" cellpadding="2" width="100%"> <tr><td valign="top" width="50%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> Deixa um redadinho para seus amigos(as).</b></font> <!-- Inicio da tabela que faz o cadastro --> <div style="height:300px; border:1px #8CA5B5 solid; overflow-x:auto; overflow-y:auto; width:100%px; margin:0px;padding:0px;" align="center"> <table border="0" cellspacing="1" cellpadding="1" width="100%" align="center"> <form action="mural.php?acao=mod" method="post" name="mural" onSubmit="return val_Rec(this);"> <tr><td class="tabela02" align="left" bordercolor="#006699" colspan="2"><font color="#084E8D" face="verdana"><h3><%if erro then response.Write(mensagem) end if%></h3></font></td></tr> <tr><td class="tabela02" align="left" bordercolor="#006699" colspan="2"> <font color="#FF0000"><b> <? if((!$de=="")||(!$email=="")||(!$para=="")||(!$assunto=="")||(!$mensagem=="")){ echo $error; } ?> </b> </font> </td> <tr><td class="tabela02" align="right" bordercolor="#006699"><font color="#084E8D" size="2" face="verdana">De:</font></td> <td class="tabela02"><input name="de" type="text" class="entrada" size="23" maxlength="15" value="<? echo $de?>"> <font face="Verdana" size="1" color="#006699">Ocultar e-mail<input name="txtsim_email" type="hidden" style="width:10px" value=""><input name="mostra" type="checkbox" onClick="ver_Sim_Não();" title="Não mostrar o e=mail"></font></td></tr> <tr><td class="tabela02" align="right" bordercolor="#006699"><font color="#084E8D" size="2" face="verdana">E-mail:</font></td> <td class="tabela02"><input type="text" name="email" size="26" value="<? echo $email?>" class="entrada"></td></tr> <tr class="tabela02"><td align="right" bordercolor="#006699"><font color="#084E8D" size="2" face="verdana">Para:</font></td> <td><input type="text" name="para" class="entrada" value="<? echo $para?>"> <select style="width:90px" class="entrada" id="paraparticular" name="paraparticular" disabled> <? while (!$Cad_rs->EOF){?> <option value="<? echo $Cad_Usu1->value?>"><? echo $Cad_Usu->value ?></option> <? $Cad_rs->MoveNext(); } ?> </select> <input name="particular" type="checkbox" value="0" onClick="ver_status();"> </td> </tr> <tr class="tabela02"><td align="right" bordercolor="#006699" colspan="2"> <tr><td class="tabela02" align="right" bordercolor="#006699"><font color="#084E8D" size="2" face="verdana">Assunto:</font></td> <td class="tabela02"><input type="text" name="assunto" size="26" class="entrada" value="<? echo $assunto?>"></td></tr> <tr><td class="tabela02" bordercolor="#006699" colspan="2"><font color="#084E8D" size="2" face="verdana"> Recado:</font></td> <tr><td colspan="2" align="center"><textarea wrap="physical" name="recado" cols="54" rows="10" class="entrada" onBlur="IncText();" onKeyUp="return DescriptionCharCount();" onClick="SelText();" onKeyDown="return DescriptionCharCount();"><? echo $mensagem?></textarea></td></tr> <tr><td class="tabela02" colspan="2" align="center"> <span id=contador><font color="#FF0000"><b>300</b></font></span> caracteres restantes</font> </td></tr> <tr class="tabela01"><td colspan="2" align="center"><input type="submit" value="Publicar" style="font-family: verdana; font-size: 11; border-color: #000000; border-width: 1px;" class="tabela02"> <input type="reset" value="Limpar" style="font-family: verdana; font-size: 11; border-color: #000000; border-width: 1px;" class="tabela02"></td></tr> <input type="hidden" name="status" value="0"></form> </table> </div> <!-- fim da tabela que faz o cadastro --> </td><td valign="top"> <div style="height:315px; border:1px #8CA5B5 solid; overflow-x:auto; overflow-y:auto; width:100%px; margin:0px;padding:0px;" align="center"> <?php while (!$rs->EOF){ ?> <table border="0" width="100%" cellspacing="2" cellpadding="2"> <tr><td align="right" width="80" class="tabela02">De:</td><td class="tabela02"><? echo $de_mst->value?></td></tr> <tr><td align="right" width="80" class="tabela02">Email:</td><td class="tabela02"><? echo $assunto_mst->value?></td></tr> <tr><td align="right" width="80" class="tabela02">Para:</td><td class="tabela02"><? echo $para_mst->value?></td></tr> <tr><td align="right" width="80" class="tabela02">Assunto:</td><td class="tabela02"><? echo $assunto_mst->value?></td></tr> <tr><td align="right" width="80" valign="top" class="tabela02">Mensagem:</td><td class="tabela02"><? echo $mensagem_mst->value?></td></tr> </table> <br> <?php $rs->MoveNext(); } $rs->Close(); $conn->Close(); $rs = null; $conn = null; ?> </div> </td></tr></table> </body> </html>
-
Sistema De Whois - Busca Por Dominios Registrados
pergunta respondeu ao LucasForever de igadino em Repositório de Scripts - ASP
Só que o script acima não consegui verificar se os endereço abaixo: redeglobo.com.br redeglobo.com -
Pessoal e possivel adapita uma função que solicita a confirmação de entrega e teitura neste já usei um cabeçalho personalizado chamado Disposition-Notification-To mais não funciona ou então não estou conseguinda adaptar a função, alguém sabe fazer? <% 'Fim da conexao com o banco de dados dim strHTML, strHTM, Para2, Para3, Para4, Para5, Para6,Para7, Para8, Para9, Para10, passSet Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.admissao-to.com" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = " suporte@admissao-to.com" 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "suporte@admissao-to.com" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = Request.Form("De")&"<"&Request.Form("Email")&">" 'e-mail do remetente objCDOSYSMail.To = Request.Form("Para1")&"<"&Request.Form("Email_Para1")&">" 'e-mail do destinatário 'objCDOSYSMail.CC = Request.Form("Cc")&"<"&Request.Form("Email_Cc")&">" 'destinatario para copia, permite múltiplos 'objCDOSYSMail.BCC = Request.Form("Cco")&"<"&Request.Form("Email_Cco")&">" 'destinatário também, porém fica oculto, não aparece no mail, permite múltiplos objCDOSYSMail.Subject = "Você recebeu um cartão virtual de "&Request.Form("De") 'conteúdo da mensagem 'StrBody = "<font face='Verdana,Arial,Helvetica' color='#ff0000' size='2'><b>" &Request.Form("Para")& "</b>,</font> <br>"&request("HtmlText")&"" StrBody = strHTML strHTML = strHTML & "." 'objCDOSYSMail.TextBody = strBody 'para envio da mensagem no formato html altere o TextBody para HtmlBody objCDOSYSMail.HtmlBody = strBody 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %>
-
Cara value mesmo foi show de bola muito obrigado.
-
Galera estou tentando tirar a virgula da ultima palavras Ex: no banco se for listado Assessor, Assistente, Auxiliar, tem que aparecer assim Assessor, Assistente, Auxiliar. <% sigla_banco = RecSet1("perfil_nivel") sigla_bancoo = Split(sigla_banco,",") For A = LBOUND(sigla_bancoo) To UBOUND(sigla_bancoo) IF sigla_bancoo(A) = 01 then uf="Analista" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 02 then uf="Assessor" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 03 then uf="Assistente" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 04 then uf="Auxiliar" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 05 then uf="Comprador" ElseIF sigla_bancoo(A) = 06 then uf="Consultor" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 07 then uf="Coordenador" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 08 then uf="Diretoria" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 09 then uf="Especialista" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 10 then uf="Estagiário" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 11 then uf="Gerência" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 12 then uf="Operacional" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 13 then uf="Outros" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 14 then uf="Profissional Liberal" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 15 then uf="Secretária(o)" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 16 then uf="Supervisão" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 17 then uf="Trainee" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 18 then uf="Técnico" Response.Write(uf&", ") ElseIF sigla_bancoo(A) = 19 then uf="Vendedor" Response.Write(uf&", ") End IF Next %>
-
Pessoal estou necessitando de ajuda 1º eu quero subtrair uma data de nascimento se alguém nasceu em: 15/02/1988 vou subtrair pela a data atual eu tenho que saber a quantidade de anos mes e dias guero que aparece assim na tela exe: 17 anos 05 mes e 03 dias