Sub cmdview_onClick()

      
      
Dim strSerial

strSerial = InputBox("Insert Pasword", "Password Page", "", 2450, 1250)

If (strSerial <> "como153689745asdffrty125545624") Then
	msgbox "incorrect"
	location.href = "http://www.co-motions.co.za/quotesystem.htm"
	 
End If


If (strSerial = "como153689745asdffrty125545624") Then
	msgbox "Correct"
	location.href = "http://www.co-motions.co.za/images/QuoteVid.htm"

End If

End sub