fantasma
-
Total de itens
901 -
Registro em
-
Última visita
Tudo que fantasma postou
-
Eu nunca testei, posso testar e avisarei vc O CDOSYS é o novo componente da Microsoft para envio de e-mail. É uma versão do CDONTS melhorada, que foi desabiliatado no Windows Server 2003. Veja abaixo um exemplo: <% 'Cria o objeto para o enviar e-mail Set objCDO = Server.CreateObject("CDO.Message") 'Cria o objeto de configuração do SMTP Set objCDOSYSCon = Server.CreateObject("CDO.Configuration") With objCDOSYSCon 'SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.paginadigital.com.br" 'Porta do SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta do CDO .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Fields.update End With 'Atualiza as configurações do CDOSYS para enviar o e-mail Set objCDO.Configuration = objCDOSYSCon With objCDO 'Remetente do e-mail .From = "email@meudominio.com.br" 'Destinatário do e-mail .To = "email@dominio.com.br" 'Assunto .Subject = "teste" 'Conteúdo da mensagem (Se for apenas texto, mude para TextBody) .HTMLBody = "contéudo do e-mail" 'Envia o e-mail .Send End With 'Destrói os objetos Set objCDO = Nothing Set objCDOSYSCon = Nothing Response.Write "Seu e-mail foi enviado com sucesso." %>
-
%> Dim iCount Dim sRowColor Dim objDB Dim objRS Dim sDBName 'TODO: Verify database path... sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\banco.mdb" Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open sDBName 'TODO: Modify the next line to only return the records you want... Set objRS = objDB.Execute("select from tababela order by data desc ") Response.Write("<html>") Response.Write("<head>") Response.Write("<title></title>") Response.Write("</head>") Response.Write("<body bgcolor=#ffffff>") Response.Write("<h3><center><font color=red>**** Esta Listando os 15 Ultimos Chamados ****</font></center></h3>") Response.Write("<h2>Lista dos Chamados Diário de Bordo</h2>") If objRS.EOF Then Response.Write("<b>No matching records found.</b>") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing Response.End End If Response.Write("<center><table width=650 cellspacing=1 cellpadding=1 bgcolor=#000000>") Response.Write("<tr bgcolor=silver>") Response.Write("<th filter=ALL><font color=red size=1 face=verdana>nome</th>") Response.Write("<th filter=ALL><font color=red size=1 face=verdana>Nome </th>") Response.Write("<th filter=ALL><font color=red size=1 face=verdana>matricula</th>") Response.Write("<th filter=ALL><font color=red size=1 face=verdana>cargo</th>") Response.Write("</tr>") Do While Not objRS.EOF iCount = iCount + 1 If iCount Mod 2 = 0 Then sRowColor = "skyblue" Else sRowColor = "#C4CEE5" End If status= objRS("status") if status="Aberto" then sRowColor = "FF3366 " end if Response.Write("<tr bgcolor=" & sRowColor & ">") Response.Write("<td><font size=1 face=verdana>" & objRS("nome") & "</td>") Response.Write("<td><font size=1 face=verdana>" & objRS("matricula") & "</td>") Response.Write("<td><font size=1 face=verdana>" & objRS("cargo") & "</td>") Response.Write("</tr>") objRS.MoveNext Loop Response.Write("</table>") Response.Write("</body>") Response.Write("</html>") objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %> ve se ajuda este codigo
-
quero deixar como padrão um proteção de tela e fundo de tela para todos os micros de um local, como posso far isso.......atraves e registro(regedit) ou atraves de bath ou script.................???????????????? empresa com xp e windows 2000 obrigado
-
senhores : eu quero que não seja mais alterado o papel de parede, estamos trabalhando com windows 98se e xp, pode ser via registro, não tem problema
-
Tem como criar um .bat para ao inicializar a maquina automaticamente já entre o plano de fundo do desktop caso tenha outra maneira sem ser por bat informe -me
-
NÃO ENTENDI, PODE EXPLICAR MELHOR você USA FRAME?
-
<% response.write("<img src=image.jpg>") response.write("<br>") response.write("<img src=image.jpg>") %> teste ai
-
Dá alguma msg de erro, e qual
-
TEM você vai fazer <form method="post" l action="senha1.asp" </form> <form method="post" l action="senha2.asp" </form> <form method="post" l action="senha3.asp" </form> e depois criar o script em asp
-
Eu acho que dar para efetuar a instalação normal do pws, mas não pode estar startado o iis.
-
porque não deu.................................
-
pode usar assim <textarea cols="20"> </textarea>
-
de um olha nas permissões de pastas e aquivos O que se passa é que como estás a usar uma bd access, tens de dar permissões de escrita
-
qual a msg de erro
-
você vai usar uma caisa de texto . porque a caixa de texto quebra automaticamente.
-
tenho um função <% Function FormataData(data) dd = Day(data) mm = Month(data) aa = Year(data) if len(dd) = 1 then dd = "0" & dd if len(mm) = 1 then mm = "0" & mm FormataData = CStr(dd & "/" & mm & "/" & aa) End Function %> quero usar esta função em onde esta de azul alguém pode me ajudar Set objRS = objDB.Execute ("SELECT * FROM usp where cdate(DATA) ='"& data_certa &"' ")
-
O que eu entedi é que o script esta fazendo a parte do else do if e não esta aberto a tag do asp
-
Eu acho que vai ajudar http://www.connectionstrings.com/
-
uma opção reinstale o servidor, não esqueça de fazer backup
-
você pode utililzar tb <% dim dd, mm, aa Function FormataData(data) dd = Day(data) mm = Month(data) aa = Year(data) if len(dd) = 1 then dd = "0" & dd if len(mm) = 1 then mm = "0" & mm FormataData = CStr(dd & "/" & mm & "/" & aa) End Function %>