[Resolvido] Select Case e CDOSYS

[xanburzum 169]

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

 

<%
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"> 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.imasters.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

%>