null or not an object 1

jliz2803 · Sep 14, 2005

I posted earlier about an error message that said:
Form.GMAC_CancellationName.value is null or not an object. Here is the code could someone plaese help me out.

<%@ LANGUAGE = VBScript %>
<%
Option Explicit
Response.Buffer = True
Response.ExpiresAbsolute = Now () - 1
Response.Expires = -1441
Dim Connection
Dim RecordSet
Dim Field
Dim UserSQL
'Server.Execute ("Debug.asp")
Set Connection = Server.CreateObject ("ADODB.Connection")
Dim ScriptDataDictionary
If (IsEmpty (Request.Form)) Then
Set ScriptDataDictionary = Server.CreateObject ("Scripting.Dictionary")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath (".\clic.mdb")
UserSQL = "SELECT * FROM GMAC WHERE GMAC_ID=0"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
For Each Field In RecordSet.Fields
If (Field.Type = adVarWChar) Then
ScriptDataDictionary.Item (Field.Name & "Size") = Field.DefinedSize
End If
Next
RecordSet.Close
Set RecordSet = Nothing
Connection.Close
Set Session.Contents.Item ("ScriptDataDictionary") = ScriptDataDictionary
Else
Set ScriptDataDictionary = Session.Contents.Item ("ScriptDataDictionary")
End If
Dim GMAC_ZipCodeLookUpStatus
GMAC_ZipCodeLookUpStatus = -1
Dim RegularExpression
Set RegularExpression = New RegExp
RegularExpression.Global = True
RegularExpression.IgnoreCase = True
Dim Item
Dim Value
Dim GMAC_ZipCodeLookUp
GMAC_ZipCodeLookUp = 0
Dim CitySelectOptions
CitySelectOptions = ""
Dim GMAC_RegistrationMessage
GMAC_RegistrationMessage = ""
Dim BackScriptName
BackScriptName = "GMAC_Menu.asp"
If (Not IsEmpty (Request.Form ("GMAC_ZipCodeLookUp"))) Then
For Each Item In Request.Form
ScriptDataDictionary.Item (Item) = Trim (Request.Form (Item))
Next
RegularExpression.Pattern = "^\d{1}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ZipCodeLookUp"))) Then
ExitThis (1)
End If
GMAC_ZipCodeLookUp = CLng ((ScriptDataDictionary.Item ("GMAC_ZipCodeLookUp")))
If (GMAC_ZipCodeLookUp <= 0) Then
ExitThis (2)
ElseIf (GMAC_ZipCodeLookUp > 3) Then
ExitThis (3)
End If
ScriptDataDictionary.Remove ("GMAC_ZipCodeLookUp")
If (GMAC_ZipCodeLookUp = 3) Then
BackScriptName = "GMAC_Registration.asp"
If (ScriptDataDictionary.Item ("GMAC_OperatingSystemID") = "0") Then
ScriptDataDictionary.Remove ("GMAC_OperatingSystemID")
End If
UserSQL = ""
If (Not ScriptDataDictionary.Exists ("GMAC_ID")) Then
For Each Item In ScriptDataDictionary.Keys
If (Right (Item, 4) <> "Size") Then
If (ScriptDataDictionary.Item (Item) <> "") Then
If (UserSQL <> "") Then
UserSQL = UserSQL & " AND "
End If
UserSQL = UserSQL & Item & " LIKE '%" & ScriptDataDictionary.Item (Item) & "%'"
ScriptDataDictionary.Remove (Item)
End If
End If
Next
Else
UserSQL = UserSQL & "GMAC_ID=" & ScriptDataDictionary.Item ("GMAC_ID")
End If
If (UserSQL <> "") Then
UserSQL = "SELECT * FROM GMAC WHERE " & UserSQL
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath (".\clic.mdb")
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
If (RecordSet.EOF) Then
GMAC_RegistrationMessage = "No matches found"
GMAC_ZipCodeLookUp = 0
ElseIf (RecordSet.RecordCount = 1) Then
For Each Field In RecordSet.Fields
ScriptDataDictionary.Item (Field.Name) = Field.Value
Next
GMAC_ZipCodeLookUp = 0
Else
Response.Write ("<HTML>" & vbCRLF)
Response.Write (" <HEAD>" & vbCRLF)
Response.Write (" <META HTTP-EQUIV=EXPIRES CONTENT='FRI, JUN 12 1981 08:20:00 GMT'>" & vbCRLF)
Response.Write (" <META HTTP-EQUIV=PRAGMA CONTENT=NO-CACHE>" & vbCRLF)
Response.Write (" <META HTTP-EQUIV=CACHE-CONTROL CONTENT=NO-CACHE>" & vbCRLF)
Response.Write (" <TITLE>GMAC Software Licensing Search Results</TITLE>" & vbCRLF)
Response.Write (" <LINK REL=STYLESHEET TYPE=TEXT/CSS HREF=GMAC.CSS>" & vbCRLF)
Response.Write (" <SCRIPT TYPE=TEXT/JAVASCRIPT>" & vbCRLF)
Response.Write ("function FormOnSubmit (RegistrationCode)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.elements.GMAC_RegistrationCode.value = RegistrationCode;" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function SetHand (Element)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" Element.style.cursor = 'hand';" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function UnSetHand (Element)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" Element.style.cursor = '';" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function Back ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" location.href = 'GMAC_Registration.asp';" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write (" </SCRIPT>" & vbCRLF)
Response.Write (" </HEAD>" & vbCRLF)
Response.Write (" <BODY>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 ALIGN=CENTER CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=HEADER>GMAC Software Licensing Search Results</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <FORM NAME=GMAC_Registration METHOD=POST ACTION=GMAC_Registration.asp>" & vbCRLF)
Response.Write (" <INPUT TYPE=HIDDEN NAME=GMAC_ZipCodeLookUp VALUE=3>" & vbCRLF)
Response.Write (" <INPUT TYPE=HIDDEN NAME=GMAC_RegistrationCode VALUE=''>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Dealership Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>City</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>State</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact Telephone</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact Fax</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Registration Code</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Do While (Not RecordSet.EOF)
Response.Write (" <TR ONMOUSEOVER='SetHand (this)' ONMOUSEOUT='UnSetHand (this)' ONCLICK='FormOnSubmit (""")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_RegistrationCode").Value))
Response.Write (""")'>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT>")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_DealershipName").Value))
Response.Write ("</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT>")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_City").Value))
Response.Write ("</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT ALIGN=CENTER>")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_State").Value))
Response.Write ("</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT>")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactName").Value))
Response.Write ("</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT>")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactTelephoneAreaCode").Value))
Response.Write (" ")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactTelephoneExchange").Value))
Response.Write ("–")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactTelephoneNumber").Value))
If (Len (RecordSet.Fields.Item ("GMAC_ContactTelephoneExtension").Value) > 0) Then
Response.Write (" x ")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactTelephoneExtension").Value))
End If
Response.Write ("</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT>")
If (Len (RecordSet.Fields.Item ("GMAC_ContactFaxAreaCode").Value & _
RecordSet.Fields.Item ("GMAC_ContactFaxExchange").Value & _
RecordSet.Fields.Item ("GMAC_ContactFaxNumber").Value) > 0) Then
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactFaxAreaCode").Value))
Response.Write (" ")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactFaxExchange").Value))
Response.Write ("–")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactFaxNumber").Value))
' If (Len (RecordSet.Fields.Item ("GMAC_ContactFaxExtension").Value) > 0) Then
' Response.Write (" x ")
' Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_ContactFaxExtension").Value))
' End If
End If
Response.Write ("</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=TEXT>")
Response.Write (HTML_Encode (RecordSet.Fields.Item ("GMAC_RegistrationCode").Value))
Response.Write ("</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
RecordSet.MoveNext
Loop
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </FORM>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD ALIGN=CENTER>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <INPUT TYPE=BUTTON VALUE='Back' ONCLICK='Back ()'>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </BODY>" & vbCRLF)
Response.Write ("</HTML>" & vbCRLF)
End If
RecordSet.Close
Set RecordSet = Nothing
Connection.Close
If (GMAC_ZipCodeLookUp <> 0) Then
Set ScriptDataDictionary = Nothing
Set Connection = Nothing
Set RegularExpression = Nothing
Response.End
End If
Else
GMAC_ZipCodeLookUp = 0
End If
ElseIf (GMAC_ZipCodeLookUp = 2) Then
BackScriptName = "GMAC_Registration.asp"
RegularExpression.Pattern = "^\d{5}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ZipCode"))) Then
ExitThis (4)
End If
If (Len (ScriptDataDictionary.Item ("GMAC_DealershipName")) <= 0) Then
ExitThis (5)
' Else
' RegularExpression.Pattern = "^.*$"
' If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_DealershipName"))) Then
' ExitThis (6)
' End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_StreetAddress")) <= 0) Then
ExitThis (7)
' Else
' RegularExpression.Pattern = "^.*$"
' If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_StreetAddress))) Then
' ExitThis (8)
' End If
End If
Connection.Open "Provider=SQLOLEDB; Data Source=WEBSERVERW2K; UID=sa; PWD=39x9iVu1; DataBase=ZipCodes;"
UserSQL = "SELECT ZIPCodes.City, ZIPCodes.StateCode, ZIPCodes.CityType FROM ZIPCodes WHERE ZIPCodes.ZIPCode='" & ScriptDataDictionary.Item ("GMAC_ZipCode") & "' AND ZIPCodes.City='" & Replace (ScriptDataDictionary.Item ("GMAC_City"), "'", "''") & "' AND ZIPCodes.StateCode='" & ScriptDataDictionary.Item ("GMAC_State") & "' AND ZIPCodes.CityType IN ('D', 'A')"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
If (RecordSet.EOF) Then
ExitThis (9)
ElseIf (RecordSet.RecordCount > 1) Then
ExitThis (10)
End If
RecordSet.Close
Set RecordSet = Nothing
If (Len (ScriptDataDictionary.Item ("GMAC_ContactName")) <= 0) Then
ExitThis (11)
' Else
' RegularExpression.Pattern = "^.*$"
' If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactName))) Then
' ExitThis (12)
' End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_ContactEMailAddress")) <= 0) Then
' ExitThis (13)
Else
RegularExpression.Pattern = "^\S+\@\S+\.\S+$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactEMailAddress"))) Then
ExitThis (14)
End If
End If
UserSQL = "SELECT DISTINCT ZIPCodes.AreaCode FROM ZIPCodes WHERE ZIPCodes.StateCode='" & ScriptDataDictionary.Item ("GMAC_State") & "' AND ZIPCodes.AreaCode='" & ScriptDataDictionary.Item ("GMAC_ContactTelephoneAreaCode") & "'"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
If (RecordSet.RecordCount <> 1) Then
ExitThis (15)
End If
If (Len (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchange")) <= 0) Then
ExitThis (16)
Else
RegularExpression.Pattern = "^\d{3}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchange"))) Then
ExitThis (17)
End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_ContactTelephoneNumber")) <= 0) Then
ExitThis (18)
Else
RegularExpression.Pattern = "^\d{4}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactTelephoneNumber"))) Then
ExitThis (19)
End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExtension")) > 0) Then
RegularExpression.Pattern = "^\d*$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExtension"))) Then
ExitThis (20)
End If
End If
UserSQL = "SELECT DISTINCT ZIPCodes.AreaCode FROM ZIPCodes WHERE ZIPCodes.StateCode='" & ScriptDataDictionary.Item ("GMAC_State") & "' AND ZIPCodes.AreaCode='" & ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode") & "'"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
If (RecordSet.RecordCount <> 1) Then
ExitThis (21)
End If
Connection.Close
If (Len (ScriptDataDictionary.Item ("GMAC_ContactFaxExchange")) <= 0) Then
' ExitThis (22)
Else
RegularExpression.Pattern = "^\d{3}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactFaxExchange"))) Then
ExitThis (23)
End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_ContactFaxNumber")) <= 0) Then
' ExitThis (24)
Else
RegularExpression.Pattern = "^\d{4}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactFaxNumber"))) Then
ExitThis (25)
End If
End If
' If (Len (ScriptDataDictionary.Item ("GMAC_ContactFaxExtension")) > 0) Then
' RegularExpression.Pattern = "^\d*$"
' If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ContactFaxExtension"))) Then
' ExitThis (26)
' End If
' End If
If (Len (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCode")) <= 0) Then
ExitThis (27)
Else
' RegularExpression.Pattern = "^\d{" & ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize") & "}$"
RegularExpression.Pattern = "^\d+$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCode"))) Then
ExitThis (28)
End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_ProviderName")) <= 0) Then
ExitThis (29)
' Else
' RegularExpression.Pattern = "^.*$"
' If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ProviderName"))) Then
' ExitThis (30)
' End If
End If
If (Len (ScriptDataDictionary.Item ("GMAC_CD_SerialNumber")) <= 0) Then
ExitThis (31)
Else
RegularExpression.Pattern = "^\w{8," & ScriptDataDictionary.Item ("GMAC_CD_SerialNumberSize") & "}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_CD_SerialNumber"))) Then
ExitThis (32)
End If
End If
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath (".\clic.mdb")
If (Len (ScriptDataDictionary.Item ("GMAC_OperatingSystemID")) <= 0) Then
ExitThis (33)
Else
RegularExpression.Pattern = "^\d+$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_OperatingSystemID"))) Then
ExitThis (34)
Else
UserSQL = "SELECT OS_ID FROM GMAC_OS WHERE OS_ID=" & ScriptDataDictionary.Item ("GMAC_OperatingSystemID")
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
If (RecordSet.EOF) Then
ExitThis (35)
End If
RecordSet.Close
Set RecordSet = Nothing
End If
End If
If (Not ScriptDataDictionary.Exists ("GMAC_ID")) Then
Dim RegistrationCodeCharacters
RegistrationCodeCharacters = Split ("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9", " ")
Randomize
''''' ScriptDataDictionary.Item ("GMAC_RegistrationCode") = "??1?8?5?"
Do While (Not ScriptDataDictionary.Exists ("GMAC_RegistrationCode"))
Value = RegistrationCodeCharacters (Fix (Rnd () * UBound (RegistrationCodeCharacters))) & _
RegistrationCodeCharacters (Fix (Rnd () * UBound (RegistrationCodeCharacters))) & _
"1" & _
RegistrationCodeCharacters (Fix (Rnd () * UBound (RegistrationCodeCharacters))) & _
"8" & _
RegistrationCodeCharacters (Fix (Rnd () * UBound (RegistrationCodeCharacters))) & _
"5" & _
RegistrationCodeCharacters (Fix (Rnd () * UBound (RegistrationCodeCharacters)))
UserSQL = "SELECT GMAC_ID FROM GMAC WHERE GMAC_RegistrationCode='" & Value & "'"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
If (RecordSet.EOF) Then
ScriptDataDictionary.Item ("GMAC_RegistrationCode") = Value
End If
RecordSet.Close
Set RecordSet = Nothing
Loop
End If
' If (ScriptDataDictionary.Exists ("GMAC_RegistrationDateTime")) Then
' ScriptDataDictionary.Remove ("GMAC_RegistrationDateTime")
' End If
ScriptDataDictionary.Item ("GMAC_Disabled") = (LCase (ScriptDataDictionary.Item ("GMAC_Disabled")) = "on")
If (ScriptDataDictionary.Exists ("GMAC_LastModifiedDateTime")) Then
ScriptDataDictionary.Remove ("GMAC_LastModifiedDateTime")
End If
UserSQL = "SELECT * FROM GMAC WHERE GMAC_ID="
If (ScriptDataDictionary.Exists ("GMAC_ID")) Then
UserSQL = UserSQL & CStr (ScriptDataDictionary.Item ("GMAC_ID"))
ScriptDataDictionary.Item ("GMAC_LastModifiedDateTime") = Now ()
Else
UserSQL = UserSQL & "0"
ScriptDataDictionary.Item ("GMAC_RegistrationDateTime") = Now ()
End If
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockPessimistic, adCmdText
If (Not ScriptDataDictionary.Exists ("GMAC_ID")) Then
RecordSet.AddNew
Value = 0
Else
Value = ScriptDataDictionary.Item ("GMAC_ID")
ScriptDataDictionary.Remove ("GMAC_ID")
End If
If ((Len (RecordSet.Fields.Item ("GMAC_ContactFaxAreaCode").Value) > 0) And _
(Len (RecordSet.Fields.Item ("GMAC_ContactFaxExchange").Value & _
RecordSet.Fields.Item ("GMAC_ContactFaxNumber").Value) <= 0)) Then
ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode") = ""
End If
For Each Item In ScriptDataDictionary.Keys
If (Right (Item, 4) <> "Size") Then
If (RecordSet.Fields.Item (Item).Type = adVarWChar) Then
If (RecordSet.Fields.Item (Item).DefinedSize < Len (ScriptDataDictionary.Item (Item))) Then
ExitThis (36)
End If
End If
RecordSet.Fields.Item (Item).Value = ScriptDataDictionary.Item (Item)
End If
Next
RecordSet.Update
If (Value > 0) Then
ScriptDataDictionary.Item ("GMAC_ID") = Value
End If
RecordSet.Close
Set RecordSet = Nothing
Connection.Close
ElseIf (GMAC_ZipCodeLookUp = 1) Then
RegularExpression.Pattern = "^\d{5}$"
If (Not RegularExpression.Test (ScriptDataDictionary.Item ("GMAC_ZipCode"))) Then
ExitThis (37)
End If
Connection.Open "Provider=SQLOLEDB; Data Source=WEBSERVERW2K; UID=sa; PWD=39x9iVu1; DataBase=ZipCodes;"
UserSQL = "SELECT ZIPCodes.City, ZIPCodes.StateCode, ZIPCodes.AreaCode, ZIPCodes.CityType FROM ZIPCodes WHERE ZIPCodes.ZIPCode='" & ScriptDataDictionary.Item ("GMAC_ZipCode") & "' AND ZIPCodes.CityType IN ('D', 'A') ORDER BY ZIPCodes.City, ZIPCodes.CityType"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
GMAC_ZipCodeLookUpStatus = RecordSet.RecordCount
If (GMAC_ZipCodeLookUpStatus <= 0) Then
ScriptDataDictionary.Item ("GMAC_City") = ""
ScriptDataDictionary.Item ("GMAC_State") = ""
ScriptDataDictionary.Item ("GMAC_ContactTelephoneAreaCode") = ""
ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode") = ""
ElseIf (GMAC_ZipCodeLookUpStatus = 1) Then
ScriptDataDictionary.Item ("GMAC_City") = RecordSet.Fields.Item ("City").Value
ScriptDataDictionary.Item ("GMAC_State") = RecordSet.Fields.Item ("StateCode").Value
ScriptDataDictionary.Item ("GMAC_ContactTelephoneAreaCode") = RecordSet.Fields.Item ("AreaCode").Value
ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode") = RecordSet.Fields.Item ("AreaCode").Value
Else
ScriptDataDictionary.Item ("GMAC_City") = ""
While (Not RecordSet.EOF)
Value = HTML_Encode (RecordSet.Fields.Item ("City").Value)
CitySelectOptions = CitySelectOptions & " <OPTION VALUE='" & Value & "'"
If (UCase (RecordSet.Fields.Item ("CityType").Value) = "D") Then
CitySelectOptions = CitySelectOptions & " SELECTED"
End If
CitySelectOptions = CitySelectOptions & ">" & Value & "</OPTION>" & vbCRLF
RecordSet.MoveNext
WEnd
RecordSet.MoveFirst
ScriptDataDictionary.Item ("GMAC_State") = RecordSet.Fields.Item ("StateCode").Value
ScriptDataDictionary.Item ("GMAC_ContactTelephoneAreaCode") = RecordSet.Fields.Item ("AreaCode").Value
ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode") = RecordSet.Fields.Item ("AreaCode").Value
End If
RecordSet.Close
Set RecordSet = Nothing
Connection.Close
End If
End If
Dim TelephoneAreaCodeSelectOptions
TelephoneAreaCodeSelectOptions = ""
Dim FaxAreaCodeSelectOptions
FaxAreaCodeSelectOptions = ""
'Response.Write ("Len (ScriptDataDictionary.Item (GMAC_State))=" & Len (ScriptDataDictionary.Item ("GMAC_State")) & "<BR>")
If (Len (ScriptDataDictionary.Item ("GMAC_State")) > 0) Then
Connection.Open "Provider=SQLOLEDB; Data Source=WEBSERVERW2K; UID=sa; PWD=39x9iVu1; DataBase=ZipCodes;"
UserSQL = "SELECT DISTINCT ZIPCodes.AreaCode FROM ZIPCodes WHERE ZIPCodes.StateCode='" & ScriptDataDictionary.Item ("GMAC_State") & "' ORDER BY ZIPCodes.AreaCode"
' Response.Write ("UserSQL=" & UserSQL & "<br>")
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
' Response.Write ("RecordSet.RecordCount=" & RecordSet.RecordCount & "<br>")
If (Not RecordSet.EOF) Then
While (Not RecordSet.EOF)
TelephoneAreaCodeSelectOptions = TelephoneAreaCodeSelectOptions & " <OPTION VALUE='" & RecordSet.Fields.Item ("AreaCode").Value & "'"
If (ScriptDataDictionary.Item ("GMAC_ContactTelephoneAreaCode") = RecordSet.Fields.Item ("AreaCode").Value) Then
TelephoneAreaCodeSelectOptions = TelephoneAreaCodeSelectOptions & " SELECTED"
End If
TelephoneAreaCodeSelectOptions = TelephoneAreaCodeSelectOptions & ">" & RecordSet.Fields.Item ("AreaCode").Value & "</OPTION>" & vbCRLF
RecordSet.MoveNext
WEnd
RecordSet.MoveFirst
While (Not RecordSet.EOF)
FaxAreaCodeSelectOptions = FaxAreaCodeSelectOptions & " <OPTION VALUE='" & RecordSet.Fields.Item ("AreaCode").Value & "'"
If (Len (ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode")) > 0) Then
If (ScriptDataDictionary.Item ("GMAC_ContactFaxAreaCode") = RecordSet.Fields.Item ("AreaCode").Value) Then
FaxAreaCodeSelectOptions = FaxAreaCodeSelectOptions & " SELECTED"
End If
Else
If (ScriptDataDictionary.Item ("GMAC_ContactTelephoneAreaCode") = RecordSet.Fields.Item ("AreaCode").Value) Then
FaxAreaCodeSelectOptions = FaxAreaCodeSelectOptions & " SELECTED"
End If
End If
FaxAreaCodeSelectOptions = FaxAreaCodeSelectOptions & ">" & RecordSet.Fields.Item ("AreaCode").Value & "</OPTION>" & vbCRLF
RecordSet.MoveNext
WEnd
End If
RecordSet.Close
Set RecordSet = Nothing
Connection.Close
End If
'Response.Write ("TelephoneAreaCodeSelectOptions=" & TelephoneAreaCodeSelectOptions & "<br>")
'Response.Write ("FaxAreaCodeSelectOptions=" & FaxAreaCodeSelectOptions & "<br>")
Response.Write ("<HTML>" & vbCRLF)
Response.Write (" <HEAD>" & vbCRLF)
Response.Write (" <META HTTP-EQUIV=EXPIRES CONTENT='FRI, JUN 12 1981 08:20:00 GMT'>" & vbCRLF)
Response.Write (" <META HTTP-EQUIV=PRAGMA CONTENT=NO-CACHE>" & vbCRLF)
Response.Write (" <META HTTP-EQUIV=CACHE-CONTROL CONTENT=NO-CACHE>" & vbCRLF)
Response.Write (" <TITLE>GMAC Software Licensing</TITLE>" & vbCRLF)
Response.Write (" <LINK REL=STYLESHEET TYPE=TEXT/CSS HREF=GMAC.CSS>" & vbCRLF)
Response.Write (" <SCRIPT TYPE=TEXT/JAVASCRIPT>" & vbCRLF)
Response.Write ("function BodyOnLoad ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" Form = document.forms.GMAC_Registration.elements;" & vbCRLF)
Response.Write (" var inputs = document.all.tags ('INPUT');" & vbCRLF)
Response.Write (" var ScrollWidthMax = 0;" & vbCRLF)
Response.Write (" for (var LoopIndex = 0; LoopIndex < inputs.length; LoopIndex++)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if ((inputs [LoopIndex].type == 'button') ||" & vbCRLF)
Response.Write (" (inputs [LoopIndex].type == 'reset') ||" & vbCRLF)
Response.Write (" (inputs [LoopIndex].type == 'submit'))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (ScrollWidthMax < inputs [LoopIndex].scrollWidth)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" ScrollWidthMax = inputs [LoopIndex].scrollWidth;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" ScrollWidthMax += 14;" & vbCRLF)
Response.Write (" for (var LoopIndex = 0; LoopIndex < inputs.length; LoopIndex++)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if ((inputs [LoopIndex].type == 'button') ||" & vbCRLF)
Response.Write (" (inputs [LoopIndex].type == 'reset') ||" & vbCRLF)
Response.Write (" (inputs [LoopIndex].type == 'submit'))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" inputs [LoopIndex].style.width = ScrollWidthMax;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
If (GMAC_ZipCodeLookUpStatus = 0) Then
Response.Write (" Form.GMAC_ZipCode.focus ();" & vbCRLF)
Response.Write (" Form.GMAC_ZipCode.select ();" & vbCRLF)
ElseIf (GMAC_ZipCodeLookUpStatus > 1) Then
Response.Write (" Form.GMAC_City.focus ();" & vbCRLF)
ElseIf (GMAC_ZipCodeLookUpStatus > 0) Then
Response.Write (" Form.GMAC_ContactName.focus ();" & vbCRLF)
End If
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
If (GMAC_ZipCodeLookUp <> 2) Then
Response.Write ("function IsZip (ZipCode)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" return ZipCode.value.match (/^\d{5}$/);" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function IsBlank (s)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" return (s.search (/\S/) == -1);" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_ZipCodeOnChange (GMAC_ZipCode)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" if (IsZip (GMAC_ZipCode))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_ZipCodeLookUp.value = 1;" & vbCRLF)
Response.Write (" var Row0 = document.getElementById ('OnAfterSubmitAlert');" & vbCRLF)
Response.Write (" Row0.className = 'displayed';" & vbCRLF)
Response.Write (" var Row0 = document.getElementById ('OnBeforeSubmitForm');" & vbCRLF)
Response.Write (" Row0.className = 'undisplayed';" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (!IsBlank (GMAC_ZipCode.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Enter a 5 digit Zip Code');" & vbCRLF)
Response.Write (" GMAC_ZipCode.focus ();" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else if (GMAC_ZipCode !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" GMAC_ZipCode.value = '';" & vbCRLF)
Response.Write (" if (Form.GMAC_City.type == 'select-one')" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_City.length = 0;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_City.value = '';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" Form.GMAC_State.value = '';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_DisabledOnClick (GMAC_Disabled)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" if (GMAC_Disabled.checked)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.disabled=false;" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.value='';" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.focus ();" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.disabled=true;" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.select ();" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.value='Active Account';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("function GMAC_ContactEMailAddressOnBlur (EMailAddress)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" if (!IsBlank (EMailAddress.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = EMailAddress.value.match (/^\S+\@\S+\.\S+$/);" & vbCRLF)
Response.Write (" if (!event.returnValue)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Does not appear to be an EMail Address');" & vbCRLF)
Response.Write (" EMailAddress.focus ();" & vbCRLF)
Response.Write (" EMailAddress.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function IsInteger (Integer, CheckLength)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" if (!IsBlank (Integer.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" if (Integer.value.match (/^\d+$/))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (CheckLength)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = (Integer.value.length == Integer.maxLength);" & vbCRLF)
Response.Write (" if (!event.returnValue)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Enter ' + Integer.maxLength + ' digits');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Enter digits 0 through 9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (!event.returnValue)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Integer.focus ();" & vbCRLF)
Response.Write (" Integer.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_BusinessAssociateCodeOnBlur (BAC)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" if (!IsBlank (BAC.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
' Response.Write (" if (!BAC.value.match (/^\d{")
' Response.Write (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize"))
' Response.Write ("}$/))" & vbCRLF)
Response.Write (" if (!BAC.value.match (/^\d+$/))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" alert ('Enter ")
Response.Write (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize"))
Response.Write (" digits 0 through 9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_CD_SerialNumberOnBlur (CDSN)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" if (!IsBlank (CDSN.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (CDSN.value.length < 8)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (!CDSN.value.match (/^\w{8,")
Response.Write (ScriptDataDictionary.Item ("GMAC_CD_SerialNumberSize"))
Response.Write ("}$/))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function FormOnSubmit ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" var FirstField;" & vbCRLF)
Response.Write (" var msg = '';" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_DealershipName.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_DealershipName;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Dealer Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_StreetAddress.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_StreetAddress;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Street Address\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_City !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_City.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_City;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - City\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_State.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_State;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - State\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ZipCode;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Valid Zip Code\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ZipCode.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ZipCode;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Zip Code\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactName.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactName;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
' Response.Write (" if (IsBlank (Form.GMAC_ContactEMailAddress.value))" & vbCRLF)
' Response.Write (" {" & vbCRLF)
' Response.Write (" if (FirstField === (void 0))" & vbCRLF)
' Response.Write (" {" & vbCRLF)
' Response.Write (" FirstField = Form.GMAC_ContactEMailAddress;" & vbCRLF)
' Response.Write (" }" & vbCRLF)
' Response.Write (" msg += ' - Contact E-Mail Address\n';" & vbCRLF)
' Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_ContactTelephoneExchange !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactTelephoneExchange.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactTelephoneExchange;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Telephone Exchange\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactTelephoneNumber.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactTelephoneNumber;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Telephone Number\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_ContactFaxExchange !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (!(IsBlank (Form.GMAC_ContactFaxExchange.value) &&" & vbCRLF)
Response.Write (" IsBlank (Form.GMAC_ContactFaxNumber.value)))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactFaxExchange.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactFaxExchange;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Fax Exchange\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactFaxNumber.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactFaxNumber;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Fax Number\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_BusinessAssociateCode.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_BusinessAssociateCode;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Business Associate Code\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ProviderName.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ProviderName" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Provider Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_CancellationName.value) )" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_CancellationName" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Please Enter Cancellation Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_CD_SerialNumber.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_CD_SerialNumber;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - CD Serial Number\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_OperatingSystemID.value <= 0)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_OperatingSystemID;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Operating System\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_Remarks.value.length > (Form.GMAC_Remarks.MAXLENGTH - 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_Remarks;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Remarks are too long\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (FirstField !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" var message;" & vbCRLF)
Response.Write (" message = '-----------------------------------------------------\n';" & vbCRLF)
Response.Write (" message += 'This information was not submitted because\n';" & vbCRLF)
Response.Write (" message += 'the following required field(s) are missing.\n';" & vbCRLF)
Response.Write (" message += 'Please make corrections and try again.\n';" & vbCRLF)
Response.Write (" message += '-----------------------------------------------------\n';" & vbCRLF)
Response.Write (" message += msg;" & vbCRLF)
Response.Write (" alert (message);" & vbCRLF)
Response.Write (" FirstField.focus (); (message);" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_ZipCodeLookUp.value = 2;" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function FormOnSubmitFind ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" Form.GMAC_ZipCodeLookUp.value = 3;" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
End If
Response.Write ("function Back ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" location.href = '")
Response.Write (BackScriptName)
Response.Write ("';" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("var Form;" & vbCRLF)
Response.Write (" </SCRIPT>" & vbCRLF)
Response.Write (" </HEAD>" & vbCRLF)
Response.Write (" <BODY ONLOAD='BodyOnLoad ()'>" & vbCRLF)
If (GMAC_ZipCodeLookUp <> 2) Then
Response.Write (" <DIV ID=OnAfterSubmitAlert CLASS=UNDISPLAYED ALIGN=CENTER>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 CLASS=TABLES ALIGN=CENTER>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 CLASS=TABLES>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD CLASS=HEADER>Please wait while the city and state for the entered Zip Code are being retrieved</TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </DIV>" & vbCRLF)
End If
Response.Write (" <DIV ID=OnBeforeSubmitForm CLASS=DISPLAYED>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 ALIGN=CENTER CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=HEADER>GMAC Software Licensing</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <FORM NAME=GMAC_Registration METHOD=POST ACTION=GMAC_Registration.asp>" & vbCRLF)
Response.Write (" <INPUT TYPE=HIDDEN NAME=GMAC_ZipCodeLookUp VALUE=''>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT COLSPAN=3 ALIGN=CENTER>Dealer Information</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Dealership Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_DealershipName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_DealershipNameSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_DealershipName MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_DealershipNameSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Street Address</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_StreetAddress")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StreetAddressSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_StreetAddress MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StreetAddressSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If ((Len (ScriptDataDictionary.Item ("GMAC_City")) > 0) Or _
(Len (CitySelectOptions) > 0)) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>City</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
If (Len (CitySelectOptions) <= 0) Then
Response.Write (" <TD><INPUT DISABLED TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_City")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CitySize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_City MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CitySize"))
End If
Response.Write ("></TD>" & vbCRLF)
Else
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <SELECT NAME=GMAC_City>" & vbCRLF)
Response.Write (CitySelectOptions)
Response.Write (" </SELECT>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
End If
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>State</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT DISABLED TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_State")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StateSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_State MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StateSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
End If
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Zip Code</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ZipCode")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ZipCodeSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ZipCode MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ZipCodeSize"))
Response.Write (" ONCHANGE='GMAC_ZipCodeOnChange (this)'")
End If
Response.Write (">")
If (GMAC_ZipCodeLookUpStatus = 0) Then
Response.Write (" <SPAN CLASS=RED>Invalid Zip Code</SPAN>")
End If
Response.Write ("</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactNameSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactName MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactNameSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact E-Mail Address</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactEMailAddress")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactEMailAddressSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactEMailAddress MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactEMailAddressSize"))
Response.Write (" ONBLUR='GMAC_ContactEMailAddressOnBlur (this)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If (Len (TelephoneAreaCodeSelectOptions) > 0) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Telephone Number</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>" & vbCRLF)
Response.Write (" <SELECT")
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactTelephoneAreaCode")
End If
Response.Write (">" & vbCRLF)
Response.Write (TelephoneAreaCodeSelectOptions)
Response.Write (" </SELECT>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT NAME=GMAC_ContactTelephoneExchange VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchange")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchangeSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactTelephoneExchange MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchangeSize"))
Response.Write (" ONBLUR='IsInteger (this, true)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>–</TD>" & vbCRLF)
Response.Wr

jliz2803 · Sep 14, 2005

Response.Write (" inputs [LoopIndex].style.width = ScrollWidthMax;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
If (GMAC_ZipCodeLookUpStatus = 0) Then
Response.Write (" Form.GMAC_ZipCode.focus ();" & vbCRLF)
Response.Write (" Form.GMAC_ZipCode.select ();" & vbCRLF)
ElseIf (GMAC_ZipCodeLookUpStatus > 1) Then
Response.Write (" Form.GMAC_City.focus ();" & vbCRLF)
ElseIf (GMAC_ZipCodeLookUpStatus > 0) Then
Response.Write (" Form.GMAC_ContactName.focus ();" & vbCRLF)
End If
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
If (GMAC_ZipCodeLookUp <> 2) Then
Response.Write ("function IsZip (ZipCode)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" return ZipCode.value.match (/^\d{5}$/);" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function IsBlank (s)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" return (s.search (/\S/) == -1);" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_ZipCodeOnChange (GMAC_ZipCode)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" if (IsZip (GMAC_ZipCode))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_ZipCodeLookUp.value = 1;" & vbCRLF)
Response.Write (" var Row0 = document.getElementById ('OnAfterSubmitAlert');" & vbCRLF)
Response.Write (" Row0.className = 'displayed';" & vbCRLF)
Response.Write (" var Row0 = document.getElementById ('OnBeforeSubmitForm');" & vbCRLF)
Response.Write (" Row0.className = 'undisplayed';" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (!IsBlank (GMAC_ZipCode.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Enter a 5 digit Zip Code');" & vbCRLF)
Response.Write (" GMAC_ZipCode.focus ();" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else if (GMAC_ZipCode !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" GMAC_ZipCode.value = '';" & vbCRLF)
Response.Write (" if (Form.GMAC_City.type == 'select-one')" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_City.length = 0;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_City.value = '';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" Form.GMAC_State.value = '';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_DisabledOnClick (GMAC_Disabled)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" if (GMAC_Disabled.checked)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.disabled=false;" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.value='';" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.focus ();" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.disabled=true;" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.select ();" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.value='Active Account';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("function GMAC_ContactEMailAddressOnBlur (EMailAddress)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" if (!IsBlank (EMailAddress.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = EMailAddress.value.match (/^\S+\@\S+\.\S+$/);" & vbCRLF)
Response.Write (" if (!event.returnValue)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Does not appear to be an EMail Address');" & vbCRLF)
Response.Write (" EMailAddress.focus ();" & vbCRLF)
Response.Write (" EMailAddress.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function IsInteger (Integer, CheckLength)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" if (!IsBlank (Integer.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" if (Integer.value.match (/^\d+$/))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (CheckLength)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = (Integer.value.length == Integer.maxLength);" & vbCRLF)
Response.Write (" if (!event.returnValue)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Enter ' + Integer.maxLength + ' digits');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" alert ('Enter digits 0 through 9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (!event.returnValue)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Integer.focus ();" & vbCRLF)
Response.Write (" Integer.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_BusinessAssociateCodeOnBlur (BAC)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" if (!IsBlank (BAC.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
' Response.Write (" if (!BAC.value.match (/^\d{")
' Response.Write (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize"))
' Response.Write ("}$/))" & vbCRLF)
Response.Write (" if (!BAC.value.match (/^\d+$/))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" alert ('Enter ")
Response.Write (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize"))
Response.Write (" digits 0 through 9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function GMAC_CD_SerialNumberOnBlur (CDSN)" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" if (!IsBlank (CDSN.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (CDSN.value.length < 8)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (!CDSN.value.match (/^\w{8,")
Response.Write (ScriptDataDictionary.Item ("GMAC_CD_SerialNumberSize"))
Response.Write ("}$/))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" return event.returnValue;" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function FormOnSubmit ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" event.returnValue = false;" & vbCRLF)
Response.Write (" var FirstField;" & vbCRLF)
Response.Write (" var msg = '';" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_DealershipName.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_DealershipName;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Dealer Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_StreetAddress.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_StreetAddress;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Street Address\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_City !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_City.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_City;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - City\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_State.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_State;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - State\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ZipCode;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Valid Zip Code\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ZipCode.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ZipCode;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Zip Code\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactName.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactName;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
' Response.Write (" if (IsBlank (Form.GMAC_ContactEMailAddress.value))" & vbCRLF)
' Response.Write (" {" & vbCRLF)
' Response.Write (" if (FirstField === (void 0))" & vbCRLF)
' Response.Write (" {" & vbCRLF)
' Response.Write (" FirstField = Form.GMAC_ContactEMailAddress;" & vbCRLF)
' Response.Write (" }" & vbCRLF)
' Response.Write (" msg += ' - Contact E-Mail Address\n';" & vbCRLF)
' Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_ContactTelephoneExchange !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactTelephoneExchange.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactTelephoneExchange;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Telephone Exchange\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactTelephoneNumber.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactTelephoneNumber;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Telephone Number\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_ContactFaxExchange !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (!(IsBlank (Form.GMAC_ContactFaxExchange.value) &&" & vbCRLF)
Response.Write (" IsBlank (Form.GMAC_ContactFaxNumber.value)))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactFaxExchange.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactFaxExchange;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Fax Exchange\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ContactFaxNumber.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ContactFaxNumber;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Contact Fax Number\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_BusinessAssociateCode.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_BusinessAssociateCode;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Business Associate Code\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_ProviderName.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_ProviderName" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Provider Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_CancellationName.value) )" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_CancellationName" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Please Enter Cancellation Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (IsBlank (Form.GMAC_CD_SerialNumber.value))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_CD_SerialNumber;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - CD Serial Number\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_OperatingSystemID.value <= 0)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_OperatingSystemID;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Operating System\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (Form.GMAC_Remarks.value.length > (Form.GMAC_Remarks.MAXLENGTH - 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_Remarks;" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Remarks are too long\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" if (FirstField !== (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" var message;" & vbCRLF)
Response.Write (" message = '-----------------------------------------------------\n';" & vbCRLF)
Response.Write (" message += 'This information was not submitted because\n';" & vbCRLF)
Response.Write (" message += 'the following required field(s) are missing.\n';" & vbCRLF)
Response.Write (" message += 'Please make corrections and try again.\n';" & vbCRLF)
Response.Write (" message += '-----------------------------------------------------\n';" & vbCRLF)
Response.Write (" message += msg;" & vbCRLF)
Response.Write (" alert (message);" & vbCRLF)
Response.Write (" FirstField.focus (); (message);" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_ZipCodeLookUp.value = 2;" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("function FormOnSubmitFind ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" Form.GMAC_ZipCodeLookUp.value = 3;" & vbCRLF)
Response.Write (" event.returnValue = true;" & vbCRLF)
Response.Write (" document.forms.GMAC_Registration.submit ();" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
End If
Response.Write ("function Back ()" & vbCRLF)
Response.Write ("{" & vbCRLF)
Response.Write (" location.href = '")
Response.Write (BackScriptName)
Response.Write ("';" & vbCRLF)
Response.Write ("}" & vbCRLF)
Response.Write (vbCRLF)
Response.Write ("var Form;" & vbCRLF)
Response.Write (" </SCRIPT>" & vbCRLF)
Response.Write (" </HEAD>" & vbCRLF)
Response.Write (" <BODY ONLOAD='BodyOnLoad ()'>" & vbCRLF)
If (GMAC_ZipCodeLookUp <> 2) Then
Response.Write (" <DIV ID=OnAfterSubmitAlert CLASS=UNDISPLAYED ALIGN=CENTER>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 CLASS=TABLES ALIGN=CENTER>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 CLASS=TABLES>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD CLASS=HEADER>Please wait while the city and state for the entered Zip Code are being retrieved</TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </DIV>" & vbCRLF)
End If
Response.Write (" <DIV ID=OnBeforeSubmitForm CLASS=DISPLAYED>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0 ALIGN=CENTER CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=HEADER>GMAC Software Licensing</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <FORM NAME=GMAC_Registration METHOD=POST ACTION=GMAC_Registration.asp>" & vbCRLF)
Response.Write (" <INPUT TYPE=HIDDEN NAME=GMAC_ZipCodeLookUp VALUE=''>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT COLSPAN=3 ALIGN=CENTER>Dealer Information</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Dealership Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_DealershipName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_DealershipNameSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_DealershipName MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_DealershipNameSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Street Address</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_StreetAddress")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StreetAddressSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_StreetAddress MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StreetAddressSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If ((Len (ScriptDataDictionary.Item ("GMAC_City")) > 0) Or _
(Len (CitySelectOptions) > 0)) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>City</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
If (Len (CitySelectOptions) <= 0) Then
Response.Write (" <TD><INPUT DISABLED TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_City")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CitySize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_City MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CitySize"))
End If
Response.Write ("></TD>" & vbCRLF)
Else
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <SELECT NAME=GMAC_City>" & vbCRLF)
Response.Write (CitySelectOptions)
Response.Write (" </SELECT>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
End If
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>State</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT DISABLED TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_State")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StateSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_State MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_StateSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
End If
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Zip Code</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ZipCode")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ZipCodeSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ZipCode MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ZipCodeSize"))
Response.Write (" ONCHANGE='GMAC_ZipCodeOnChange (this)'")
End If
Response.Write (">")
If (GMAC_ZipCodeLookUpStatus = 0) Then
Response.Write (" <SPAN CLASS=RED>Invalid Zip Code</SPAN>")
End If
Response.Write ("</TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactNameSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactName MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactNameSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Contact E-Mail Address</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactEMailAddress")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactEMailAddressSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactEMailAddress MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactEMailAddressSize"))
Response.Write (" ONBLUR='GMAC_ContactEMailAddressOnBlur (this)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If (Len (TelephoneAreaCodeSelectOptions) > 0) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Telephone Number</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>" & vbCRLF)
Response.Write (" <SELECT")
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactTelephoneAreaCode")
End If
Response.Write (">" & vbCRLF)
Response.Write (TelephoneAreaCodeSelectOptions)
Response.Write (" </SELECT>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT NAME=GMAC_ContactTelephoneExchange VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchange")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchangeSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactTelephoneExchange MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExchangeSize"))
Response.Write (" ONBLUR='IsInteger (this, true)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>–</TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactTelephoneNumber")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneNumberSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactTelephoneNumber MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneNumberSize"))
Response.Write (" ONBLUR='IsInteger (this, true)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT> x </TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExtension")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExtensionSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactTelephoneExtension MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactTelephoneExtensionSize"))
Response.Write (" ONBLUR='IsInteger (this, false)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
End If
If (Len (FaxAreaCodeSelectOptions) > 0) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Fax Number</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>" & vbCRLF)
Response.Write (" <SELECT")
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactFaxAreaCode")
End If
Response.Write (">" & vbCRLF)
Response.Write (FaxAreaCodeSelectOptions)
Response.Write (" </SELECT>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT NAME=GMAC_ContactFaxExchange VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactFaxExchange")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactFaxExchangeSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactFaxExchange MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactFaxExchangeSize"))
Response.Write (" ONBLUR='IsInteger (this, true)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>–</TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactFaxNumber")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactFaxNumberSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ContactFaxNumber MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ContactFaxNumberSize"))
Response.Write (" ONBLUR='IsInteger (this, true)'")
End If
Response.Write ("></TD>" & vbCRLF)
' Response.Write (" <TD CLASS=BOLDTEXT> x </TD>" & vbCRLF)
' Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
' Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ContactFaxExtension")))
' Response.Write ("' SIZE=")
' Response.Write (ScriptDataDictionary.Item ("GMAC_ContactFaxExtensionSize"))
' If (GMAC_ZipCodeLookUp = 2) Then
' Response.Write (" DISABLED")
' Else
' Response.Write (" NAME=GMAC_ContactFaxExtension MAXLENGTH=")
' Response.Write (ScriptDataDictionary.Item ("GMAC_ContactFaxExtensionSize"))
' Response.Write (" ONBLUR='IsInteger (this, false)'")
' End If
' Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
End If
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Business Associate Code</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCode")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_BusinessAssociateCode MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_BusinessAssociateCodeSize"))
Response.Write (" ONBLUR='GMAC_BusinessAssociateCodeOnBlur (this)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Provider Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_ProviderName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ProviderNameSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_ProviderName MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_ProviderNameSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>CD Serial Number</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_CD_SerialNumber")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CD_SerialNumberSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_CD_SerialNumber MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CD_SerialNumberSize"))
Response.Write (" ONBLUR='GMAC_CD_SerialNumberOnBlur (this)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Windows Operating System</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <SELECT")
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_OperatingSystemID")
End If
Response.Write (">" & vbCRLF)
Value = CLng (ScriptDataDictionary.Item ("GMAC_OperatingSystemID"))
If (Value <= 0) Then
Response.Write (" <OPTION VALUE=0>Select One</OPTION>" & vbCRLF)
End If
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath (".\clic.mdb")
UserSQL = "SELECT * FROM GMAC_OS WHERE OS_Disabled=0 ORDER BY OS_ID"
Set RecordSet = Server.CreateObject ("ADODB.RecordSet")
RecordSet.Open UserSQL, Connection, adOpenKeySet, adLockReadOnly, adCmdText
Do While (Not RecordSet.EOF)
Response.Write (" <OPTION VALUE=")
Response.Write (RecordSet.Fields.Item ("OS_ID").Value)
If (Value = RecordSet.Fields.Item ("OS_ID").Value) Then
Response.Write (" SELECTED")
End If
Response.Write (">")
Response.Write (RecordSet.Fields.Item ("OS_Description").Value)
Response.Write ("</OPTION>" & vbCRLF)
RecordSet.MoveNext
Loop
RecordSet.Close
Set RecordSet = Nothing
Connection.Close
Response.Write (" </SELECT>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Remarks</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><TEXTAREA COLS=64 ROWS=4 CLASS=TEXT")
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_Remarks MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_RemarksSize"))
End If
Response.Write (">")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_Remarks")))
Response.Write ("</TEXTAREA></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If (ScriptDataDictionary.Exists ("GMAC_ID")) Then
If (ScriptDataDictionary.Exists ("GMAC_RegistrationCode")) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Registration Code</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_RegistrationCode")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_RegistrationCodeSize"))
Response.Write (" DISABLED></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Registered</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_RegistrationDateTime")))
Response.Write ("' SIZE=0")
Response.Write (" DISABLED></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Account Disabled</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=Checkbox ")
If (ScriptDataDictionary.Item ("GMAC_Disabled")) Then
Response.Write (" CHECKED")
End If
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
Response.Write (" NAME=GMAC_Disabled")
Response.Write (" ONCLICK='GMAC_DisabledOnClick (this)'")
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Cancellation Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_CancellationName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationNameSize"))
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationName"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
If (Not ScriptDataDictionary.Item ("GMAC_Disabled")) Then
Response.Write (" DISABLED")
End If
Response.Write (" NAME=GMAC_CancellationName SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationNameSize"))
Response.Write (" MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationNameSize"))
End If
Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If (Not IsNull (ScriptDataDictionary.Item ("GMAC_LastModifiedDateTime"))) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Last Modified</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_LastModifiedDateTime")))
Response.Write ("' SIZE=0")
Response.Write (" DISABLED></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
End If
End If
End If
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </FORM>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD ALIGN=CENTER>" & vbCRLF)
Response.Write (" <TABLE CELLSPACING=0 CELLPADDING=0>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <INPUT TYPE=BUTTON VALUE='Back' ONCLICK='Back ()'>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
If (GMAC_ZipCodeLookUp <> 2) Then
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <INPUT TYPE=BUTTON VALUE='")
If (ScriptDataDictionary.Exists ("GMAC_ID")) Then
Response.Write ("Edit")'
Else
Response.Write ("Add")
End If
Response.Write ("' ONCLICK='FormOnSubmit ()'>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
If (Not ScriptDataDictionary.Exists ("GMAC_ID")) Then
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <INPUT TYPE=BUTTON VALUE='Find' ONCLICK='FormOnSubmitFind ()'>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
End If
End If
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
If (((GMAC_ZipCodeLookUp = 2) And _
(Not ScriptDataDictionary.Exists ("GMAC_ID"))) Or _
(GMAC_RegistrationMessage <> "")) Then
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD>" & vbCRLF)
Response.Write (" <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT ALIGN=CENTER><SPAN CLASS='REGISTRATION RED'>")
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write ("REGISTRATION CODE</SPAN> <SPAN CLASS='REGISTRATION BLUE'>")
Response.Write (ScriptDataDictionary.Item ("GMAC_RegistrationCode"))
Else
Response.Write (GMAC_RegistrationMessage)
End If
Response.Write ("</SPAN></TD>" & vbCRLF)
Response.Write (" <TD WIDTH=7PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD HEIGHT=5PX></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)
End If
Response.Write (" </TABLE>" & vbCRLF)
Response.Write (" </DIV>" & vbCRLF)
'Server.Execute ("Debug.asp")
Response.Write (" </BODY>" & vbCRLF)
Response.Write ("</HTML>" & vbCRLF)
Set ScriptDataDictionary = Nothing
Set Connection = Nothing
Set RegularExpression = Nothing
Response.End

Function HTML_Encode (Text)
Dim LoopIndex
Dim ASCII_Code
Dim Replacement
Replacement = ""
HTML_Encode = Text
For LoopIndex = Len (HTML_Encode) To 1 Step -1
ASCII_Code = Asc (Mid (HTML_Encode, LoopIndex, 1))
Select Case ASCII_Code
Case 32, 160
' Replacement = "&nbsp"
Case 34
Replacement = "&quot"
Case 38
Replacement = "&amp"
Case 39
Replacement = "&#39"
Case 60
Replacement = "&lt"
Case 62
Replacement = "&gt"
Case Else
If (ASCII_Code > 127) Then
Replacement = "&#" & CStr (ASCII_Code)
ElseIf (ASCII_Code < 32) Then
Replacement = "&#" & CStr (ASCII_Code)
End If
End Select
If (Len (Replacement) > 0) Then
HTML_Encode = Left (HTML_Encode, LoopIndex - 1) & Replacement & ";" & Mid (HTML_Encode, LoopIndex + 1)
Replacement = ""
End If
Next
End Function

Function ExitThis (WhereWhy)
Response.Write ("ExitThis (" & WhereWhy & ")<BR>" & vbCRLF)
Response.Flush
Session.Abandon
Response.Clear
Response.End
End Function
%>

trollacious · Sep 14, 2005

If you look at the HTML output (what the server-side scripting produces), is there a form element named GMAC_CancellationName? We don't need to see all your VBScript, just the area produced that shows the form element and the Javascript related to it.

Lee

jliz2803 · Sep 14, 2005

THe first two sections are the javascript and the last section is the VBScript form.

Response.Write (" if (GMAC_Disabled.checked)" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.disabled=false;" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.value='';" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.focus ();" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" else" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.disabled=true;" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.value='Active Account';" & vbCRLF)
Response.Write (" Form.GMAC_CancellationName.select ();" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" }" & vbCRLF)

Response.Write (" if (IsBlank (Form.GMAC_CancellationName.value) )" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" if (FirstField === (void 0))" & vbCRLF)
Response.Write (" {" & vbCRLF)
Response.Write (" FirstField = Form.GMAC_CancellationName" & vbCRLF)
Response.Write (" }" & vbCRLF)
Response.Write (" msg += ' - Please Enter Cancellation Name\n';" & vbCRLF)
Response.Write (" }" & vbCRLF)

Response.Write (" <TR>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD CLASS=BOLDTEXT>Dealership Name</TD>" & vbCRLF)
Response.Write (" <TD></TD>" & vbCRLF)
Response.Write (" <TD><INPUT TYPE=TEXT VALUE='")
Response.Write (HTML_Encode (ScriptDataDictionary.Item ("GMAC_CancellationName")))
Response.Write ("' SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationNameSize"))
If (GMAC_ZipCodeLookUp = 2) Then
Response.Write (" DISABLED")
Else
If (Not ScriptDataDictionary.Item ("GMAC_Disabled")) Then
Response.Write (" DISABLED")
End If
Response.Write (" NAME=GMAC_CancellationName SIZE=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationNameSize"))
Response.Write (" MAXLENGTH=")
Response.Write (ScriptDataDictionary.Item ("GMAC_CancellationNameSize"))
End If

Response.Write ("></TD>" & vbCRLF)
Response.Write (" </TR>" & vbCRLF)

kaht · Sep 14, 2005

jliz2803, you might wanna follow my suggestion in my first post in this thread:

thread216-1121270

-kaht

...looks like you don't have a job, so why don't you get out there and feed Tina.

jliz2803 · Sep 14, 2005

Is this what you are talking about Kaht?

<HTML>
<HEAD>
<META HTTP-EQUIV=EXPIRES CONTENT='FRI, JUN 12 1981 08:20:00 GMT'>
<META HTTP-EQUIV=PRAGMA CONTENT=NO-CACHE>
<META HTTP-EQUIV=CACHE-CONTROL CONTENT=NO-CACHE>
<TITLE>GMAC Software Licensing</TITLE>
<LINK REL=STYLESHEET TYPE=TEXT/CSS HREF=GMAC.CSS>
<SCRIPT TYPE=TEXT/JAVASCRIPT>
function BodyOnLoad ()
{
Form = document.forms.GMAC_Registration.elements;
var inputs = document.all.tags ('INPUT');
var ScrollWidthMax = 0;
for (var LoopIndex = 0; LoopIndex < inputs.length; LoopIndex++)
{
if ((inputs [LoopIndex].type == 'button') ||
(inputs [LoopIndex].type == 'reset') ||
(inputs [LoopIndex].type == 'submit'))
{
if (ScrollWidthMax < inputs [LoopIndex].scrollWidth)
{
ScrollWidthMax = inputs [LoopIndex].scrollWidth;
}
}
}
ScrollWidthMax += 14;
for (var LoopIndex = 0; LoopIndex < inputs.length; LoopIndex++)
{
if ((inputs [LoopIndex].type == 'button') ||
(inputs [LoopIndex].type == 'reset') ||
(inputs [LoopIndex].type == 'submit'))
{
inputs [LoopIndex].style.width = ScrollWidthMax;
}
}
}

function IsZip (ZipCode)
{
return ZipCode.value.match (/^\d{5}$/);
}

function IsBlank (s)
{
return (s.search (/\S/) == -1);
}

function GMAC_ZipCodeOnChange (GMAC_ZipCode)
{
event.returnValue = true;
if (IsZip (GMAC_ZipCode))
{
Form.GMAC_ZipCodeLookUp.value = 1;
var Row0 = document.getElementById ('OnAfterSubmitAlert');
Row0.className = 'displayed';
var Row0 = document.getElementById ('OnBeforeSubmitForm');
Row0.className = 'undisplayed';
document.forms.GMAC_Registration.submit ();
}
else
{
if (!IsBlank (GMAC_ZipCode.value))
{
alert ('Enter a 5 digit Zip Code');
GMAC_ZipCode.focus ();
event.returnValue = false;
}
else if (GMAC_ZipCode !== (void 0))
{
GMAC_ZipCode.value = '';
if (Form.GMAC_City.type == 'select-one')
{
Form.GMAC_City.length = 0;
}
else
{
Form.GMAC_City.value = '';
}
Form.GMAC_State.value = '';
}
}
return event.returnValue;
}

function GMAC_DisabledOnClick (GMAC_Disabled)
{
if (GMAC_Disabled.checked)
{
Form.GMAC_CancellationName.disabled=false;
Form.GMAC_CancellationName.value='';
Form.GMAC_CancellationName.focus ();
Form.GMAC_CancellationName.select ();
}
else
{
Form.GMAC_CancellationName.disabled=true;
Form.GMAC_CancellationName.value='Active Account';
Form.GMAC_CancellationName.select ();
}
}
function GMAC_ContactEMailAddressOnBlur (EMailAddress)
{
if (!IsBlank (EMailAddress.value))
{
event.returnValue = EMailAddress.value.match (/^\S+\@\S+\.\S+$/);
if (!event.returnValue)
{
alert ('Does not appear to be an EMail Address');
EMailAddress.focus ();
EMailAddress.select ();
}
return event.returnValue;
}
}

function IsInteger (Integer, CheckLength)
{
if (!IsBlank (Integer.value))
{
event.returnValue = false;
if (Integer.value.match (/^\d+$/))
{
if (CheckLength)
{
event.returnValue = (Integer.value.length == Integer.maxLength);
if (!event.returnValue)
{
alert ('Enter ' + Integer.maxLength + ' digits');
}
}
else
{
event.returnValue = true;
}
}
else
{
alert ('Enter digits 0 through 9 only');
}
if (!event.returnValue)
{
Integer.focus ();
Integer.select ();
}
return event.returnValue;
}
}

function GMAC_BusinessAssociateCodeOnBlur (BAC)
{
event.returnValue = true;
if (!IsBlank (BAC.value))
{
if (!BAC.value.match (/^\d+$/))
{
event.returnValue = false;
alert ('Enter 6 digits 0 through 9 only');
}
}
return event.returnValue;
}

function GMAC_CD_SerialNumberOnBlur (CDSN)
{
event.returnValue = true;
if (!IsBlank (CDSN.value))
{
if (CDSN.value.length < 8)
{
event.returnValue = false;
alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');
}
else
{
if (!CDSN.value.match (/^\w{8,12}$/))
{
event.returnValue = false;
alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');
}
}
}
return event.returnValue;
}

function FormOnSubmit ()
{
event.returnValue = false;
var FirstField;
var msg = '';
if (IsBlank (Form.GMAC_DealershipName.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_DealershipName;
}
msg += ' - Dealer Name\n';
}
if (IsBlank (Form.GMAC_StreetAddress.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_StreetAddress;
}
msg += ' - Street Address\n';
}
if (Form.GMAC_City !== (void 0))
{
if (IsBlank (Form.GMAC_City.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_City;
}
msg += ' - City\n';
}
if (IsBlank (Form.GMAC_State.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_State;
}
msg += ' - State\n';
}
}
else
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ZipCode;
}
msg += ' - Valid Zip Code\n';
}
if (IsBlank (Form.GMAC_ZipCode.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ZipCode;
}
msg += ' - Zip Code\n';
}
if (IsBlank (Form.GMAC_ContactName.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactName;
}
msg += ' - Contact Name\n';
}
if (Form.GMAC_ContactTelephoneExchange !== (void 0))
{
if (IsBlank (Form.GMAC_ContactTelephoneExchange.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactTelephoneExchange;
}
msg += ' - Contact Telephone Exchange\n';
}
if (IsBlank (Form.GMAC_ContactTelephoneNumber.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactTelephoneNumber;
}
msg += ' - Contact Telephone Number\n';
}
}
if (Form.GMAC_ContactFaxExchange !== (void 0))
{
if (!(IsBlank (Form.GMAC_ContactFaxExchange.value) &&
IsBlank (Form.GMAC_ContactFaxNumber.value)))
{
if (IsBlank (Form.GMAC_ContactFaxExchange.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactFaxExchange;
}
msg += ' - Contact Fax Exchange\n';
}
if (IsBlank (Form.GMAC_ContactFaxNumber.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactFaxNumber;
}
msg += ' - Contact Fax Number\n';
}
}
}
if (IsBlank (Form.GMAC_BusinessAssociateCode.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_BusinessAssociateCode;
}
msg += ' - Business Associate Code\n';
}
if (IsBlank (Form.GMAC_ProviderName.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ProviderName
}
msg += ' - Provider Name\n';
}
if (IsBlank (Form.GMAC_CancellationName.value) )
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_CancellationName
}
msg += ' - Please Enter Cancellation Name\n';
}
if (IsBlank (Form.GMAC_CD_SerialNumber.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_CD_SerialNumber;
}
msg += ' - CD Serial Number\n';
}
if (Form.GMAC_OperatingSystemID.value <= 0)
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_OperatingSystemID;
}
msg += ' - Operating System\n';
}
if (Form.GMAC_Remarks.value.length > (Form.GMAC_Remarks.MAXLENGTH - 0))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_Remarks;
}
msg += ' - Remarks are too long\n';
}
if (FirstField !== (void 0))
{
var message;
message = '-----------------------------------------------------\n';
message += 'This information was not submitted because\n';
message += 'the following required field(s) are missing.\n';
message += 'Please make corrections and try again.\n';
message += '-----------------------------------------------------\n';
message += msg;
alert (message);
FirstField.focus (); (message);
}
else
{
Form.GMAC_ZipCodeLookUp.value = 2;
event.returnValue = true;
document.forms.GMAC_Registration.submit ();
}
}

function FormOnSubmitFind ()
{
Form.GMAC_ZipCodeLookUp.value = 3;
event.returnValue = true;
document.forms.GMAC_Registration.submit ();
}

function Back ()
{
location.href = 'GMAC_Menu.asp';
}

var Form;
</SCRIPT>
</HEAD>
<BODY ONLOAD='BodyOnLoad ()'>
<DIV ID=OnAfterSubmitAlert CLASS=UNDISPLAYED ALIGN=CENTER>
<TABLE CELLSPACING=0 CELLPADDING=0 CLASS=TABLES ALIGN=CENTER>
<TR>
<TD>
<TABLE CELLSPACING=0 CELLPADDING=0 CLASS=TABLES>
<TR>
<TD>
<TABLE CELLSPACING=0 CELLPADDING=0>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
<TR>
<TD WIDTH=7PX></TD>
<TD CLASS=HEADER>Please wait while the city and state for the entered Zip Code are being retrieved</TD>
<TD WIDTH=7PX></TD>
</TR>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</DIV>
<DIV ID=OnBeforeSubmitForm CLASS=DISPLAYED>
<TABLE CELLSPACING=0 CELLPADDING=0 ALIGN=CENTER CLASS=TABLE>
<TR>
<TD>
<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>
<TR>
<TD HEIGHT=5PX WIDTH=7PX></TD>
<TD></TD>
<TD WIDTH=7PX></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=HEADER>GMAC Software Licensing</TD>
</TR>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>
<FORM NAME=GMAC_Registration METHOD=POST ACTION=GMAC_Registration.asp>
<INPUT TYPE=HIDDEN NAME=GMAC_ZipCodeLookUp VALUE=''>
<TR>
<TD HEIGHT=5PX WIDTH=7PX></TD>
<TD></TD>
<TD WIDTH=7PX></TD>
<TD></TD>
<TD WIDTH=7PX></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT COLSPAN=3 ALIGN=CENTER>Dealer Information</TD>
</TR>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Dealership Name</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=64 NAME=GMAC_DealershipName MAXLENGTH=64></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Street Address</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=64 NAME=GMAC_StreetAddress MAXLENGTH=64></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Zip Code</TD>
<TD></TD>
<TD CLASS=BOLDTEXT><INPUT TYPE=TEXT VALUE='' SIZE=5 NAME=GMAC_ZipCode MAXLENGTH=5 ONCHANGE='GMAC_ZipCodeOnChange (this)'></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Contact Name</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=64 NAME=GMAC_ContactName MAXLENGTH=64></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Contact E-Mail Address</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=64 NAME=GMAC_ContactEMailAddress MAXLENGTH=64 ONBLUR='GMAC_ContactEMailAddressOnBlur (this)'></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Business Associate Code</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=6 NAME=GMAC_BusinessAssociateCode MAXLENGTH=6 ONBLUR='GMAC_BusinessAssociateCodeOnBlur (this)'></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Provider Name</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=64 NAME=GMAC_ProviderName MAXLENGTH=64></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>CD Serial Number</TD>
<TD></TD>
<TD><INPUT TYPE=TEXT VALUE='' SIZE=12 NAME=GMAC_CD_SerialNumber MAXLENGTH=12 ONBLUR='GMAC_CD_SerialNumberOnBlur (this)'></TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Windows Operating System</TD>
<TD></TD>
<TD>
<SELECT NAME=GMAC_OperatingSystemID>
<OPTION VALUE=0>Select One</OPTION>
<OPTION VALUE=1>98</OPTION>
<OPTION VALUE=2>2000</OPTION>
<OPTION VALUE=3>XP Professional</OPTION>
</SELECT>
</TD>
</TR>
<TR>
<TD></TD>
<TD CLASS=BOLDTEXT>Remarks</TD>
<TD></TD>
<TD><TEXTAREA COLS=64 ROWS=4 CLASS=TEXT NAME=GMAC_Remarks MAXLENGTH=255></TEXTAREA></TD>
</TR>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
</FORM>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 CLASS=TABLE>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
<TR>
<TD WIDTH=7PX></TD>
<TD ALIGN=CENTER>
<TABLE CELLSPACING=0 CELLPADDING=0>
<TR>
<TD WIDTH=7PX></TD>
<TD>
<INPUT TYPE=BUTTON VALUE='Back' ONCLICK='Back ()'>
</TD>
<TD WIDTH=7PX></TD>
<TD>
<INPUT TYPE=BUTTON VALUE='Add' ONCLICK='FormOnSubmit ()'>
</TD>
<TD WIDTH=7PX></TD>
<TD>
<INPUT TYPE=BUTTON VALUE='Find' ONCLICK='FormOnSubmitFind ()'>
</TD>
<TD WIDTH=7PX></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD HEIGHT=5PX></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</DIV>
</BODY>
</HTML>

BabyJeffy · Sep 14, 2005

I'll be more blunt and "in your face" than kaht on this one...

This is a Javascript forum. You have posted VBScript that is server-side. You were asked to provide the HTML client-side code by the first person who responded. You didn't. You obviously missed the point...

IF YOU WANT HELP - THEN MAKE IT EASY FOR US TO HELP YOU!

I don't read VBScript... I never use it... have never needed to. I do read Javascript and HTML... very well as it turns out.

Because you have neglected to post anything that I can understand you have missed out on the opportunity of having me help you. Instead I am wasting my time, your time, and the opportunity to "give something" to the community with the remote hope that you will actually read and UNDERSTAND the issue here.

As I said... I intended to be a lot more blunt than kaht.

Cheers,
Jeff

[tt]Jeff's Page [/tt][tt]@[/tt][tt] Code Couch

http://www.codecouch.com/jeff/

[/tt]

jliz2803 · Sep 14, 2005

You want the HTML client-side code there is the page source there I was just wondering if that is what youa re looking for, what do you mean be the HTML client-side code?

BabyJeffy · Sep 14, 2005

Indeed, when you right-click on the page you will see a menu item called "View Page Source" (in FF at least). There are many ways to get the source... but it is the source code as delivered to the client and it is referred to as the client-side source code (as opposed to the server-side source code that was what you had posted).

So yes... that is what we're after here. Strip out any HTML that isn't required to analyse this problem. In fact... taking a look through that client-side source code yourself may show the problem!

Cheers,
Jeff

[tt]Jeff's Page [/tt][tt]@[/tt][tt] Code Couch

http://www.codecouch.com/jeff/

[/tt]

jliz2803 · Sep 14, 2005

I apologize for being so ignorant and appreciate your help, I am really having trouble with this problem. Is this more what you are looking for?? Some of the code in the middle is used for validation in the FormOnSubmit function, would you like me to strip this out also?

<HTML>
<HEAD>
<META HTTP-EQUIV=EXPIRES CONTENT='FRI, JUN 12 1981 08:20:00 GMT'>
<META HTTP-EQUIV=PRAGMA CONTENT=NO-CACHE>
<META HTTP-EQUIV=CACHE-CONTROL CONTENT=NO-CACHE>
<TITLE>GMAC Software Licensing</TITLE>
<LINK REL=STYLESHEET TYPE=TEXT/CSS HREF=GMAC.CSS>
<SCRIPT TYPE=TEXT/JAVASCRIPT>
function BodyOnLoad ()
{
Form = document.forms.GMAC_Registration.elements;
var inputs = document.all.tags ('INPUT');
var ScrollWidthMax = 0;
for (var LoopIndex = 0; LoopIndex < inputs.length; LoopIndex++)
{
if ((inputs [LoopIndex].type == 'button') ||
(inputs [LoopIndex].type == 'reset') ||
(inputs [LoopIndex].type == 'submit'))
{
if (ScrollWidthMax < inputs [LoopIndex].scrollWidth)
{
ScrollWidthMax = inputs [LoopIndex].scrollWidth;
}
}
}
ScrollWidthMax += 14;
for (var LoopIndex = 0; LoopIndex < inputs.length; LoopIndex++)
{
if ((inputs [LoopIndex].type == 'button') ||
(inputs [LoopIndex].type == 'reset') ||
(inputs [LoopIndex].type == 'submit'))
{
inputs [LoopIndex].style.width = ScrollWidthMax;
}
}
}

function IsZip (ZipCode)
{
return ZipCode.value.match (/^\d{5}$/);
}

function IsBlank (s)
{
return (s.search (/\S/) == -1);
}

function GMAC_ZipCodeOnChange (GMAC_ZipCode)
{
event.returnValue = true;
if (IsZip (GMAC_ZipCode))
{
Form.GMAC_ZipCodeLookUp.value = 1;
var Row0 = document.getElementById ('OnAfterSubmitAlert');
Row0.className = 'displayed';
var Row0 = document.getElementById ('OnBeforeSubmitForm');
Row0.className = 'undisplayed';
document.forms.GMAC_Registration.submit ();
}
else
{
if (!IsBlank (GMAC_ZipCode.value))
{
alert ('Enter a 5 digit Zip Code');
GMAC_ZipCode.focus ();
event.returnValue = false;
}
else if (GMAC_ZipCode !== (void 0))
{
GMAC_ZipCode.value = '';
if (Form.GMAC_City.type == 'select-one')
{
Form.GMAC_City.length = 0;
}
else
{
Form.GMAC_City.value = '';
}
Form.GMAC_State.value = '';
}
}
return event.returnValue;
}

function GMAC_DisabledOnClick (GMAC_Disabled)
{
if (GMAC_Disabled.checked)
{
Form.GMAC_CancellationName.disabled=false;
Form.GMAC_CancellationName.value='';
Form.GMAC_CancellationName.focus ();
Form.GMAC_CancellationName.select ();
}
else
{
Form.GMAC_CancellationName.disabled=true;
Form.GMAC_CancellationName.value='Active Account';
Form.GMAC_CancellationName.select ();
}
}
function GMAC_ContactEMailAddressOnBlur (EMailAddress)
{
if (!IsBlank (EMailAddress.value))
{
event.returnValue = EMailAddress.value.match (/^\S+\@\S+\.\S+$/);
if (!event.returnValue)
{
alert ('Does not appear to be an EMail Address');
EMailAddress.focus ();
EMailAddress.select ();
}
return event.returnValue;
}
}

function IsInteger (Integer, CheckLength)
{
if (!IsBlank (Integer.value))
{
event.returnValue = false;
if (Integer.value.match (/^\d+$/))
{
if (CheckLength)
{
event.returnValue = (Integer.value.length == Integer.maxLength);
if (!event.returnValue)
{
alert ('Enter ' + Integer.maxLength + ' digits');
}
}
else
{
event.returnValue = true;
}
}
else
{
alert ('Enter digits 0 through 9 only');
}
if (!event.returnValue)
{
Integer.focus ();
Integer.select ();
}
return event.returnValue;
}
}

function GMAC_BusinessAssociateCodeOnBlur (BAC)
{
event.returnValue = true;
if (!IsBlank (BAC.value))
{
if (!BAC.value.match (/^\d+$/))
{
event.returnValue = false;
alert ('Enter 6 digits 0 through 9 only');
}
}
return event.returnValue;
}

function GMAC_CD_SerialNumberOnBlur (CDSN)
{
event.returnValue = true;
if (!IsBlank (CDSN.value))
{
if (CDSN.value.length < 8)
{
event.returnValue = false;
alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');
}
else
{
if (!CDSN.value.match (/^\w{8,12}$/))
{
event.returnValue = false;
alert ('Enter at least 8 characters A-Z, a-z and 0-9 only');
}
}
}
return event.returnValue;
}

function FormOnSubmit ()
{
event.returnValue = false;
var FirstField;
var msg = '';
if (IsBlank (Form.GMAC_DealershipName.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_DealershipName;
}
msg += ' - Dealer Name\n';
}
if (IsBlank (Form.GMAC_StreetAddress.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_StreetAddress;
}
msg += ' - Street Address\n';
}
if (Form.GMAC_City !== (void 0))
{
if (IsBlank (Form.GMAC_City.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_City;
}
msg += ' - City\n';
}
if (IsBlank (Form.GMAC_State.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_State;
}
msg += ' - State\n';
}
}
else
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ZipCode;
}
msg += ' - Valid Zip Code\n';
}
if (IsBlank (Form.GMAC_ZipCode.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ZipCode;
}
msg += ' - Zip Code\n';
}
if (IsBlank (Form.GMAC_ContactName.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactName;
}
msg += ' - Contact Name\n';
}
if (Form.GMAC_ContactTelephoneExchange !== (void 0))
{
if (IsBlank (Form.GMAC_ContactTelephoneExchange.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactTelephoneExchange;
}
msg += ' - Contact Telephone Exchange\n';
}
if (IsBlank (Form.GMAC_ContactTelephoneNumber.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactTelephoneNumber;
}
msg += ' - Contact Telephone Number\n';
}
}
if (Form.GMAC_ContactFaxExchange !== (void 0))
{
if (!(IsBlank (Form.GMAC_ContactFaxExchange.value) &&
IsBlank (Form.GMAC_ContactFaxNumber.value)))
{
if (IsBlank (Form.GMAC_ContactFaxExchange.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactFaxExchange;
}
msg += ' - Contact Fax Exchange\n';
}
if (IsBlank (Form.GMAC_ContactFaxNumber.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ContactFaxNumber;
}
msg += ' - Contact Fax Number\n';
}
}
}
if (IsBlank (Form.GMAC_BusinessAssociateCode.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_BusinessAssociateCode;
}
msg += ' - Business Associate Code\n';
}
if (IsBlank (Form.GMAC_ProviderName.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_ProviderName
}
msg += ' - Provider Name\n';
}
if (IsBlank (Form.GMAC_CancellationName.value) )
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_CancellationName
}
msg += ' - Please Enter Cancellation Name\n';
}
if (IsBlank (Form.GMAC_CD_SerialNumber.value))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_CD_SerialNumber;
}
msg += ' - CD Serial Number\n';
}
if (Form.GMAC_OperatingSystemID.value <= 0)
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_OperatingSystemID;
}
msg += ' - Operating System\n';
}
if (Form.GMAC_Remarks.value.length > (Form.GMAC_Remarks.MAXLENGTH - 0))
{
if (FirstField === (void 0))
{
FirstField = Form.GMAC_Remarks;
}
msg += ' - Remarks are too long\n';
}
if (FirstField !== (void 0))
{
var message;
message = '-----------------------------------------------------\n';
message += 'This information was not submitted because\n';
message += 'the following required field(s) are missing.\n';
message += 'Please make corrections and try again.\n';
message += '-----------------------------------------------------\n';
message += msg;
alert (message);
FirstField.focus (); (message);
}
else
{
Form.GMAC_ZipCodeLookUp.value = 2;
event.returnValue = true;
document.forms.GMAC_Registration.submit ();
}
}

function FormOnSubmitFind ()
{
Form.GMAC_ZipCodeLookUp.value = 3;
event.returnValue = true;
document.forms.GMAC_Registration.submit ();
}

BabyJeffy · Sep 14, 2005

Looking closely at the HTML it appears that you do not have a form field called GMAC_CancellationName (which is basically what trollacious was alluding to near the start of the thread).

The solution will be to add a form field with that name (within the <form> </form> tags)... or identify if mauybe the field has been renamed in the HTML (but not in the javascript functions).

Cheers,
Jeff

[tt]Jeff's Page [/tt][tt]@[/tt][tt] Code Couch

http://www.codecouch.com/jeff/

[/tt]

kaht · Sep 14, 2005

(went to feed the meter and get some breakfast, sorry for the late post)

As Jeff stated, that is exactly what we were looking for. Posting your code directly from the "view page source" allows us to copy/paste that code into a new .html file. In turn we can run your page and see exactly what you're seeing.

After doing a search on your page for GMAC_CancellationName, you make reference to it many times in your javascript code, but never defined an HTML element with that name. Is there supposed to be a textbox or textarea with that name?

-kaht

...looks like you don't have a job, so why don't you get out there and feed Tina.

jliz2803 · Sep 14, 2005

Thank you so much for sticking with me and helping me out I appreciate it more than you know, sorry to frustrate you thanks again.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

null or not an object 1

jliz2803

IS-IT--Management

jliz2803

IS-IT--Management

trollacious

Programmer

jliz2803

IS-IT--Management

kaht

Programmer

jliz2803

IS-IT--Management

BabyJeffy

Programmer

jliz2803

IS-IT--Management

BabyJeffy

Programmer

jliz2803

IS-IT--Management

BabyJeffy

Programmer

kaht

Programmer

jliz2803

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor