espectro

Olá pessoal,

Preciso da ajuda de vocês novamente. Dessa fez mais simples que a anterior.

Eu tenho um dado retirado de um banco de dados e quero manipular este dado não no banco e sim na página da internet.

Meu caso é este:

Eu puxo uma data especifica do banco de dados
Exemplo: 17/05/2010

Mostro ele no site e quero pegar esta dada e mostrar esta mesma data de dois e dois meses.

Exemplo:

17/05/2010 - 17/07/2010 - 17/09/2010 - ... - 17/01/2011 - 17/03/2011

Tem como?

Olá galera do forum. Eu sou novo aqui e faz pouco mais de um mês comecei a programar em ASP e no site que estou desenvolvendo meu chefe quer enviar email.

Eu tentei fazer algo simples como isto que encontrei, mas não funciona:

HTML

<title>CREATIVEHOST - Exemplo Formulário ASP</title>
<form action="enviaemail.asp" method="POST">
<div align="left"> <font size="2" face="Arial"> Nome:
<input type="text" size="50" maxlength="50" name="nome">
<br> E-mail:
<input type="text" size="50" maxlength="50" name="email">
<br>
Mensagem: <br>
<textarea name="mensagem" rows="5" cols="50"></textarea>
<br>
</font>
<input type="submit" value="Enviar">
</div>
</form>
</body>
</html>

- enviaemail.asp

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer") - ERRO!!!!!!!
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "dominio"
Mailer.AddRecipient "Formulário" , "chefe@hotmail.com."
Mailer.Subject = "Formulário"

Mailer.BodyText = "Nome..........: " & request.form("nome") & vbcrlf
Mailer.BodyText = "E-mail.........: " & request.form("email") & vbcrlf
Mailer.BodyText = "Mensagem..: " & request.form("mensagem") & vbcrlf

if Mailer.SendMail then
Response.redirect "http://www.globo.com/"
else
Response.Write mailer.response
end if
%>


<%
set aspMail = server.CreateObject("SMTPsvg.Mailer")
set aspMail = nothing
response.write("E-Mail Enviado com Sucesso!")
%>

Mostra este erro:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/sistemaEstagio/abertura/enviaemail.asp, line 2

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft...ntredirect.asp.

Então fui procurar outro codigo que também deu erro.

<H3>Enviando um e-mail com o componente AspEmail</H3>

<%

Dim Mail ' objeto Email

Dim strFromName ' nome do remetente

Dim strFromEmail ' endereço de Email do remetente

Dim strToEmail ' endereço do destinatario

Dim strSubject, strBody 'corpo da mensagem

Dim strThisPage ' o endereco do seu site

Dim strReferringPage ' a referencia URL

Dim bValidInput ' variável Booleana usada na validação

Dim strhost ' nome do servidor

' Retorna o nome do arquivo de script e a url da pagina

strThisPage = Request.ServerVariables("SCRIPT_NAME")

strReferringPage = Request.ServerVariables("HTTP_REFERER")

'define os valores iniciais dos parametros usados em nossa mensagem

strhost = "mail.riopreto.com.br" 'altere o nome para o seu servidor de mensagens

strFromName = Trim(Request.Form("txtFromName"))

strFromEmail = Trim(Request.Form("txtFromEmail"))

strToEmail = Trim(Request.Form("txtToEmail"))

strSubject = "Site sobre Visual Basic"

strBody = Trim(Request.Form("txtMessage"))

'monta o corpo da mensagem

strBody = ""

strBody = strBody & "Achei um site que tem tudo sobre Visual Basic , dê uma olha em :" & vbCrLf

strBody = strBody & vbCrLf

strBody = strBody & " http://www.geocities...Valley/Bay/3994 " & vbCrLf

' validacao dos dados

bValida_Entrada = True

bValida_Entrada = bValida_Entrada And strFromName <> ""

bValida_Entrada = bValida_Entrada And Valida_Email(strFromEmail)

bValida_Entrada = bValida_Entrada And Valida_Email(strToEmail)

'Se o e-mail é valido envia a mensagem

If bValida_Entrada Then

Set Mail = Server.CreateObject("Persits.MailSender") ERRO!!!!!!!!!!

Mail.Host = strHost

Mail.From = strFromEmail

Mail.FromName = strFromName

Mail.AddAddress strToEmail

Mail.Subject = strSubject

Mail.Body = strBody

on error resume next

Mail.Send

mensagem_erro = ""

if err <> 0 then

mensagem_erro = "Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description

end if

Set Mail = Nothing

on error goto 0

' exibe mensagem de agradecimento

%>

<P><b>Sua mensagem foi enviada. Obrigado por ter visitado nosso site , volte sempre !</P></b>

<%

Else

If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then

Response.Write "Ocorreu um erro . Verifique suas informações: " & "<BR>" & vbCrLf

End If

' exibe o formulario...

Exibe_Formulario strThisPage, strFromName, strFromEmail, strToEmail, strBody

End If

%>

<%

'verifica se o e-mail é valido

Function Valida_Email(strEmail)

Dim bIsValid

bIsValid = True

If Len(strEmail) < 5 Then

bIsValid = False

Else

If Instr(1, strEmail, " ") <> 0 Then

bIsValid = False

Else

If InStr(1, strEmail, "@", 1) < 2 Then

bIsValid = False

Else

If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then

bIsValid = False

End If

End If

End If

End If

Valida_Email = bIsValid

End Function

%>

<%

Sub Exibe_Formulario(strPageName, strFromName, strFromEmail, strToEmail, strBody)

%>

<html>

<body bgcolor=aqua>

<FORM ACTION="<%= strPageName %>" METHOD="post" name=frmReferral>

<TABLE BORDER="0">

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>Seu Nome:</STRONG></TD>

<TD><INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" SIZE="30"></TD>

</TR>

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>E-mail do Remetente :</STRONG></TD>

<TD><INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" SIZE="50"></TD>

</TR>

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>E-mail do destinatário:</STRONG></TD>

<TD><INPUT TYPE="text" NAME="txtToEmail" VALUE="<%= strToEmail %>" SIZE="50"></TD>

</TR>

<TR>

<TD VALIGN="top" ALIGN="right"><STRONG>Mensagem:</STRONG></TD>

<TD><TEXTAREA NAME="txtMessage" COLS="50" ROWS="5" WRAP="virtual" READONLY><%= strBody %></TEXTAREA></TR>

<TR>

<TD></TD>

<TD><INPUT TYPE="reset" VALUE="Limpar Formulário" name=rstReferral>&nbsp;&nbsp;<INPUT TYPE="submit" VALUE="Enviar E-mail" name=subReferral></TD>


</TR>

</TABLE>

</FORM>

</body>

</html>

<%

End Sub

%>

Alguém tem como me ajudar? Eu percebi que dá erro na criação do objeto. Algum problema de conexão com o servidor. Tem alguma maneira de enviar e-mail evitando este erro? Pelo que vi aqui na empresa não é possivel instalar o componente do www.aspemail.com no servidor daqui. O servidor daqui não envia nada para fora da empresa.

AJUDA! Agradeço desde já.