Haz copy and paste de ésto:
Cita: Dim sJScript2 As String = "<scr" & "ipt language=""Javascript"">" & _
" window.open('Calendar12.aspx','','width=600,height =500,scrollbars=0')" & _
"</" & "script>"
Response.Write(sJScript2)
Te debe funcionar así como está...