What button do I need to open a new form

[Krechting]

Hi All,

I need a button on my form that opens a new window.
I put in a submit button but it always returns to my first page.
And then my first page is empty.
What button do I need to go to another page (weapon_related)?

This is what I use at the moment:

'NewRecord1 Operation Method @3-0C905987
Sub Operation()
If NOT ( Visible AND FormSubmitted ) Then Exit Sub

If FormSubmitted Then
PressedButton = "Button1"
If Not IsEmpty(CCGetParam("Button1", Empty)) Then
PressedButton = "Button1"
End If
End If
session("txtWID")=request("txtWID")
Redirect = "Weapon_related.asp?" & CCGetQueryString("QueryString",
Array("ccsForm", "Button1"))
If Validate() Then
If PressedButton = "Button1" Then
If NOT Button1.OnClick() Then
Redirect = "Weapon_related.asp?" &
CCGetQueryString("QueryString", Array("ccsForm", "Button1"))
End If
End If
Else
session("txtWID")=request("txtWID")
Redirect = "Weapon_related.asp?" &
CCGetQueryString("QueryString", Array("ccsForm", "Button1"))
End If
End Sub

'End NewRecord1 Operation Method

Tnx in advance
Marco

[Jeff Cochran]

On 2 Jan 2004 17:21:58 -0800, [email]m.krechting@chello.nl[/email] (Krechting) wrote:

>I need a button on my form that opens a new window.
>I put in a submit button but it always returns to my first page.
>And then my first page is empty.
>What button do I need to go to another page (weapon_related)?

This would be best in client-side code, using the OnClick event for
your button. try a Javascript group for details.

Jeff

>This is what I use at the moment:
>
>'NewRecord1 Operation Method @3-0C905987
> Sub Operation()
> If NOT ( Visible AND FormSubmitted ) Then Exit Sub
>
> If FormSubmitted Then
> PressedButton = "Button1"
> If Not IsEmpty(CCGetParam("Button1", Empty)) Then
> PressedButton = "Button1"
> End If
> End If
> session("txtWID")=request("txtWID")
> Redirect = "Weapon_related.asp?" & CCGetQueryString("QueryString",
>Array("ccsForm", "Button1"))
> If Validate() Then
> If PressedButton = "Button1" Then
> If NOT Button1.OnClick() Then
> Redirect = "Weapon_related.asp?" &
>CCGetQueryString("QueryString", Array("ccsForm", "Button1"))
> End If
> End If
> Else
> session("txtWID")=request("txtWID")
> Redirect = "Weapon_related.asp?" &
>CCGetQueryString("QueryString", Array("ccsForm", "Button1"))
> End If
> End Sub
>
>'End NewRecord1 Operation Method
>
>Tnx in advance
>Marco