<% '-------------------------------------------------------------------- ' abmailer.inc ' ' ABMailer constants include file for VBScript ' ' Copyright (c) 1997, by Andy Blanchard. All Rights Reserved. '-------------------------------------------------------------------- '---- Mailman Error Constants ---- Const mmeNone = 0 ' Mail delivered successfully to SMTP server Const mmeUndefined = 1 ' Undefined (internal) error, out-of-memory, etc... Const mmeWinsock = 2 ' Network, TCP/IP, or general socket error Const mmeReplyTo = 3 ' Error in "ReplyTo" line Const mmeSendTo = 4 ' Error in "SendTo" line Const mmeSendCc = 5 ' Error in "SendCc" line Const mmeServerAddr = 6 ' Error in "ServerAddr" line, Server not found, etc... Const mmeServerPort = 7 ' Invalid Server Port ID (default SMTP is 25) '---- Mailman Error Code Strings ---- ReDim mmeMessage(7) mmeMessage(0) = "Mail delivered successfully to SMTP server" mmeMessage(1) = "Undefined (internal) error, out-of-memory, etc..." mmeMessage(2) = "Network, TCP/IP, or general WinSock error" mmeMessage(3) = "Error in 'ReplyTo' line" mmeMessage(4) = "Error in 'SendTo' line" mmeMessage(5) = "Error in 'SendCc' line" mmeMessage(6) = "Error in 'ServerAddr' line, Server not found, etc..." mmeMessage(7) = "Invalid Server Port ID (default SMTP is 25)" '---- Default Constants ---- Const mmdServerPort = 25 ' Default SMTP Server Port ID ' ------------ Permet l'envoie d'un mail --------------------------- Function SendMailFromTo (strFrom, strTo, strCC,strSujet, strMsg,thedate) dim ErrCode 'On Error Resume Next if ValidateEmail(strFrom) then SendMailFromTo = 6 else Err.clear Set objMail = Server.CreateObject("ABMailer.Mailman") objMail.Clear ' Subject of mail objMail.MailSubject = strSujet ' Adress of sender objMail.fromAddress = strFrom ' Login and PWD for SMPT objMail.ServerLoginRequired = True objMail.ServerLoginUserID = "support@terrederecherche.mc" objMail.ServerLoginPassword = "pasthie" ' Adress of if strCC <> "" then objMail.SendCc = strCC end if objMail.SendTo = strTo 'objMail.MailDate = theDate objMail.ServerAddr = "mail.tdrnet.net" objMail.ServerPort = 25 objMail.MailMessage = strMsg objMail.SendMail if objMail.ErrorCode<>0 then response.write("") ErrCode = objMail.ErrorCode Set objMail = nothing SendMailFromTo = ErrCode End if end function 'Function to Validate Email Address Function ValidateEmail(email) dim atCnt ValidateEmail = false if len(cstr(email)) < 7 then ValidateEmail = true elseif instr(email,"@") = 0 then ValidateEmail = true elseif instr(email,".") = 0 then ValidateEmail = true elseif len(email) - instrrev(email,".") > 3 then ValidateEmail = true elseif instr(email,"_") <> 0 and _ instrrev(email,"_") > instrrev(email,"@") then ValidateEmail = true else atCnt = 0 for i = 1 to len(email) if mid(email,i,1) = "@" then atCnt = atCnt + 1 end if next if atCnt > 1 then ValidateEmail = true end if for i = 1 to len(email) if not isnumeric(mid(email,i,1)) and _ (lcase(mid(email,i,1)) < "a" or _ lcase(mid(email,i,1)) > "z") and _ mid(email,i,1) <> "_" and _ mid(email,i,1) <> "." and _ mid(email,i,1) <> "@" and _ mid(email,i,1) <> "-" then ValidateEmail = true end if next end if End Function %> Paris Demeures, all the services propose by the real estate agency.
     
Our thorough knowledge of the real estate market enables us to refer you to
the most reputable experts able to offer further assistance.
 
Notaries

Financial analysts

Lawyers

Bankers
Architects

Surveyors

Interior decorators

Building contractors
 
We can support you in your search through a wide range of services aimed at
giving you total satisfaction.
 
Hotels

Restaurants - caterers

Baby sitters

Deluxe car rentals
Garages

Electricity

Domestic employees

Flowers
 
For us your acquisition is more than a simple real estate transaction.