I have created (and condensed) these two pages, but obviously I'm doing something wrong. The SamplePage2.asp does not close and pass back the data to the SamplePage1. This is my first time using <iframe> tags.
Here's the code for SamplePage1:
<% @ Language ="VBScript" %>
<% Option Explicit %>
<%
Response.Expires = 0
Response.Buffer=True
'Filename: SamplePage1.asp
%>
<html>
<body>
<iframe name=hiddenIframe" src="SamplePage2.asp"
width = "0" height = "0">
</iframe>
<table width="640" align="center" cellpadding="1" border="1">
<form name='ClaimsView' action=SamplePage2.asp
target="hiddenIframe">
<tr>
<td align="right">
Visits Approved:
</td>
<td align="center" width="100">
10
<input type="hidden" name="Visits" value="10" >
</td>
<td align="right">
Remaining:
</td>
<td align="center" class="tdbold">
<input type="text" name="Remaining" value="3" size="5" >
</td>
<td align="right" class="emphasize">
+/- Visits:
</td>
<td>
<input type="text" name="AdjustVisits" size="5" value="" >
<input type="submit" name="Submit" value="+" >
<input type="submit" name="Submit" value="-" >
</td>
</tr>
</form>
</table>
</body>
</html>
And the code for SamplePage2:
<% @ Language ="VBScript" %>
<% Option Explicit %>
<%
'Filename: SamplePage2
Dim iReferralNum
Dim iVisits
Dim iAdjustVisits
Dim iAdjustment
Dim iVisitsRemaining
iVisits = Request("Visits"
iAdjustVisits = Request("AdjustVisits"
If Request("Submit"
= "+" then
iAdjustment = iAdjustVisits
ElseIf Request("Submit"
= "-" then
iAdjustment = - iAdjustVisits
End If
iVisitsRemaining = iVisits + iAdjustment
%>
<html>
<head>
<script language="javaScript">
<!--
function sendBack()
{
parent.document.ClaimsView.Remaining = ("<%= iVisitsRemaining %> & "
;
parent.document.ClaimsView.AdjustVisits = "";
}
//-->
</script>
</head>
<body onLoad="sendBack();">
</body>
</html>
Another set of eyes would be GREATLY appreciated.
TIA
Here's the code for SamplePage1:
<% @ Language ="VBScript" %>
<% Option Explicit %>
<%
Response.Expires = 0
Response.Buffer=True
'Filename: SamplePage1.asp
%>
<html>
<body>
<iframe name=hiddenIframe" src="SamplePage2.asp"
width = "0" height = "0">
</iframe>
<table width="640" align="center" cellpadding="1" border="1">
<form name='ClaimsView' action=SamplePage2.asp
target="hiddenIframe">
<tr>
<td align="right">
Visits Approved:
</td>
<td align="center" width="100">
10
<input type="hidden" name="Visits" value="10" >
</td>
<td align="right">
Remaining:
</td>
<td align="center" class="tdbold">
<input type="text" name="Remaining" value="3" size="5" >
</td>
<td align="right" class="emphasize">
+/- Visits:
</td>
<td>
<input type="text" name="AdjustVisits" size="5" value="" >
<input type="submit" name="Submit" value="+" >
<input type="submit" name="Submit" value="-" >
</td>
</tr>
</form>
</table>
</body>
</html>
And the code for SamplePage2:
<% @ Language ="VBScript" %>
<% Option Explicit %>
<%
'Filename: SamplePage2
Dim iReferralNum
Dim iVisits
Dim iAdjustVisits
Dim iAdjustment
Dim iVisitsRemaining
iVisits = Request("Visits"
iAdjustVisits = Request("AdjustVisits"
If Request("Submit"
iAdjustment = iAdjustVisits
ElseIf Request("Submit"
iAdjustment = - iAdjustVisits
End If
iVisitsRemaining = iVisits + iAdjustment
%>
<html>
<head>
<script language="javaScript">
<!--
function sendBack()
{
parent.document.ClaimsView.Remaining = ("<%= iVisitsRemaining %> & "
parent.document.ClaimsView.AdjustVisits = "";
}
//-->
</script>
</head>
<body onLoad="sendBack();">
</body>
</html>
Another set of eyes would be GREATLY appreciated.
TIA