Private Sub Page_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim sb As New System.Text.StringBuilder
sb.Append("javascript:window.showModalDialog")
sb.Append("('http://authors.aspalliance.com/kenc/',")
sb.Append(" '','');return true;")
Button1.Attributes.Add("onclick", sb.ToString)
End Sub