<!--#include file="Connections/Connection.asp" -->

<%
	
sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR")

		Set objEMail = Server.CreateObject("CDONTS.NewMail")

		If (Err.number <> 0) then
   			Response.Write(Err.Description)
		Else
			Recipient = "info@epar-software.com"
   
   			FROM = "viewed_IEPdemo@epar-software.com"
	

			MailBody = sIPaddress & "     "  & request.querystring("link")


			objEMail.To      = Recipient
      		objEMail.From    = FROM
      		objEMail.Subject = "IEP Demo Viewed"
      		objEMail.Body    = MailBody


     			objEMail.Send()

			Set objEMail = Nothing
		End if

		response.redirect(request.querystring("Link"))
%>