Solved

Windows Internet Explorer Message "Resend Information" How do I get rid of it?

Posted on 2014-02-04
10
831 Views
Last Modified: 2014-02-25
Hello,

I am getting a Windows Internet Explorer message "To display the webpage again,the web browser needs to resend the information you've previously submitted. etc etc  " every time I hit the submit button to insert the record.  The record does show up correctly in the data table, after resending the info.  However I do not want this Windows Internet Explorer message to appear.  I just want to hit submit and then see the updated data table.  Thanks for the help.  Here is the code.

<!--TOA MODULE_ADMIN categoryS AND categoryORS PANEL-->
<!--////////////////// HEADER //////////////////-->
	<!--#include file ="includes/header.asp"-->
      <% Sub GetPageTitle %>
    	<title>Insert Contracts</title>
    <% End Sub %>
<!--//////////////// END HEADER ////////////////-->

<!--/////////////// MAIN CONTENT ///////////////-->
<h1 class="pageHeader">Insert Contracts</h1>



<%if request("action") = "insert" then
'response.write "INSERT" & "<BR>"
'response.write request("contract_number") & "----contract_number" & "<BR>"
'response.write request("cage_code") & "----cage_code" & "<BR>"
'response.write request("contract_active_flag") & "----contract_active_flag" & "<BR>"
'response.write request("contractor_id") & "----contractor_id" & "<BR>"
'response.write request("signed_dt") & "----signed_dt" & "<BR>" 

Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandType = Application("adCmdStoredProc") 
cmd.ActiveConnection = conn
		
cmd.CommandText = "TOMS.APP_API.INS_CONTRACT"
		cmd.Parameters.Append cmd.CreateParameter("p_contract_number",  Application("adVarChar"), Application("adParamInput"), 50, request("contract_number"))
		cmd.Parameters.Append cmd.CreateParameter("p_signed_dt",  Application("adVarChar"), Application("adParamInput"), 50, FormatDateTime(request("signed_dt"),2))
		cmd.Parameters.Append cmd.CreateParameter("p_cage_code",  Application("adVarChar"), Application("adParamInput"), 10, request("cage_code"))
		cmd.Parameters.Append cmd.CreateParameter("p_contractor_id",  Application("adVarChar"), Application("adParamInput"), 10, request("contractor_id"))
		cmd.Parameters.Append cmd.CreateParameter("p_active_flag",  Application("adVarChar"), Application("adParamInput"), 1, request("contract_active_flag"))

			
cmd.Execute

			if err.number <> 0 then
				response.write err.description 
			end if
			
			set cmd = nothing
			
else

end if
%>

<%if request("action") = "update" then
'response.write "UPDATE" &"<BR>"
'response.write request("contract_id") & "----contract_id" & "<BR>"
'response.write request("contract_number") & "----contract_number" & "<BR>"
'response.write request("cage_code") & "----cage_code" & "<BR>"
'response.write request("contract_active_flag") & "-----contract_active_flag" &"<BR>"
'response.write request("signed_dt") & "----signed_dt" & "<BR>" 


Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandType = Application("adCmdStoredProc")
cmd.ActiveConnection = conn
		
cmd.CommandText = "TOMS.APP_API.UPD_CONTRACT"
		cmd.Parameters.Append cmd.CreateParameter("p_contract_id",  Application("adVarChar"), Application("adParamInput"), 10, request("contract_id"))
		cmd.Parameters.Append cmd.CreateParameter("p_contract_number",  Application("adVarChar"), Application("adParamInput"), 50, request("contract_number"))
		cmd.Parameters.Append cmd.CreateParameter("p_signed_dt",  Application("adVarChar"), Application("adParamInput"), 50, FormatDateTime(request("signed_dt"),2))
		cmd.Parameters.Append cmd.CreateParameter("p_cage_code",  Application("adVarChar"), Application("adParamInput"), 10, request("cage_code"))
		cmd.Parameters.Append cmd.CreateParameter("p_active_flag",  Application("adVarChar"), Application("adParamInput"), 1, request("contract_active_flag"))

			
cmd.Execute

			if err.number <> 0 then
				response.write err.description
			end if
			
			set cmd = nothing
			
else

end if
%>



<div id="content">
<div id="insertContractContractors">  
<form id="ContractContractors_form" name="ContractContractors_form" action="insert_contract_contractors.asp?action=insert" method="post" class="validate">
<%
	Set cmd = Server.CreateObject("ADODB.Command")
	cmd.CommandType = Application("adCmdStoredProc")
	cmd.ActiveConnection = conn
	Set rs5 = Server.CreateObject("ADODB.Recordset")
			
	cmd.CommandText = "TOMS.APP_API.SEL_CONTRACTOR"
			
	cmd.Parameters.Append cmd.CreateParameter("p_contractor_id",  Application("adInteger"), Application("adParamInput"), 10, request("contractor_id"))
	'Contract Number	
	Set rs5 = cmd.Execute
%>
<div id="boxDiv_left">
	<div class="selectDiv_left">
    	<span class="header">Contractors</span>
    </div>
    <div class="selectDiv_left">
        <label for="Contractor Name">Contractor Name:</label>
        <span><%=rs5("Contractor_nm")%></span> 
    </div>
    <div class="selectDiv_left">
        <label for="Primary Program Mgr">Primary Program Mgr:</label>
<%
	Set cmd = Server.CreateObject("ADODB.Command")
	cmd.CommandType = Application("adCmdStoredProc")
	cmd.ActiveConnection = conn
	Set rs2 = Server.CreateObject("ADODB.Recordset")
			
	cmd.CommandText = "TOMS.APP_API.SEL_PERSONNEL"
			
	cmd.Parameters.Append cmd.CreateParameter("p_personnel_id",  Application("adInteger"), Application("adParamInput"), 10, rs5("prim_prog_mgr_id"))
				
	Set rs2 = cmd.Execute

	if not rs2.eof then
		response.write "<span>"&rs2("first_name") & " " & rs2("last_name") &"</span>"&vbCrLf
	else
		response.write "<span>&nbsp; x</span>"&vbCrLf
	end if
%>
    </div>
    <div class="selectDiv_left">
        <label for="Secondary Program Mgr">Secondary Program Mgr:</label>
<%
	Set cmd = Server.CreateObject("ADODB.Command")
	cmd.CommandType = Application("adCmdStoredProc")
	cmd.ActiveConnection = conn
	Set rs3 = Server.CreateObject("ADODB.Recordset")
			
	cmd.CommandText = "TOMS.APP_API.SEL_PERSONNEL"
			
	cmd.Parameters.Append cmd.CreateParameter("p_personnel_id",  Application("adInteger"), Application("adParamInput"), 10, rs5("sec_prog_mgr_id"))
				
	Set rs3 = cmd.Execute

	if not rs3.eof then
		response.write "<span>"&rs3("first_name") & " " & rs3("last_name") &"</span>"&vbCrLf
	else
		response.write "<span>&nbsp; x</span>"&vbCrLf
	end if
%>
    </div>
    <div class="selectDiv_left">
        <label for="City">Address:</label>
        <span>
            <%
			response.write rs5("addr1")&"<br />"&vbCrLf
			if rs5("addr2")>"" then
				response.write rs5("addr2")&"<br />"&vbCrLf
			end if
			%>
            <%=rs5("city_nm")%>,&nbsp;<%=rs5("st_cd")%>&nbsp;<%=rs5("zip_cd")%>
        </span>
    </div>
    <div class="selectDiv_left">
        <label for="Active">Active:</label>
        <%
		if rs5("active_flag")="Y" then
			Con_active_flag="Yes"
		else
			Con_active_flag="No"
		end if
		%>
        <span class="small"><%=Con_active_flag%></span> 
    </div>
<!---close boxDiv_left--->  
</div>
<div id="boxDiv_right"> 
    <div class="selesctDiv_left">
    	<span class="header">Contracts</span>
    </div>
    <div class="selectDiv_right">
        <label for="Contract Number">Contract Number:</label>
        <input type="text" id="contract_number" name="contract_number" alt="contract_number" title="contract_number" class="text required" maxlength="25"/>
    </div>
     <div class="selectDiv_right">
     <label for="signed_dt">Signed Date</label>
     <input type="text" class="text datePicker required icon_calendar" name="signed_dt" id="signed_dt" alt="signed_dt" title="signed_dt" size="12"/>
       </div>                        
    <div class="selectDiv_right">
        <label for="Cage Code">Cage Code:</label>
        <input type="text" id="cage_code" name="cage_code" alt="cage_code" title="cage_code" class="text required" maxlength="10"/>
    </div>
    <div class="selectDiv_right radioActive">
    	<span>
        <label for="contract_active_flag">Active:</label>    
       
        <%
	if rs("active_flag") = "N" then
		flagActiveN="checked=""checked"""
		flagActiveY=""
	elseif rs("active_flag") = "Y" then
		flagActiveY="checked=""checked"""
		flagActiveN=""
	else
		flagActiveY=""
		flagActiveN=""
	end if
	%>
     <div class="radioActive">Yes:&nbsp;<input type="radio" value="Y" name="contract_active_flag" id="contract_active_flag" alt="contract_active_flag" title="contract_active_flag" <%=flagActiveY%> />No:&nbsp;<input type="radio" value="N" name="contract_active_flag" id="contract_active_flag" alt="contract_active_flag" title="contract_active_flag" <%=flagActiveN%> /></div>

    </span>
    </div>
<!---close boxDiv_right--->  
</div>

<input id="contractor_id" name="contractor_id" type="hidden" size="10" value="<%=rs5("contractor_id")%>" />

<div style="clear:both; padding-top:12px;">
    <input type="submit" class="button iconRight insert" id="insert" value="Add Contract Number" style="background-image: url(images/icons/add.png);" alt="Add Contract Number" title="Add Contract Number"/>
    <input type="button" value="Cancel" id="cancelFormButton" class="button iconRight cancel" style="background-image: url(images/icons/cancel.png);" title="Cancel Changes" />
	</div>
    
</form>

</div>
</div>

<%

Set cmd = Server.CreateObject("ADODB.Command")
cmd.CommandType = Application("adCmdStoredProc")
cmd.ActiveConnection = conn
Set rs = Server.CreateObject("ADODB.Recordset")
		
'cmd.CommandText = "TOMS.APP_API.SEL_CONTRACTOR"
cmd.CommandText = "TOMS.APP_API.SEL_CONTRACT"
		
		cmd.Parameters.Append cmd.CreateParameter("p_contract_id",  Application("adInteger"), Application("adParamInput"), 10, NULL)
		cmd.Parameters.Append cmd.CreateParameter("p_contractor_id",  Application("adInteger"), Application("adParamInput"), 10, rs5("contractor_id"))
			
Set rs = cmd.Execute%>




<div id="contractors_list_area" style="margin-top: 2em; background-color: #CCC">
<table id="contractors_list" cellpadding="0" cellspacing="0" border="0">
<thead>
	<tr>
        <th scope="col">Edit</th>
        <th scope="col">Active?</th>
        <th scope="col">Name / Contractor ID</th>
        <th scope="col">Contract Number</th>
        <th scope="col">Cage Code</th>
        <th scope="col">Signed Date</th>
        <th scope="col">Contract ID</th>
    </tr>    
</thead>
<tbody>
 <%if not rs.eof then
		do while not rs.eof%>
	<tr>
		<td><a href="update_contract_contractors.asp?contractor_id=<%=rs("contractor_id")%>&contract_id=<%=rs("contract_id")%>"><img src="images/icons/edit.png" border="0"/></a></td>
        <td>
		<%if rs("active_flag") = "Y" then%>
		<img src="images/icons/check.png" border="0"/>
		<%elseif rs("active_flag") = "N" then%>
		<img src="images/icons/delete.png" border="0"/>
		<%else%>
		&nbsp;
		<%end if%>
        </td>
		<td><%=rs5("Contractor_nm") & " " & rs("contractor_id")%></td>
        <td><%=rs("contract_number")%></td>
        <td><%=rs("cage_code")%></td>
        <td><%=rs("signed_dt")%></td>
        <td><%=rs("contract_id")%></td>
	</tr>
		<%rs.movenext
		loop
	else
	response.write "EOF" & "<BR>"
	end if%>
</tbody>
</table>

		<%set cmd = nothing
		
		rs.close
		set rs = nothing
		
 		%>

<script type="text/javascript">
$("document").ready(function () {
	
	$("#contractors_list").dataTable({
		bJQueryUI: true
		
	});
	
		
});
</script>


 <!--end content-->
<!--///////////// END MAIN CONTENT /////////////-->

<!--////////////////// FOOTER //////////////////-->
	<!--#include file ="includes/footer.asp" -->
<!--//////////////// END FOOTER ////////////////-->

Open in new window

display-webpage-again.docx
0
Comment
Question by:capturetheflag
  • 4
  • 3
10 Comments
 
LVL 32

Accepted Solution

by:
Big Monty earned 500 total points
ID: 39833189
your javascript for initializing your document is incorrect, it should be the following, without the quotes around the word document:

<script type="text/javascript">
$(document).ready(function () {
	
	$("#contractors_list").dataTable({
		bJQueryUI: true
		
	});
	
		
});
</script>

Open in new window


also, where is bJQueryUI defined?
0
 
LVL 1

Author Comment

by:capturetheflag
ID: 39840028
Hello Big Money,

Thanks for the help. How do I also get the sort function in data tables to work on the column with the 'p_active_flag' that is a tick or cross png image? Thanks for the help!!

<table id="category_list" width="100%" cellpadding="0" cellspacing="0" border="0">
<thead>
	<tr>
        <th scope="col">Edit</th>
        <th scope="col">Active?</th>
        <th scope="col">Description</th>
        <th scope="col">Detail</th>
    </tr>    
</thead>
<tbody>
 <%if not rs.eof then
		do while not rs.eof%>
	<tr>
		<td scope="row"><a class="modalLink" href="update_categories.asp?category_id=<%=rs("category_id")%>"><img src="images/icons/edit.png" border="0" title="Edit the category description, details, and active status." alt="Edit the category description, details, and active status."/></a></td>
        <td>
		<%if rs("active_flag") = "Y" then%> 
		<img src="images/icons/check.png" border="0" title="This category is currently active." alt="This category is currently active."/>
		<%elseif rs("active_flag") = "N" then%>
		<img src="images/icons/cancel.png" bsorder="0" title="This category is currently inactive." alt="This category is currently inactive."/>
		<%else%>
		&nbsp;
		<%end if%>
        </td>
		<td><%=rs("category_desc")%></td>
		<td><%=rs("long_desc")%></td>
	</tr>
		<%rs.movenext
		loop
	end if%>
</tbody>
</table>

Open in new window

0
 
LVL 1

Author Comment

by:capturetheflag
ID: 39840031
Big Money here is the rest of the code.

<script type="text/javascript">
$("document").ready(function () {
	
	$("#category_list").dataTable({
		bJQueryUI: true	
	});
		
});
</script>

Open in new window

0
What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

 
LVL 32

Expert Comment

by:Big Monty
ID: 39840054
That would be an entirely different issue, let's first concentrate on getting this issue to work first. If this is working now, go ahead and close it out as you see fit and then open another question about the sort issue. Combining 2 unrelated issues is not a good practice, as it hurts the contents ability to be searched upon.
0
 
LVL 1

Author Comment

by:capturetheflag
ID: 39841939
I've requested that this question be closed as follows:

Accepted answer: 0 points for capturetheflag's comment #a39840031

for the following reason:

Thanks for the help
0
 
LVL 32

Expert Comment

by:Big Monty
ID: 39841861
did removing the quotes around the word 'document' fix your original issue? if so, why didn't you award the points to my first answer?
0
 
LVL 1

Author Comment

by:capturetheflag
ID: 39883469
I've requested that this question be closed as follows:

Accepted answer: 0 points for capturetheflag's comment #a39840031

for the following reason:

Thanks for the help!
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Introduction Chart.js, used properly, can visually add a difference to your charting applications. It engages your visitors and allows them to interact with data they otherwise wouldn't be able to without expensive and complicated systems. For this…
This article discusses how to create an extensible mechanism for linked drop downs.
The viewer will learn how to dynamically set the form action using jQuery.
The viewer will learn the basics of jQuery including how to code hide show and toggles. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery…

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now