Quick Look-Up form and Return Value 1

ISPrincess · Sep 30, 2002

I have a form requesting User Input - say last name.

so
Input type=text name=lastname

Next to that I would like a link / button / whatever so that they can do a quick last name look up.

Say the user knows that whomever they are trying to look-up's first name is "John" - but they do not know his last name.

This "Quick Look Up " link - or button or whatever - when clicked should open up a way for them to enter the First Name "John" on another form - or somewhere. When this is entered, this will then look up the first piece of data in a SQL Table where FirstName = "John" - it will then return the corresponding lastname value from the table onto the original from in the Last Name Input Box.

This should be very easy - but since I began working with another type of pop up screen which was all client-side - I have gotten myself alittle lost.

If anyone has any quick ideas, I would really appreciate it.

Thank you!

ehsant · Sep 30, 2002

Hi ...
OK ...
you have to put a button or link in the first form to call a javascript that opens a new window in one of two method (window.open or window.dialogshowmodal)
then in that window you shuld have a code to get the first name and then search the DB and gives the lastname and then have another javascript in the new window to close itself and write the found lastname in the parent window.
now in you use the window.open, you have access to the parent window like this :
window.opener.all.item('myinput').value = something ;
and then use :
self.close() ; Or window.close() ;
but if you use window.dialogshowmodal, you have to use the parameter or the return value of the dialog.
because the window.open method is much more easyer, it's better for you to use this method.
----
TNX.
E.T.

ISPrincess · Oct 1, 2002

Thanks - that is exactly what I am doing - but I am having a problem because I need to put the data access in client side script - I want to get it into server side and then still return the value to the parent form as you stated.

I have a post under the forum called "Unwanted client side data access" that I have not gotten any response on - but here is my page that would get the data. (not first name last name as in my example tho)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

The following code is a page that needs to get a recordset on its ononload event - therefore it is client side data access via SQL.

I need help with this script (to be applied to others where I must load up my user's Excel - also client side script). Either I have the Monday morning brainlessness problem and I need help getting the results of the data query to server side or I need to disable the annoying question that our users' must answer 'yes' to in order to see the results - following:

This page is trying to access a data source on another domain. Do you wish to allow this?

Here is my code:

<%Response.Buffer = true%>

<%
Dim sLocation, sServer
sLocation = session("Location&quot

sServer = session("Server&quot

%>

<HTML>
<BODY bottomMargin=1 leftMargin=1 topMargin=1 rightMargin=1 bgColor=steelblue>
<SCRIPT LANGUAGE=VBSCRIPT>
Sub window_onunload
Dim rstReport
Dim sLocConnection
Dim sUID, sPWD, Params
Dim cnn

if document.All.location.value <> "" Then
sServer = document.All.srv.value
sLocation = document.All.loc.value

sUID = "UID"
sPWD = "PWD"
Params = document.All.Location.value

sLocConnection = "Provider=SQEDB.1;server=" & sServer & ";database=" & sLocation & ";uid=" & sUID & ";pwd=" & sPWD
Set cnn = createObject("Adodb.connection&quot

cnn.CursorLocation = 3 'adUseClient
cnn.CommandTimeout = 60
cnn.Open sLocConnection

Set rstReport = createobject("adodb.recordset&quot

set rstReport = cnn.Execute("exec rpt_GetLineName2 " & params)
if not rstReport.EOF then document.All.LineName.value = rstReport.Fields("LineName&quot

window.returnvalue = document.All.LineName.value
end if

end sub
</SCRIPT>
<Center>
<BR><BR><BR>
Location Prefix: <INPUT style="WIDTH: 48px; HEIGHT: 22px" size=6 id=Location>
</Center>
<INPUT Type=Hidden style="WIDTH: 48px; HEIGHT: 22px" size=6 id=LineName>
<INPUT type=Hidden id=Loc name=Loc value=<%=sLocation%>>
<INPUT type=Hidden id=Srv name=Srv value=<%=sServer%>>

<BR>

<center><INPUT type=button value="OK" onClick=window.close id=button1 name=button1></center>
</BODY>
</HTML>

ehsant · Oct 1, 2002

Hi ...
but you are not allowed to access to server side objects and ... from client side scripts ...
so the only way that you don't get this message is to use another window and run your code in it and return the result from that window to the current form.
----
TNX.
E.T.

ISPrincess · Oct 2, 2002

This IS the 'other window'.

This is being called from another form and this form returns the value "linename' back to it.

ehsant · Oct 2, 2002

Hi ...
OK ...
try this one :

<%Response.Buffer = true%>

<%
Dim sLocation, sServer
sLocation = session("Location&quot

sServer = session("Server&quot

%>

<script language="javascript">
function selfclose() {
window.returnvalue = document.All.LineName.value ;
self.close() ;
}
</script>

<HTML>
<BODY bottomMargin=1 leftMargin=1 topMargin=1 rightMargin=1 bgColor=steelblue>
<%
Dim rstReport
Dim sLocConnection
Dim sUID, sPWD, Params
Dim cnn

if document.All.location.value <> "" Then
sServer = document.All.srv.value
sLocation = document.All.loc.value

sUID = "UID"
sPWD = "PWD"
Params = document.All.Location.value

sLocConnection = "Provider=SQEDB.1;server=" & sServer & ";database=" & sLocation & ";uid=" & sUID & ";pwd=" & sPWD
Set cnn = createObject("Adodb.connection&quot

cnn.CursorLocation = 3 'adUseClient
cnn.CommandTimeout = 60
cnn.Open sLocConnection

Set rstReport = createobject("adodb.recordset&quot

set rstReport = cnn.Execute("exec rpt_GetLineName2 " & params)
if not rstReport.EOF then
Response.Write "<INPUT Type='Hidden' id='LineName' value='" & rstReport.Fields("LineName&quot

& "'>" & vbCrLf
End If
end if
%>
<Center>
<BR><BR><BR>
Location Prefix: <INPUT style="WIDTH: 48px; HEIGHT: 22px" size=6 id=Location>
</Center>
<INPUT type=Hidden id=Loc name=Loc value=<%=sLocation%>>
<INPUT type=Hidden id=Srv name=Srv value=<%=sServer%>>

<BR>

<center><INPUT type=button value="OK" onClick="javascript:selfclose();" id=button1 name=button1></center>
</BODY>
</HTML>
----
TNX.
E.T.

ehsant · Oct 2, 2002

Hi ...
Sorry ... that code was wrong ... try this one :

<%Response.Buffer = true%>

<%
Dim sLocation, sServer
sLocation = session("Location&quot

sServer = session("Server&quot

%>

<script language="javascript">
function selfclose() {
window.returnvalue = document.All.LineName.value ;
self.close() ;
}
</script>

<HTML>
<BODY bottomMargin=1 leftMargin=1 topMargin=1 rightMargin=1 bgColor=steelblue>
<%
Dim rstReport
Dim sLocConnection
Dim sUID, sPWD, Params
Dim cnn

sUID = "UID"
sPWD = "PWD"
Params = document.All.Location.value

sLocConnection = "Provider=SQEDB.1;server=" & sServer & ";database=" & sLocation & ";uid=" & sUID & ";pwd=" & sPWD
Set cnn = createObject("Adodb.connection&quot

cnn.CursorLocation = 3 'adUseClient
cnn.CommandTimeout = 60
cnn.Open sLocConnection

Set rstReport = createobject("adodb.recordset&quot

set rstReport = cnn.Execute("exec rpt_GetLineName2 " & params)
if not rstReport.EOF then
Response.Write "<INPUT Type='Hidden' id='LineName' value='" & rstReport.Fields("LineName&quot

& "'>" & vbCrLf
End If
%>
<Center>
<BR><BR><BR>
Location Prefix: <INPUT style="WIDTH: 48px; HEIGHT: 22px" size=6 id=Location>
</Center>
<BR>

<center><INPUT type=button value="OK" onClick="javascript:selfclose();" id=button1 name=button1></center>
</BODY>
</HTML>
----
TNX.
E.T.

ISPrincess · Oct 3, 2002

ehsant -

I havent had time to try the code you sent but I want to thank you for all your time and patience on this. I can't tell you how valuable it is and how much I appreciate it.

Since it looks like one of my 'big' problems is that I don't know a stitch of Java. Can you recommend any books or tutorials?

Thank you again!!
B-)

ehsant · Oct 3, 2002

Hi ...
to tell you the truth, I have not learned Javascript from any books. I just used MSDN and some internet sites such as

http://www.pscode.com

http://www.dynamicdrive.com

http://www.javascriptkit.com

that's it.
----
TNX.
E.T.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Quick Look-Up form and Return Value 1

ISPrincess

Programmer

ehsant

Programmer

ISPrincess

Programmer

ehsant

Programmer

ISPrincess

Programmer

ehsant

Programmer

ehsant

Programmer

ISPrincess

Programmer

ehsant

Programmer

Similar threads

Part and Inventory Search

Sponsor