Ae pessoal, a Agência Victor.Teixeira finalmente ficou pronta, vocês poderiam avaliar ele para mim. Por favor! http://www.victorteixeira.com.br Obrigado. Victor
Function Enviar()
Dim objOutlook As Outlook.Application
Dim objMailItem As Outlook.MailItem
Set objOutlook = Server.CreateObject("outlook.application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
objMailItem.Recipients.Add "[email protected]"
objMailItem.Body = "Enviando e-mail desde Código"
objMailItem.Attachments.Add "c:\arquivo.txt"
objMailItem.Subject = "otimização"
objMailItem.Send
objOutlook.Quit
Set objOutlook = Nothing
End Function
Ae pessoal... Eu e um amigo estamos criando um site... Por favor avaliem como está ficando o site: http://www.victorteixeira.com.br/website Haaa.. E tambem, estamos precisando de um programador PHP, JAVA e ASP.net, Se você é avançado em alguma dessas linguagens me mande um e-mail: [email protected] Obrigado pela atenção. Victor G. Teixeira
Você usaria um FSO e um componente de imagem http://www.aspbrasil.com.br/conteudo/detal...Secao=tutoriais http://www.aspbrasil.com.br/conteudo/redir...onteudo=noticia http://www.aspbrasil.com.br/conteudo/redir...onteudo=noticia http://www.aspbrasil.com.br/conteudo/redir...onteudo=noticia
Set RecordSet = Server.CreateObject("ADODB.RecordSet")
RecordSet.Open "Select top 5 * from tabela order by id DESC", conexao, 3
while not RecordSet.EOF
Response.Write RecordSet("Campo")
RecordSet.MoveNext
Wend
RecordSet.Close