<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Response.Buffer = True %> <% Dim smtpserver,passCode,mainEmail Dim Apply_FName, Apply_LName,Apply_Email,Apply_AreaCode,Apply_Phone,Apply_HomeValue,Apply_Mortgage Dim Action,IsError smtpserver = "smtp.paconline.net" mainEmail = "customercare@mydebtgone.com" passCode = "mydebtgone1" Apply_FName = Request("Apply_FName") Apply_LName = Request("Apply_LName") Apply_Email = Request("Apply_Email") Apply_AreaCode = Request("Apply_AreaCode") Apply_Phone = Request("Apply_Phone") Apply_HomeValue = Request ("Apply_HomeValue") Apply_Mortgage= Request ("Apply_Mortgage") Action = Request("Action") Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Application Short Form: Credit Debt, Inc.; Debt Reduction and Debt Relief Programs

Credit Debt, Inc., Specialists in 24/7 Debt Consolidation and Financial Freedom Programs

Quick Application

<% If Action = "SendEmail" Then If Apply_FName = "" Then IsError = "Yes" Response.Write("You did not enter your First Name.
") End If If Apply_LName = "" Then IsError = "Yes" Response.Write("You did not enter your Last Name.
") End If If IsValidEmail(Apply_Email) = "False" Then IsError = "Yes" Response.Write("You did not enter a valid email address.
") End If If Apply_AreaCode = "" Then IsError = "Yes" Response.Write("You did not enter area code for your phone#.
") End If If Apply_Phone = "" Then IsError = "Yes" Response.Write("You did not enter your phone number.
") End If If Apply_HomeValue = "" Then IsError = "Yes" Response.Write("You did not enter your home value.
") End If If Apply_Mortgage = "" Then IsError = "Yes" Response.Write("You did not enter your mortage amount.
") End If End If If Action = "SendEmail" And IsError <> "Yes" Then Dim strBody strBody = strBody & "Application Form submitted at " & Now() & vbCrLf & "

" strBody = strBody & "From http://" & Request.ServerVariables("HTTP_HOST") & vbCrLf & "
" strBody = strBody & "IP " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf & "
" strBody = strBody & "First Name" & " : " & " " & Replace(Apply_FName,vbCr,"
") & "
" strBody = strBody & "Last Name" & " : " & " " & Replace(Apply_LName,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(Apply_Email,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(Apply_AreaCode,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(Apply_Phone,vbCr,"
") & "
" strBody = strBody & "Email" & " : " & " " & Replace(Apply_HomeValue,vbCr,"
") & "
" strBody = strBody & "Subject" & " : " & " " & Replace(Apply_Mortgage,vbCr,"
") & "
" strBody = strBody & "" Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = mainEmail ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passCode ObjSendMail.Configuration.Fields.Update ObjSendMail.To = mainEmail ObjSendMail.Subject = "Application" ObjSendMail.From = Apply_Email ObjSendMail.HTMLBody = strBody 'ObjSendMail.TextBody = strBody ObjSendMail.Send Set ObjSendMail = Nothing %>

Your aplication has been sent. Thank You !!

<% Else %>

To speak to a customer care representative, please call Toll Free at 888-678-2999. Ask for Alex; he'll help with any questions you may have!

 

Use the form below to sart on the road to Financial Freedom!

 

First Name:

Last Name:

Telephone #

Email Address:

Home Value:

Mortage Owed:

 
<% End If %>

Debt reduction choices:

 
Phone

> $5,000,
With Mortgage

< $5,000,
Without Mortgage

 

Ads by DogPile

 

Short Term Cash

Short Term Cash Loan

 
Home Improvement

Click for Wainscoting, cornices, columns... more!