Expand|Select|Wrap|Line Numbers
- Dim popupScript As String = "<script language='javascript'>" & _
- "window.open('calendar.aspx?formname=frmFireworksPe rmitApp.txtdisplaydate', 'calendar', " & _
- "'width = 300, height = 200, menubar = no, resizable=yes, scroll=auto');my_window.focus()" & _
- "</script>"
- Private Sub btncal1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncal1.Click
- Page.RegisterStartupScript("PopUPScript", popupScript)
- End Sub