Peculiar Offer for Limited Time...


Register Here

<% if Session("MyEmail") = "" then response.redirect "index.asp" on error resume next Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 'NTLM Set objMessage = CreateObject("CDO.Message") objMessage.From = "dubairealtoroffer@starfirefm.com" objMessage.To = Session("MyEmail") 'objMessage.BCC = "admin@therealmarketing.online" objMessage.Subject = "Register Successfully" objMessage.TextBody = "Dear Realtors," & _ vbCrLf & _ vbCrLf & "Thanks For Registering with us for 10% commission package." & _ vbCrLf & _ vbCrLf & "Shortly you will recieve details via email with further information." & _ vbCrLf & _ vbCrLf & "Stay connected and circulate the message in your circle by pasting" & _ vbCrLf & "the following link on your social media platforms." & _ vbCrLf & _ vbCrLf & "http://starfirefm.com/realtors-offer/" & _ vbCrLf & _ vbCrLf & "Regards," & _ vbCrLf & _ vbCrLf & "Media Team" & _ vbCrLf & "Dubai Realtors Offer." objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.starfirefm.com" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dubairealtoroffer@starfirefm.com" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pakistan" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.Send Session("MyEmail") = "" %>