Object Expected Error

As you can probably tell I am new to ASP.NET so please bear with me. I am getting an "Object Expected" error on the INPUT type = "text" on line 179 and 183 and I can't fingure out why. Can someone point me in the right direction.

Thanks,

SLTDon

<%@ Page Language="VB" EnableSessionState="True" debug="true"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

Dim lUpdateMode As Boolean

Dim LastModified As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

lastmodified = System.IO.File.GetLastWriteTime(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")))

lUpdateMode = False

If Page.IsPostBack Then

'Select Case Request.QueryString("B1")

'Case "Add"

'Case "Update"

'Case "Delete"

'Case "Cancel"

'End Select

End If

End Sub

</script>

<head >

<title>User Type Maintenance</title>

function Validate()

dim lAnyError

lAnyError = false

end function

sub SetFocus(s)

set obj = window.event.srcElement

obj.className = s

set obj = Nothing

end sub

function SetShow()

set e = window.event.srcElement

if e.className = "error" then

if not isNull(e.GetAttribute("ERRORNUM")) then

e.errornum = ""

end if

if e.className = "error" then

e.className = "ondata"

end if

if e.className = "indata" then

e.className = "ondata"

end if

if ucase(e.type) = "TEXT" then

if not isnull(e.GetAttribute("MASK")) then

StripMask e

end if

if ucase(e.type) = "TEXT" then

e.select()

end if

end function

function DontShow()

set e = window.event.srcElement

if e.className = "ondata" then

e.className = "indata"

end if

if ucase(e.type) = "TEXT" then

if not isnull(e.getAttribute("MASK")) then

StripMask e

ShowMask e

end if

end function

'--------------------------------------------------------------------

' Routine to strip Mask from input data.

'--------------------------------------------------------------------

sub StripMask(obj)

dim wrk

dim aTbl

wrk = obj.value

if trim(wrk) = "" then

exit sub

end if

select case Ucase(obj.mask)

case "SSN"

wrk = replace(wrk,"-","")

obj.value = wrk

case "PHONE"

wrk = replace(wrk,"(","")

wrk = replace(wrk,")","")

wrk = replace(wrk,"-","")

wrk = replace(wrk," ","")

obj.value = wrk

case "ZIP"

wrk = replace(wrk,"-","")

obj.value = wrk

case "DATE"

if len(trim(wrk)) = 0 then

exit sub

end if

wrk = replace(wrk,"-","/")

atbl = split(wrk,"/")

if ubound(aTbl) > 0 then

if len(aTbl(0)) = 1 then

aTbl(0) = "0" & aTbl(0)

end if

if len(aTbl(1)) = 1 then

aTbl(1) = "0" & aTbl(1)

end if

wrk = aTbl(0) & "/" & aTbl(1) & "/" & aTbl(2)

end if

wrk = replace(wrk,"/","")

obj.value = wrk

end select

end sub

'--------------------------------------------------------------------

' Routine to insert Mask into input data.

'--------------------------------------------------------------------

sub ShowMask(obj)

dim wrk

dim mo

dim dy

dim yr

wrk = obj.value

if trim(wrk) = "" then

exit sub

end if

select case ucase(obj.mask)

case "SSN"

wrk = left(wrk,3) & "-" & mid(wrk,4,2) & "-" & mid(wrk,6,4)

obj.value = wrk

case "PHONE"

if trim(len(wrk)) = 7 then

wrk = "530" & wrk

end if

wrk = "(" & left(wrk,3) & ") " & mid(wrk,4,3) & "-" & mid(wrk,7,4)

obj.value = wrk

case "ZIP"

if len(wrk) = 5 then

exit sub

end if

wrk = left(wrk,5) & "-" & mid(wrk,6,4)

obj.value = wrk

case "DATE"

if len(wrk) < 6 then

obj.className = "error"

obj.title = "Improperly formatted date. Please correct."

exit sub

end if

if len(wrk) > 6 then

yr = right(wrk,4)

wrk = left(wrk,len(wrk) - 4)

else

yr = right(wrk,2)

wrk = left(wrk,len(wrk) - 2)

end if

mo = left(wrk,2)

dy = right(wrk,2)

wrk = mo & "/" & dy & "/" & yr

obj.value = wrk

end select

end sub

sub ShowHelp(Pg)

set helpChild1 = window.open(Pg,"MyWindow1","toolbar=no,scrollbars=yes,top=10,left=10,resizable=yes")

end sub

</script>

</head>

<div>

<tr>

</tr>

<tr>

<td class="leftSide">Description:</td>

</tr>

<tr>

<%If lUpdateMode Then%>

<%end if %>

<%If Not lUpdateMode Then%>

<%end if %>

</td>

</tr>

</table>

</div>

</form>

<p align="center"><button onclick="parent(0).location='userTypeTop.aspx'">Refresh User Type Grid</button>

<button onclick="parent.location='StatusPage.aspx'">Status Page</button></p>

Page Last Modified: <%=LastModified%><br />

Version: 1.00</p>

</body>

</html>

What does this mean?

What does this mean?

Thread Closed