[xanburzum]

Aqui está um script para dizer a um amigo sobre uma determinada página ou um site. Usando Select Case e CDOSYS

CÓDIGO

<%
dim done

done = request.form("done")

Select Case done
Case ""
%>

<table border="0" cellspacing="0" cellpadding="0">
<TR>
<TD>
<form action="tellafriend.asp" method="post">
<B><font size="1">&nbsp;Indique um amigo</font><B><BR>
<input type="text" name="email" size="20" maxlength="50"><BR>
<input type="hidden" name="done" value="OK">
<input type="submit" name="submit" value="Indique um amigo">
</form>
</TD>
</TR>
</Table>

<%
Case "ok"

'seta variaveis
dim email, sendmail
email = request.form("email")

'Cria o server object e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seu_dominio.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

'enviar uma página específica ou enviar uma url
'Se você comentar o Request.ServerVariables ( "http_referrer"), em seguida, seja qual for esta página for publicada a partir de script, é o que o
'o destinatário receberá como o url.
dim url
'url = Request.ServerVariables("HTTP_REFERER")
url = "http://www.mxstudio.com.br/"


Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "webmaster@seu_dominio.com"

objCDOSYSMail.To = email
objCDOSYSMail.Subject = "Confira neste site - http://seu_dominio.com/"
objCDOSYSMail.HTMLBODY = "Site recomendo por um amigo!<br><br>" & _
vbCrlf & vbCrlf & "Um amigo lhe enviou este e-mail e recomenda que você verifique o site em" & _
vbCrlf & "<a href=""http://seu_dominio.com"">seu_dominio.com</a> at " & _
vbCrlf & url & vbCrlf & _
vbCrlf & "<br><br>" & _
vbCrlf & "obrigado<br><br>" & _
vbCrlf & "Webmaster@seu_dominio.com" & vbCrlf
objCDOSYSMail.Send
'fecha o objeto
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
end if
End if

response.redirect Request.ServerVariables("HTTP_REFERER")

end select

%>