Popup From a PopUp

[mts176]

Can you open a new window from a PopUp window. I am using the window.open() function inside of a sub and it keeps giving me an invalid argument.

I have passed the page and paremeter i want to the sub and i use a msgbox to display what I have passed, but it still gives me the Invalid Argument error message. Any help would be much appreciated.

 

[mts176]

Here is the code if anybody wants it. Please I could really use the help.

<SCRIPT Language=vbscript>
sub Testwindow(iRow)
dim url
'url = document.TravRef.Item(&quot;refLoc&quot; & iRow).Value
url = document.TravRef.refLoc1.Value
call window.open(&quot;Default.asp&quot;, &quot;Reference Document&quot;, &quot;toolbar=no,menubar=no,staus=no,scrollbars=yes,width=600, height=600&quot

end sub
Sub WinClose ()
window.opener.location.reload()
window.close()
End Sub

</script>
<FORM NAME=&quot;TravRef&quot; ACTION=&quot;TravTempRefSave.asp&quot; METHOD=&quot;POST&quot;>

<%
Dim sql, i
i = 1
sql = &quot;SELECT TTR.Trav_ID, TTR.Reference_Loc, TTR.Reference_Name, TTT.Display_Text_Short &quot;
sql = sql & &quot;FROM tblTravelerTemplateRef TTR FULL OUTER JOIN tblTravelerTemplate TTT ON TTR.Trav_ID = TTT.Trav_ID &quot;
sql = sql & &quot;WHERE TTT.Trav_ID = &quot; & Request.QueryString(&quot;TID&quot
'IF Session(&quot;Debug&quot Then
Response.Write &quot;<!-- SQL: &quot; & sql & &quot; -->&quot; & Chr(13) & Chr(10)
'End IF
'Response.End
Set rs = conn.Execute(sql)
if not rs.eof then
tTITLE = rs(&quot;Display_Text_Short&quot
End if
%>
<TABLE width=100% border=0>
<TR><TD colspan=4 align=center><H2><%=tTITLE%></H2></TD></TR>
<TR>
<TD><FONT size=+1>Num</FONT></TD>
<TD><FONT size=+1>Reference Name</FONT></TD>
<TD><FONT size=+1>Reference Location</FONT></TD>
<TD><FONT size=+1>Test Link</FONT></TD>
</TR>
<%
Do While not rs.eof %>
<TR>
<TD align=center><B><%= i %></B></TD>
<TD><INPUT TYPE=TEXT NAME=refName<%= i %> VALUE=&quot;<%= rs(&quot;Reference_Name&quot%>&quot;></TD>
<TD><INPUT TYPE=TEXT NAME=refLoc<%= i %> VALUE=&quot;<%= rs(&quot;Reference_Loc&quot%>&quot;> </TD>
<TD><INPUT Type=&quot;button&quot; value=&quot;Test Link&quot; Name=btnLink onclick=&quot;Testwindow(<%= i %>)&quot;></TD>
</TR>
<%
i = i + 1
rs.movenext
Loop
set rs = nothing
if i < 10 then
Do while i <= 10
%>
<TR>
<TD align=center><B><%= i %></B></TD>
<TD><INPUT TYPE=TEXT NAME=refName<%= i %> VALUE=&quot;&quot;></TD>
<TD><INPUT TYPE=TEXT NAME=refLoc<%= i %> VALUE=&quot;&quot;></TD>
<TD><INPUT Type=&quot;button&quot; value=&quot;Test Link&quot; Name=btnLink onclick=&quot;Testwindow(<%= i %>)&quot;></TD>
</TR>
<%
i = i + 1
loop
End If
%>
<TR><TD colspan=3 align=center><INPUT TYPE=SUBMIT Value=&quot;SUBMIT&quot; name=SUBMIT1>&nbsp;&nbsp;
<input type=&quot;button&quot; onClick=&quot;WinClose()&quot; value=&quot;Close&quot;></TD><TD></TD></TR>

</TABLE>
<INPUT type=hidden name=TID value=&quot;<%=Request.QueryString(&quot;TID&quot%>&quot;>
</BODY>
</HTML>