<% Option Explicit Response.Buffer = True Response.Expires = 0 %> <% Dim sValidMsg Dim fValid fValid = True Function ValidateField(sFieldValue, sFieldType) Dim bFieldIsOkay ' defaut it to true bFieldIsOkay = True ' go to the field name to validate the entry sFieldType = LCase(sFieldType) If InStr(1, sFieldType, "password") > 0 Then If Len(sFieldValue) < 4 Then bFieldIsOkay = False End If If InStr(1, sFieldType, "name") > 0 Then If Len(sFieldValue) = 0 Then bFieldIsOkay = False End If If InStr(1, sFieldType, "email") > 0 Then If Len(sFieldValue) < 5 Then bFieldIsOkay = False Else If Instr(1, sFieldValue, " ") <> 0 Then bFieldIsOkay = False Else If InStr(1, sFieldValue, "@") < 2 Then bFieldIsOkay = False Else If InStrRev(sFieldValue, ".") < InStr(1, sFieldValue, "@") + 2 Then bFieldIsOkay = False End If End If End If End If End If If InStr(1, sFieldType, "address") > 0 Then If Len(sFieldValue) = 0 Then bFieldIsOkay = False End If If InStr(1, sFieldType, "city") > 0 Then If Len(sFieldValue) = 0 Then bFieldIsOkay = False End If If InStr(1, sFieldType, "state") > 0 Then If Len(sFieldValue) <> 2 Then bFieldIsOkay = False End If If InStr(1, sFieldType, "zip") > 0 Then If Len(sFieldValue) <> 5 And Len(sFieldValue) <> 10 Then response.write(sFieldValue) bFieldIsOkay = False End If End If if InStr(1, sFieldType, "nr") > 0 then bFieldIsOkay = True end if 'response.write mid(sFieldType, len(sFieldType)-1, len(sFieldType)-1) if mid(sFieldType, len(sFieldType)-1, 1) = "_" then bFieldIsOkay = True end if ValidateField = bFieldIsOkay End Function If (Request.QueryString("action") = "send") Then dim field, strField For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then fValid = false strField = replace(Field, "_", " ") strField = replace(strField, "NR", " ") strField = mid(strField, 1, instr(strField, "^")-1) strField = UCase(Left(strField, 1)) & LCase(Mid(strField, 2)) sValidMsg = strField & " incorrectly entered." 'dictFields.Add LCase(Field), True exit for End If Next ' End If If (fValid = True) Then If (SendEmail = False) Then fValid = False sValidMsg = sValidMsg & "
Please enter a valid Email address." Else Response.Redirect "thanks.html" End If End If End If %> <% Function SendEmail() Dim sMsg, aMsg(50) Dim iLen, iCount dim field, strField, iMsg For iCount = 0 to 50 step 1 aMsg(iCount) = "" Next For Each Field in Request.Form strField = replace(Field, "_", " ") if inStr(UCase(strField), "SUBMIT") = 0 then strField = replace(strField, "NR", "") strField = UCase(Left(strField, 1)) & LCase(Mid(strField, 2)) if instr(strField, "^") > 0 then iMsg = 0 iMsg = cInt(right(strField,len(strField)-instr(strField,"^"))) strField = mid(strField, 1, instr(strField, "^")-1) aMsg(iMsg) = strField & ":" iLen = 25 - len(strField) For iCount = 1 to iLen step 1 aMsg(iMsg) = aMsg(iMsg) & " " Next aMsg(iMsg) = aMsg(iMsg) & request.form(field) & vbCrlf else sMsg = sMsg & strField & ":" iLen = 25 - len(strField) For iCount = 1 to iLen step 1 sMsg = sMsg & " " Next sMsg = sMsg & request.form(field) & vbCrlf end if end if Next For iCount = 50 to 0 step -1 if aMsg(iCount) <> "" then sMsg = aMsg(iCount) & sMsg end if Next Dim oMail, Conf, Flds Set oMail = CreateObject("CDO.Message") Set Conf = CreateObject("CDO.Configuration") Set Flds = Conf.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.Update Set oMail.Configuration = Conf oMail.From = request("Full_Name^1") & " <" & request("Email^9") & ">" 'oMail.To = "SMT Golf " 'oMail.Bcc = "SMT Golf " oMail.To = request("recipient")'"ciphre1@yahoo.com" oMail.Subject = "Quote Request" oMail.TextBody = sMsg oMail.Send Set Flds = Nothing Set oMail = Nothing Set Conf = Nothing SendEmail = True End Function %> Instant Moving Quote
Instant Moving Quote
 
Online Instant Moving Quote

For an online price quote, please complete the following and submit to us. 

<%if sValidMsg <> "" then%> <%=sValidMsg%> Please click on your browser's back button to continue filling out the form. <%else%>

Name:
Address:
Address 2:
City: 
State:
Zip:
Type of Residence House    Apartment    
Condominium/Townhouse 
Telephone Number:
Best Time To Contact:
Fax Number:
E-Mail Address:
Moving From?
Moving To?
Date of Move?
In order to determine an accurate estimate we need as much of the following information as possible.
What is the square footage of your home?
How many rooms with furnishings will you be moving?
How many levels does your home include?
What appliances will you be moving Refrigerator    Freezer    
Washer    Dryer 
Are you moving any pianos, antiques, art, etc.? Yes       No 
Will you be shipping any vehicles, boats, etc.? Yes       No 
Would you like assistance with packing? Yes       No 
Will you require any storage?  Yes       No 
Tell us anything special about your move


Privacy Statement:
The information which you give in completing this form will not be provided by us to any other parties. If you wish information concerning our privacy policy, please contact us.

 

<%end if%>

 
Personal Checks Welcome On Local Moves
We Accept: Mastercard, Visa, and Amexpress On All Moves
mastercard, visa, and american express

Advantage Relocation Systems, Inc.
140 McLeod Drive . Columbia, SC 29203
(803) 714-6683 . (800) 662-4654 . Fax (803) 714-6687

E-Mail Us at: dadams@amover4u.com 

Welcome | May We Move You? |  Moving Checklist | Online Price Quote

This web site created and promoted by Visual Verticals
Copyright © 2004 All Rights Reserved.