July 9, 2008 08:54am pdt

1. Smart_Man 2,000
1. smidgie82 2,000
1. jason1178 2,000
4. gdemaria 1,000
4. dodge20 1,000
6. appari 750

1. ericpete 29,154
2. hongjun 13,850
3. ryancys 12,760
4. sherly 6,630
5. jason1178 5,000
6. inthe 3,280
7. fabianm 3,000
8. ravi_raj123 2,750
9. Bit_Twid... 2,500
10. F350 2,190
11. BraveBrain 2,000
11. D3SIGN3R 2,000
11. MediaMacros 2,000
11. smidgie82 2,000
11. Smart_Man 2,000
11. gamebits 2,000
11. Rouchie 2,000

10.01.2003 at 10:18PM PDT, ID: 20754699

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

6.2

Get value from pop-up to main window

Zone: Macromedia UltraDev

Tags: window, get, from, value

I have a form in which there are certain fields which are filled with drop down compbo boxes(lookup fields) no if the value is not there users can dd it, by clicking the link 'ADD' that opens a 'Open browser Window'. Now that opens another page in pop up , and user can add new value, which is added in the table, from which I am driving my compbo box of the first page.
In the pop up window when I press 'Submit' form the new version of the fist page gets displayed. But I want that the page gets closed and the value be available to my already opened page. Its very common in sites when we fill forms, such as selecting 'Job' etc.

Start your free trial to view this solution

Question Stats

Zone: Web Development

Question Asked By: fmufti

Solution Provided By: ryancys

Participating Experts: 1

Solution Grade: A

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
New Net Users
New Users

Software
Digital Music
Gaming World

Home Security
Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Handhelds / PDAs
Displays / Monitors
Components
Networking Hardware

Peripherals
Laptops/Notebooks
Storage
Servers

Desktops
New Users
Misc
Apple

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMWare
Misc
Web Development

OS
CYGWIN
Voice Recognition
Message Queue
Quality Assurance
Security
Firewalls
MultiMedia Applications

Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals

Devices
Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
WebApplications
IDS
Vulnerabilities
Email Clients

File Sharing
Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMWare

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel

Algorithms
Game
Signal Processing
Project Management
Open Source

Database
Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Images

Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration
WebApplications

Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Broadband

Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Community Advisor
Lounge
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles

Community Support

Suggestions
New to EE
New Topics
Community Advisor

CleanUp
Announcements
General

Feedback
Input
EE Bugs

10.02.2003 at 12:05AM PDT, ID: 9472359

ryancys:

In your child form (pop up), after you click the 'Submit' button, it will post to a page that insert the new value into database, after the process is done, we can include the javascript to close the pop up window itself and then refresh its parent window (opener). The javascript will be like:

<Script language="Javascript">
window.opener.location.reload();
window.close();
</script>

regards

10.02.2003 at 09:44PM PDT, ID: 9482388

fmufti:

Now the problem is that the winodow opens and gets closed automatically , dont even give me time to fill in.
Since I am not expert in Java so may be little modificatin from your side is required. I am pasting the code of the page below:-

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_connLibary_STRING
MM_editTable = "dbo.tblAuthor"
MM_editRedirectUrl = "/libraryaddbook.asp"
MM_fieldsStr = "Author|value"
MM_columnsStr = "Author|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<form method="post" action="<%=MM_editAction%>" name="form1">
<Script language="Javascript">
window.opener.location.reload();
window.close();
</script>
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Author:</td>
<td>

</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td>

</td>
</tr>
</table>

</form>
 

</body>
</html>

10.02.2003 at 09:45PM PDT, ID: 9482393

fmufti:

Now the problem is that the winodow opens and gets closed automatically , dont even give me time to fill in.
Since I am not expert in Java so may be little modificatin from your side is required. I am pasting the code of the page below. You may test it by creating a simple page and with a link'Open Browse Window' open the following page:-

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_connLibary_STRING
MM_editTable = "dbo.tblAuthor"
MM_editRedirectUrl = "/libraryaddbook.asp"
MM_fieldsStr = "Author|value"
MM_columnsStr = "Author|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<form method="post" action="<%=MM_editAction%>" name="form1">
<Script language="Javascript">
window.opener.location.reload();
window.close();
</script>
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Author:</td>
<td>

</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td>

</td>
</tr>
</table>

</form>
 

</body>
</html>

10.02.2003 at 09:49PM PDT, ID: 9482402

fmufti:

read the last comment

10.06.2003 at 08:29PM PDT, ID: 9502990

fmufti:

I am still waiting :(

10.06.2003 at 08:31PM PDT, ID: 9502995

fmufti:

I hgave increased the points

10.06.2003 at 08:31PM PDT, ID: 9502996

fmufti:

I have increased the points

10.07.2003 at 04:03AM PDT, ID: 9504666

ryancys:

Sorry, as i was busy developing the applications, i'm now less time can particiapate in EE to help answering questions.

For your problem:

>>Now the problem is that the winodow opens and gets closed automatically , dont even give me time to fill in.

The ASP Script and the Submit form should be separated into 2 forms.

So this should be like this:

in parent form, add this:

<script languange="Javascript">
function NewWindow(mypage, myname, w, h, scroll, resizable) {
            var winl = (screen.width - w) / 2;
            var wint = (screen.height - h) / 2;
            winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable='+resizable
            win = window.open(mypage, myname, winprops)
            if ((!win||(window.win&&win.closed))==false) {
                  if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
            }
      }

function openChild() {
NewWindow("child.asp","child","800","570","Yes","Yes");
}

</script>

and a button to open child window:

In your child.asp:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<form method="post" action="process.asp" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Author:</td>
<td>

</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td>

</td>
</tr>
</table>

</form>
 

</body>
</html>

finally, as in the process page (process.asp), put the ASP script here:

<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

MM_editConnection = MM_connLibary_STRING
MM_editTable = "dbo.tblAuthor"
MM_editRedirectUrl = "/libraryaddbook.asp"
MM_fieldsStr = "Author|value"
MM_columnsStr = "Author|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<form method="post" action="<%=MM_editAction%>" name="form1">
<Script language="Javascript">
window.opener.location.reload();
window.close();
</script>
</form>
 

</body>
</html>

And it should able to reload the parent forms after the form (child.asp) is submitted.

regards

10.07.2003 at 09:23PM PDT, ID: 9511081

fmufti:

Still having problems:-
1. The parent opens the child window. However, when I submit form, the child refreshes and start showing the parent form, while my original parent is already open. THE CHILD SHOULD CLOSE SO THAT THE USER FALLS BACK TO PARENT AFTER REFRESHING.
2. From two pages we have moved to three, since Ihave 3-4 pop up windows opening from my parent, it would be cumbersome. Can u accomodate the code in PARENT and CHILD only.

10.09.2003 at 08:49PM PDT, ID: 9525201

fmufti:

I have broken the ice. I have placed the closewindow java function on the on click event of the button of the form. So the popup window is closing, but still there is one problem.
The parent window needs to be refreshed and after refreshing it should it retain the values of other text/combo boxes. What I mean to say is, if the user has entered Title, date and through popup added the author in the combo. Once the pop up is closed. The form in parent window should retain the values of Title and date so that the user does not have to write them again and the values in the author combo gets updated for the user to select.

10.11.2003 at 10:51PM PDT, ID: 9534948

ryancys:

>>The parent window needs to be refreshed and after refreshing it should it retain the values of other text/combo boxes
One of the method will be save what user entered into session when you try to open the child window.

like:

parent window > click open button to show child window.

before you open the child window, actually it post the parent page to a parse page so that the values are saved into session, after that you open the child window via Javascript.

Example like:

parent.asp

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<form name="form1" method="post" action="parsePara.asp">

value1
">
</p>

value2
">
</p>

value3
">
</p>

</p>
</form>
</body>
</html>

parsePara.asp:

<%

      value1 = Request("value1")
      value2 = Request("value2")
      value3 = Request("value3")

      Session("value1") = value1
      Session("value2") = value2
      Session("value3") = value3

%>

<script languange="Javascript">
function NewWindow(mypage, myname, w, h, scroll, resizable) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable='+resizable
win = window.open(mypage, myname, winprops)
if ((!win||(window.win&&win.closed))==false) {
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
}

function openChild() {
NewWindow("child.asp","child","800","570","Yes","Yes");
}

openChild();
window.location = "parent.asp";

</script>

and where in child.asp, it refresh the parent form.

Accepted Solution

05.15.2004 at 04:56AM PDT, ID: 11075068

Venabili:

No comment has been added to this question in more than 21 days, so it is now classified as abandoned.

I will leave the following recommendation for this question in the Cleanup topic area:
Accept: ryancys {http:#9534948}

Any objections should be posted here in the next 4 days. After that time, the question will be closed.

Venabili
EE Cleanup Volunteer

05.20.2004 at 01:16PM PDT, ID: 11121303

GhostMod:

Forced accept

GhostMod
Community Support Moderator

20080236-EE-VQP-29