Pq. no ejecuta una parte del código?

[chascos69]

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sb As String
sb = "<script language=Javascript>" & vbCrLf
sb &= "var ans;" & vbCrLf
sb &= "ans=window.confirm('aceptas licencia.....?');" & vbCrLf
sb &= "if (ans==true)" & vbCrLf
sb &= "{document.Form1.hdnbox.value='Yes';}" & vbCrLf
sb &= "Else" & vbCrLf
sb &= "{document.Form1.hdnbox.value='No';}" & vbCrLf
sb &= "</script>"
If (Not Page.IsStartupScriptRegistered("clientScript")) Then
Page.RegisterStartupScript("clientScript", sb)
End If
End Sub

Esto hace que al pulsar el button3 me muestre un msgbox y me pregunte si acepto o no.. el problema es que cuando escogo Aceptar me ejecuta document.Form1.hdnbox.value='Yes' pero cuando pulso cancelar no me ejecuta document.Form1.hdnbox.value='No'... pq.? como lo corrijo?
Gracias