if y mod 2 = 0 Then

If IsEven(y) Then
   ...
End if

Function IsEven(ByVal numberToCheck)
  If numberToCheck Mod 2 = 0 Then
    IsEven = True
  Else
    IsEven = False
  End if
End Function

While not objRS.EOF
    y=y+1
    If IsEven(y) Then
        response.Write "Even and type=" + objRS("TYPEID") + "<br>"
        If objRS("TYPEID")=5 then
        else
        End If
    Else
        response.Write "Odd and type=" + objRS("TYPEID") + "<br>"
        If objRS("TYPEID")=4 then

        elseif objRS("TYPEID")=3 then
           response.Write "Success!<br>"
        elseIf objRS("TYPEID")=2 then

        else

        End If
    End If
    objRS.movenext
Wend