rgbjag
09-12-2005, 05:25 PM
I have a main form that is calls (from a button event) the below code to read a database and retreive 4 or 5 fields. I want to return those fields from withing the ASP script back to the form
<HTML>
<head>
<META http-equiv="Content-Style-Type" content="text/css">
<script language="JavaScript">
function putLabel(desc){
if (opener && !opener.closed){
opener.document.createpob.desc.value=desc;
window.close();
}
}
</script>
</head>
<BODY BGCOLOR=#FFFFFF TEXT=#330099 LINK=#CC0000 LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" basefont size="1" color="green">
<FORM id="Display" name="Display" method="post" action="itemdisplay2.asp">
<%
sub Displayitem ()
If request.form("Item") <> "" then
set fs=Server.CreateObject("Scripting.FileSystemObject")
cfile= "\\128.1.1.232\plus\inv/inv/" & request.form("ITEM")
set wfile=fs.openTextFile(cfile,1,FALSE)
counter=0
do while not wfile.AtEndOfStream
counter=counter+1
singleline=wfile.readline
If counter = 3 then
itemdesc=singleline
response.write ("Item Desc = " & itemdesc & "<br>")
end If
If counter = 28 then
oldcost=singleline
response.write ("Old Cost = " & oldcost & "<br>")
end If
If counter = 30 then
lastord=singleline
response.write ("Last Order = " & lastord & "<br>")
end If
If counter = 34 then
taxcode=singleline
response.write ("Tax Code = " & taxcode & "<br>")
end If
If counter = 36 then
gledger=singleline
response.write ("G.Ledger = " & gledger & "<br>")
end If
loop
wfile.close
set fs=nothing
set wfile=nothing
end if
End Sub
%>
<Input type="text" name="Item" value="" id="item">
<Input type="submit" value="display info">
<!INPUT TYPE='BUTTON' VALUE='Use Values' onClick="javascript:putLabel(<%=itemdesc%>)">
<INPUT TYPE='BUTTON' VALUE='Close Window' onClick="window.close()">
</FORM>
<%Displayitem%>
</BODY>
</HTML>
I can't get the asp field value (I'm trying just DESC first) - into the script to return - help anyone?
<HTML>
<head>
<META http-equiv="Content-Style-Type" content="text/css">
<script language="JavaScript">
function putLabel(desc){
if (opener && !opener.closed){
opener.document.createpob.desc.value=desc;
window.close();
}
}
</script>
</head>
<BODY BGCOLOR=#FFFFFF TEXT=#330099 LINK=#CC0000 LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" basefont size="1" color="green">
<FORM id="Display" name="Display" method="post" action="itemdisplay2.asp">
<%
sub Displayitem ()
If request.form("Item") <> "" then
set fs=Server.CreateObject("Scripting.FileSystemObject")
cfile= "\\128.1.1.232\plus\inv/inv/" & request.form("ITEM")
set wfile=fs.openTextFile(cfile,1,FALSE)
counter=0
do while not wfile.AtEndOfStream
counter=counter+1
singleline=wfile.readline
If counter = 3 then
itemdesc=singleline
response.write ("Item Desc = " & itemdesc & "<br>")
end If
If counter = 28 then
oldcost=singleline
response.write ("Old Cost = " & oldcost & "<br>")
end If
If counter = 30 then
lastord=singleline
response.write ("Last Order = " & lastord & "<br>")
end If
If counter = 34 then
taxcode=singleline
response.write ("Tax Code = " & taxcode & "<br>")
end If
If counter = 36 then
gledger=singleline
response.write ("G.Ledger = " & gledger & "<br>")
end If
loop
wfile.close
set fs=nothing
set wfile=nothing
end if
End Sub
%>
<Input type="text" name="Item" value="" id="item">
<Input type="submit" value="display info">
<!INPUT TYPE='BUTTON' VALUE='Use Values' onClick="javascript:putLabel(<%=itemdesc%>)">
<INPUT TYPE='BUTTON' VALUE='Close Window' onClick="window.close()">
</FORM>
<%Displayitem%>
</BODY>
</HTML>
I can't get the asp field value (I'm trying just DESC first) - into the script to return - help anyone?