<%@LANGUAGE="VBSCRIPT"%> Download Free Trial of THE INTERPRETER <% Response.Expires = 1 Dim sEmail Dim sName Dim sCompany Dim sPhone Dim sCompanyPhone Dim sAction Dim sMsg Dim objConn Dim objRSTmp Dim nRegistrationID Dim sShare Dim sCityState Dim sType Dim sTrial dim sLicDescrip Dim sEFormat If Request.Form("Action") = "Continue" Then Dim sConnection Dim sDBPath sDBPath = Server.MapPath("/") & "\Database\Elinq.mdb" sDBPath = Replace(sDBPath, "\www\", "\") sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBPath 'Production Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open sConnection Set objRSTmp = Server.CreateObject("ADODB.Recordset") sEmail = Request.Form("Email") sName = Request.Form("Name") sCompany = Request.Form("Company") sPhone = Request.Form("Phone") sCityState = Request.Form("CityState") sShare = Request.Form("Share") sType = Request.Form("TypeN") sCompanyPhone = Request.Form("CompanyPhone") sTrial = Request.Form("Trial") sEFormat = Request.Form("EFormat") If ValidateForm() Then sLicDescrip = GetLicenseDescription( sType) If Not EmailAddressExists() Then If InsertRegistration() Then If SendEmailConfirmation() Then Response.Redirect "thankyoutrial.php" Response.End End If End If Else ' sMsg = sMsg & "Email address has already been registered in the system.
" Dim nRandomNbr Randomize nRandomNbr = Rnd(nRegistrationID) UpdateRegistration() ' Response.Redirect "http://www.e-linq.com/downloads/DownloadNow.asp?Reg=1&HID=123o0khiaai39&DI=NNKLILq99302lldkd&RID=" & nRegistrationID & "&ID=" & nRandomNbr & "0883idwppnzwm" 'Added 10/3/08 per Ernie's Request security issue Response.Redirect("http://e-linq.com/Downloads/Reg_Edited_Confirm.php") ' Response.Redirect "http://www.e-linq.com/downloads/DownloadTrial.asp?Reg=1&HID=123o0khiaai39&DI=NNKLILq99302lldkd&RID=" & nRegistrationID & "&ID=" & nRandomNbr & "0883idwppnzwm" Response.End End If End If objConn.Close Set objRSTmp = Nothing Set objConn = Nothing End If '=============================== Function ValidateForm() ValidateForm=True If Trim(sType) = "" Then sMsg = sMsg & "Product Type is required.
" ValidateForm=False End if If Trim(sCityState ) = "" Then sMsg = sMsg & "City and State is required.
" ValidateForm=False End if If Trim(sEmail) = "" Then sMsg = sMsg & "Email address is required.
" ValidateForm=False End If If Trim(sName) = "" Then sMsg = sMsg & "Your name is required.
" ValidateForm=False End If If Trim(sCompany) = "" Then sMsg = sMsg & "Your company name is required.
" ValidateForm=False End If If Trim(sShare) = "" Then sShare = False End if If Trim(sCompanyPhone) = "" Then sMsg = sMsg & "Your company phone is required.
" ValidateForm=False Else If Len(sCompanyPhone) < 10 Then sMsg = sMsg & "Company Phone number requires at least 10 digits.
" ValidateForm=False End If sCompanyPhone = Replace(sCompanyPhone, "-", "") If Not IsNumeric(sCompanyPhone) Then sMsg = sMsg & "Company Phone number must contain only numbers.
" ValidateForm = False Else sCompanyPhone = Request.Form("CompanyPhone") End If End If If Trim(sPhone) = "" Then sMsg = sMsg & "Your phone number is required.
" ValidateForm=False Else If Len(sPhone) < 10 Then sMsg = sMsg & "Phone number requires at least 10 digits.
" ValidateForm=False End If sPhone = Replace(sPhone, "-", "") If Not IsNumeric(sPhone) Then sMsg = sMsg & "Phone number must contain only numbers.
" ValidateForm = False Else sPhone = Request.Form("Phone") End If End If If ValidateForm = False Then sMsg = "Please correct the following:
" & sMsg End If End Function '================================= Function EmailAddressExists() Dim sSQL sSQL = "Select EmailAddress, RegistrationID From Registration Where EmailAddress='" & sEmail & "'" objRSTmp.Open sSQL, objConn If Not objRSTmp.EOF Then EmailAddressExists=True nRegistrationID=objRSTmp("RegistrationID") Else EmailAddressExists=False End If objRSTmp.Close End Function '============================================= Function GetLicenseDescription(sVal) GetLicenseDescription = "" Select Case sVal Case "OSX" GetLicenseDescription ="For Loan Originators | Stand Alone with LenderLinQ®" Case "LSX" GetLicenseDescription = "For Loan Originators | Employer Supported" Case "SSX" GetLicenseDescription = "For REALTORS | Sub-License or Independent Counselor" End Select End Function '================================================ Function SafeSQL(ByVal sToRenderSafe) SafeSQL = Replace(sToRenderSafe, "'", "''") End Function '================================================ Function SQLQuoteString(ByVal sValue) Dim sQuote sQuote = "'" sValue = sQuote & sValue & sQuote SQLQuoteString = sValue End Function '=================================== Function UpdateRegistration() Dim sSQL sSQL = "Update Registration Set " & _ "ContactName=" & SQLQuoteString(SafeSQL(sName)) & _ ", ContactPhone=" & SQLQuoteString(sPhone) & _ ", Company=" & SQLQuoteString(SafeSQL(sCompany)) & _ ", CompanyPhone=" & SQLQuoteString(sCompanyPhone) & _ ", EmailAddress=" & SQLQuoteString(SafeSQL(sEmail)) & _ ", Emp_Loc=" & SQLQuoteString(SafeSQL(sCityState)) & _ ", Share=" & sShare & _ ", LicenseType=" & SQLQuoteString(sType) & _ ", Trial=" & sTrial & _ ", LicDecrip=" & SQLQuoteString(sLicDescrip) & _ " where registrationID=" & nRegistrationID objConn.Execute sSQL If objConn.Errors.Count=0 Then UpdateRegistration = True Else UpdateRegistration=False End If End Function '============================== Function InsertRegistration() Dim sSQL sSQL = "Insert Into Registration(ContactName, Company, CompanyPhone, ContactPhone, EmailAddress, DateRegistered, Emp_Loc, Share, LicenseType, Trial, LicDecrip)" & _ " Values(" & _ SQLQuoteString(SafeSQL(sName)) & ", " & _ SQLQuoteString(SafeSQL(sCompany)) & ", " & _ SQLQuoteString(sCompanyPhone) & ", " & _ SQLQuoteString(sPhone) & ", " & _ SQLQuoteString(SafeSQL(sEmail)) & ", " & _ "'" & Now() & "' " & _ ", " & SQLQuoteString(SafeSQL(sCityState)) & ", " & _ sShare & _ ", " & SQLQuoteString(sType) & ", " & _ sTrial & _ ", " & SQLQuoteString(sLicDescrip) & _ ")" objConn.Execute sSQL sSQL = "Select @@IDENTITY as RECID FROM Registration" objRSTmp.Open sSQL, objConn nRegistrationID = objRSTmp("RECID") objRSTmp.Close If objConn.Errors.Count=0 Then InsertRegistration = True Else InsertRegistration=False End If End Function '========================== Function SendEmail2() Dim JMail Dim sEmailBody Set JMail = Server.CreateObject("JMail.Message") JMail.ISOEncodeHeaders = False JMail.From = "sales@e-linq.com" JMail.FromName = "E-LinQ Sales Center" JMail.Subject = "THE INTERPRETER Free Trial Request Confirmation" JMail.AddRecipient sEmail JMAIL.AddRecipientBCC "sales@e-linq.com" 'JMAIL.AddRecipientBCC "powerstech@earthlink.net" If sEFormat = "Plain" Then JMail.Body = "Hello " & sName & Chr(13) & Chr(13) & _ "E-LinQ Corp. USA has received your request and will verify that you are a real estate or mortgage industry professional. Expect to receive another message from us within 2 business days containing a link to download THE INTERPRETER." & Chr(13) & Chr(13) & _ "The verification information you provided:" & Chr(13) & Chr(13) & _ "Employer: " & sCompany & Chr(13) & _ "Employer Phone: " & sCompanyPhone & Chr(13) & _ "Telephone: " & sPhone & Chr(13) & Chr(13) & _ "If neither of these numbers will reach your employer's office, please return to the following page and edit your request:" & Chr(13) & Chr(13) & _ "http://e-linq.com/Downloads/Free_Trial.asp" & Chr(13) & Chr(13) & _ "Thank you!" & Chr(13) & _ "E-LinQ Corp. USA" Else JMail.HTMLBody = "Hello " & sName & "

" & _ "E-LinQ Corp. USA has received your request and will verify that you are a real estate or mortgage industry professional. Expect to receive another message from us within 2 business days containing a link to download THE INTERPRETER." & "

" & _ "The verification information you provided:" & "

" & _ "Employer: " & sCompany & "
" & _ "Employer Phone: " & sCompanyPhone & "
" & _ "Telephone: " & sPhone & "

" & _ "If neither of these numbers will reach your employer's office, please return to the following page and edit your request:" & "

" & _ "http://e-linq.com/Downloads/Free_Trial.asp" & "

" & _ "Thank you!" & "
" & _ "E-LinQ Corp. USA
" End If JMail.Priority = 1 ' logging for debugging, silent for errors JMail.Logging = True JMail.silent = True On Error Resume Next '9/14/06 changed to localhost If Not JMail.Send("localhost") Then SendEmail2 = False sMsg = sMsg & "
E-LinQ cannot respond to this request at the moment because the database is receiving maintenance.
Please wait a few minutes and select 'Continue' again. Thank you." ' Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "
" & vbcrlf ) ' Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "
" & vbcrlf ) ' Response.Write( "LOG: " & JMail.Log & "
" & vbcrlf ) Else SendEmail2 = True sMsg = sMsg & "Email sent successfully.
" END IF Set JMail = Nothing End Function '======================================== Function SendEmailConfirmation() Dim JMail Dim nRandomNbr Dim sEmailBody Randomize nRandomNbr = Rnd(nRegistrationID) 'sEmailBody = "Thank you for requesting the Free Trial of THE INTERPRETER.

" & _ ' "The link below will take you to a download web page.

"& _ ' "If the link does not execute, you will need to copy and paste it into the address bar of your web browser.

" & _ ' "If you encounter a problem please email support@e-LinQ.com or telephone 770-461-2713.

"& _ ' "http://www.e-linq.com/downloads/DownloadTrial.asp?HID=123o0khiaai39&DI=NNKLILq99302lldkd&RID=" & nRegistrationID & "#u30a0eq" & nRandomNbr & "0883idwppnzwm

" & _ ' "-E-LinQ Corp USA" '======================================== Set JMail = Server.CreateObject("JMail.Message") JMail.ISOEncodeHeaders = False 'JMail.From = "support@e-linq.com" JMail.From = sEmail JMail.FromName = sName 'JMail.FromName = "E-LinQ Download Center" JMail.Subject = "THE INTERPRETER DOWNLOAD" JMail.AddRecipient "sales@e-linq.com" 'JMail.AddRecipient "billing@e-linq.com" 'JMAIL.AddRecipientBCC "powerstech@earthlink.net" If sEFormat = "Plain" Then JMail.Body = "THE INTERPRETER Download Access Link" & Chr(13) & Chr(13) & _ "Welcome " & sName & "! " & Chr(13) & Chr(13) & _ "Thank you for your interest in THE INTERPRETER Real Estate Counseling Program® and our dynamic business capture systems. We look forward to supporting your efforts to improve the home selling and financing process and to deliver a more satisfying customer experience." & Chr(13) & Chr(13) & _ "You have chosen to inspect the following version:" & Chr(13) & Chr(13) & _ sLicDescrip & Chr(13) & Chr(13) & _ "You will be inspecting the actual product, but the Free Trial has some built in limitations that will go away when you purchase a license or when you are issued a sub-license by your Sponsor (as applicable):" & Chr(13) & Chr(13) & _ "1. You cannot install page footers to personalize the display pages." & Chr(13) & _ "2. You cannot upload ScenarioLinQ® web pages." & Chr(13) & _ "3. You cannot publish LenderLinQ® (if applicable) but you can set it up."& Chr(13) & Chr(13) & _ "You can; however, go ahead and import settlement agent schedules, import or setup your own tax jurisdictions data, create listing files and export data files to your loan originator or loan origination system (as applicable)." & Chr(13) & Chr(13) & _ "Your Download link (copy & paste into your browser):" & Chr(13) & Chr(13) & _ "http://www.e-linq.com/downloads/DownloadNow.asp?HID=123o0khiaai39&DI=NNKLILq99302lldkd&RID=" & nRegistrationID & "&#u30a0eq" & nRandomNbr & "0883idwppnzwm" & Chr(13) & Chr(13) & _ "Support:" & Chr(13) & Chr(13) & _ "E-LinQ Corp. USA" & Chr(13) & _ "770-461-2713" & Chr(13) & _ "support@e-LinQ.com" & Chr(13) & Chr(13) & _ "Thank you for your business! We look forward to serving you." & Chr(13) & Chr(13) & _ "E-LinQ Corp. USA" Else '"
" &_ '" " &_ '"
" &_ '"
" &_ '" " &_ '"
" &_ ' "  
" &_ ' "

THE " &_ ' "INTERPRETER Download Access Link

" &_ JMail.ContentType = "text/html" 'JMail.HTMLBody="" & sEmailBody & "" JMail.HTMLBody = " " &_ " " &_ " " &_ "E-LinQ Corp. USA Download Link Message " &_ " " &_ " " &_ " " &_ "
" &_ "
" & _ "

 

" & _ "

THE INTERPRETER Download Access Link

" & _ "

" &_ "Welcome " JMail.HTMLBody = JMail.HTMLBody & sName & _ "!

" &_ "

" &_ "Thank you " &_ "for your interest in THE INTERPRETER Real Estate " &_ "Counseling Program® and our " &_ "dynamic business capture systems. We look forward to " &_ "supporting your efforts to improve the home selling and " &_ "financing process and to deliver a more satisfying " &_ "customer experience.

" &_ "

You have " &_ "chosen to inspect the following version:

" &_ "

" JMail.HTMLBody = JMail.HTMLBody & sLicDescrip &_ "

" &_ "You will be inspecting the actual " &_ "product, but the Free Trial has some built in " &_ "limitations that will go away when you purchase a " &_ "license or when you are issued a sub-license by your " &_ "Sponsor (as applicable):

" &_ "

" &_ "1.    " &_ "You cannot install page footers to personalize the " &_ "display pages.

" &_ "

" &_ "2.    " &_ "You cannot upload ScenarioLinQ® " &_ "web pages.

" &_ "

" &_ "3.    " &_ "You cannot publish LenderLinQ® (if applicable) but you " &_ "can set it up.

" &_ "

" &_ "You can; however, go ahead and " &_ "import settlement agent schedules, import or setup your " &_ "own tax jurisdictions data, create listing files and " &_ "export data files to your loan originator or loan " &_ "origination system (as applicable).

" &_ "  " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ "

" &_ "

" &_ "Your Download link:      " &_ "

" &_ "
" &_ " " &_ "
" &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ " " &_ "
" &_ "
" &_ "

Support:

" &_ "
" &_ " " &_ " " &_ " " &_ " " &_ "
" &_ "

" &_ " " &_ "E-LinQ Corp. USA

" &_ "

" &_ " " &_ "770-461-2713

" &_ "

" &_ " " &_ "support@e-LinQ.com

" &_ "
" &_ "
" &_ "
" &_ " " &_ "

" &_ "Thank you for your business! We look forward to serving you.

" &_ "

E-LinQ Corp. USA

" &_ " " End If 'If your message is really important, you may want to set the 'message priority with the Priority property. When setting this 'property, remember that 1 is highest priority (urgent) and 5 is lowest priority... JMail.Priority = 1 ' logging for debugging, silent for errors JMail.Logging = True JMail.silent = True On Error Resume Next '9/14/06 changed to localhost If Not JMail.Send("localhost") Then SendEmailConfirmation = False 'Try one more time ' If Not JMail.Send("localhost") Then sMsg = sMsg & "
E-LinQ cannot respond to this request at the moment because the database is receiving maintenance.
Please wait a few minutes and select 'Continue' again. Thank you." ' SendEmailConfirmation = False ' End If ' Response.Write("E-LinQ cannot respond to this request at the moment because the database is receiving maintenance.
Please wait a few minutes and select 'Continue' again. Thank you.") Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "
" & vbcrlf ) Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "
" & vbcrlf ) Response.Write( "LOG: " & JMail.Log & "
" & vbcrlf ) Else SendEmailConfirmation = True sMsg = sMsg & "Email sent successfully.
" SendEmail2() END IF Set JMail = Nothing End Function %>


 

Download Free Trial of THE INTERPRETER

is no longer available