%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields Dim GetEmail GetEmail = Request.Form("EMail") FormFields = "First_Name~Middle_Initial~Last_Name~Home_Phone~Work_Phone~City~Email~Contact_Time~Zip_Code~password~State~County~purpose~TypeLoan~Desired_Rate~Current_Value~Loan_Amount~Desired_Term~Monthly_Income~Monthly_Obligations~Credit_History~Bankruptcy~Payment_History~checkbox~How_Find" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "submit@mtgcapitallending.com" objCDO.To = "submissions@mtgcapitallending.com" objCDO.Cc = "" objCDO.Subject = "Mtgcapitallending.com Loan application in Spanish" BodyString = Replace("The following is a Mtgcapitallending.com loan application en espanol.","~",chr(13) & chr(10) )& chr(13) If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & chr(13) Next End If objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "submit@mtgcapitallending.com" objCDO.To = GetEmail objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "AutoReply" BodyString = "Su petición ha sido recibida por nuestro sistema y será procesada cuanto antes. En algunos casos tales como días de fiesta o los fines de semana, los usos no se pueden procesar hasta el siguiente después de día laboral. Gracias por usar First American Equity Corp. para sus necesidades de la búsqueda de la hipoteca, y esperamos su experiencia somos agradable. Damos la bienvenida siempre a su regeneración." & chr(13) BodyString = BodyString & "Gracias." & chr(13) objCDO.Body = BodyString objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send Set objCDO = Nothing RedirectURL = "applyrespond.asp" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||