Solved

combobox keeping sessioned data

Posted on 2013-06-21
3
238 Views
Last Modified: 2013-06-22
I have 2 different web pages both use excel workbooks as back ends. I pull one up and hit the drop down to select a category and hit submit it works fine. then I navigate to the next web page, code is identicle just use different excel workbooks with different named ranges as the data tables but when I click the drop down to select the category, it give me the choices from the 1st page and those choices do not exist on the 2nd page. I have tried using
<%
session.Contents.Remove("Category")
%>  

but theproblem is it seems that now no matter what i do it just retains the categories from which ever page i look at first. and from then on it will not change.

the code for page one:

<%@ Language=VBScript %>
<!--#include file="../includes/adovbs.inc"-->
<!--#include file="../includes/MakeComboBox.inc"-->
<%


'	mypaths = Request.ServerVariables ("appl_physical_path")
	vXlsFile = "/virtual/documents/powerfacts.xls"
	

	'MyConnString = "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & vXlsFile & ";DriverId=790;FIL=excel 8.0;MaxBufferSize=512;PageTimeout=5;"

	'Open Database Connection
	'Set Conn = Server.CreateObject("ADODB.Connection")
	'Conn.Open MyConnString
	
vXlsFile = Server.Mappath(vXlsFile)

		ExcelConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=" & chr(34) & vXlsFile & chr(34) & ";" & _
		"Extended Properties=" & chr(34) & "Excel 8.0;"& chr(34)

		'Open Database Connection
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open ExcelConnString

	
	
	Session("Category") = request.querystring("Category")
	Session("OpType") = request.querystring("OpType")	
	Session("SearchType") = request.querystring("SearchType")	
	Session("SearchWords") = request.querystring("SearchWords")	
%>
<html>

<head>
<!-- ////////////////////////////////////////////////////////////////////////////// -->
	<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
	<meta http-equiv="X-UA-Compatible" content="IE=8" />
	<link rel="stylesheet" type="text/css" href="/styles/default.css" />
	<link rel="stylesheet" type="text/css" href="/common/styles/default.css" />
	<script src="/common/scripts/jquery-1.7.1.min.js" type="text/javascript"></script>
	<script src="/common/scripts/menu.js" type="text/javascript"></script>
	<script src="/common/scripts/typeface-0.15.js" type="text/javascript"></script>
	<script src="/common/scripts/misterkot_regular.typeface.js" type="text/javascript"></script>
	<!-- ////////////////////////////////////////////////////////////////////////////// -->

		
	<title>Powerfacts</title>
	<style type="text/css">
	.auto-style1 {
		border-width: 0px;
	}
	</style>


</head>
<script LANGUAGE="vbscript">
<!--
	sub Myformsubmit(index)
		select case index
			case 1 'Submit by Category
			MyForm.OpType.value = "Submit"
			MyForm.SearchType.value = "Category"
			MyForm.SearchWords.value = ""
			MyForm.submit
			case 2 'Submit by Search word
			MyForm.OpType.value = "Submit"
			MyForm.SearchType.value = "Word"
			MyForm.Category.value = ""
			MyForm.submit

		end select
	end sub
-->
</script>
<body onload="SetMenu()">

<table width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td name="HeaderCell" id="HeaderCell"><a name="Top"></a><!--webbot bot="HTMLMarkup" ALT="&lt;h4&gt;The new  Header is in place ...&lt;/h4&gt;" TAG="XBOT" StartSpan -->
		<div id="dow-header"><iframe scrolling="no" width="100%" height="128" frameborder="0" marginheight="0" src="/common/temp/header.htm"></iframe></div>
	<!--webbot BOT="HTMLMarkup" endspan -->
</td>
  </tr>
  <tr>
    <td><div align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
      <tr>
        <td width="81%">
         <!-- ////////////////////////////////////////////////////////////////////////////// -->
		<!--#include file="../includes/site_header_new.htm" TAG="BODY" -->
	<!-- ////////////////////////////////////////////////////////////////////////////// --></td>
        <td name="RightMarginCell" id="RightMarginCell" rowspan="2"><img height="1" hspace="60" src="ht/common/images/rightspacer.gif" width="78"><p><!--webbot bot="PurpleText" PREVIEW="do not modify." --></td>
      </tr>
      <tr>
        <td><table name="ContentTable" id="ContentTable" border="0" cellpadding="6" cellspacing="0" width="100%">
          <tr>
            <td name="MenuCell" id="MenuCell" valign="top" >
            <!--webbot bot="Include" U-include="../includes/menu.htm" TAG="BODY" --></td>            <td class="Content" name="ContentCell" id="ContentCell" valign="top" width="80%">
            <h1>Powerfacts</h1>
            <p>
<form method="get" name="MyForm" action="powerfacts.asp">
          <input type="hidden" name="OpType" value="<%=session("OpType")%>"><input type="hidden" name="SearchType" value="<%=session("SearchType")%>"><table class="TableNormal">
            <tr>
              <td Width="150" valign="top"><strong>Category</strong></td>
              <td Width="100" valign="top"><%			MakeComboBox "Category","SELECT DISTINCT tblPowerFacts.Category FROM tblPowerFacts ORDER BY tblPowerFacts.Category;",Session("Category"),22,150,2
%>
</td>
              <td width="150" align="center"><input type="button" Value="Submit" class="button" id="button1" name="button1" onclick="MyFormSubmit(1)"></td>
              <td width="250"></td>
            </tr>
            <tr>
              <td width="150" valign="top">or</td>
              <td width="100"></td>
              <td width="150"></td>
              <td width="250"></td>
            </tr>
            <tr>
              <td Width="150" valign="top"><strong>Search words</strong></td>
              <td Width="100" valign="top"><input size="30" align="left" type="text" id="SearchWords" name="SearchWords" value="<%=Session("SearchWords") %>"></td>
              <td width="150" align="center"><input type="button" Value="Submit" class="button" id="button1" name="button1" onclick="MyFormSubmit(2)"></td>
              <td width="250"></td>
            </tr>
          </table>
        </form>
        <hr noshade size="1">
        <p><%

if session("OpType")="Submit" then

	If session("SearchType") = "Category" then	
		sql = "SELECT tblPowerFacts.PowerFact FROM tblPowerFacts WHERE (((tblPowerFacts.Category)='" & session("Category") & "'));"
	end if
	
	If session("SearchType") = "Word" then
		Sql = "SELECT tblPowerFacts.PowerFact FROM tblPowerFacts WHERE (((tblPowerFacts.PowerFact) Like '%" & Session("SearchWords") & "%'));"
	end if

	set RS = server.createobject("adodb.recordset")
	
	RS.open sql,Conn,adOpenForwardOnly,adLockReadOnly 
	
	if rs.bof and rs.eof then
		response.write "<br>No Records Returned!"
	else	
		Rs.Movefirst
		'<TABLE border=1 cellPadding=3 cellSpacing=3 width="650" >
%> </p>
        <table>
<%	
		do while not Rs.EOF
	
%>
          <tr>
            <td></td>
          </tr>
          <tr>
            <td><%=RS.Fields("PowerFact").Value%>
</td>
          </tr>
<%
			rs.MoveNext 
		loop
%>
        </table>
<%
	end if
	rs.Close
	set rs = nothing
end if

Conn.Close
set conn = nothing



%>
          
            
            </td>
          </tr>
          <tr>
            <td name="FooterCell" id="FooterCell" valign="top"></td>
            <td name="Footer" id="Footer">
            <!--webbot bot="Include" U-include="../includes/footer_dexter.htm" TAG="BODY" -->
</td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>
        <td name="SpacerCell" id="SpacerCell"><img height="1" src="/common/images/topspacer.gif" width="640"></td>
      </tr>
    </table>
    </div></td>
  </tr>
</table>
</body>
</html>

Open in new window


the code for the 2nd page:

<%@ Language=VBScript %>
<!--#include file="../includes/adovbs.inc"-->
<!--#include file="../includes/MakeComboBox.inc"-->
<%

	vXlsFile = "/virtual/documents/LegacyLearnings.xls"


	'MyConnString = "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & vXlsFile & ";DriverId=790;FIL=excel 8.0;MaxBufferSize=512;PageTimeout=5;"

	'Open Database Connection
	'Set Conn = Server.CreateObject("ADODB.Connection")
	'Conn.Open MyConnString
	
vXlsFile = Server.Mappath(vXlsFile)

		ExcelConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
		"Data Source=" & chr(34) & vXlsFile & chr(34) & ";" & _
		"Extended Properties=" & chr(34) & "Excel 8.0;"& chr(34)

		'Open Database Connection
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open ExcelConnString

	
	
	Session("Category") = request.querystring("Category")
	Session("OpType") = request.querystring("OpType")	
	Session("SearchType") = request.querystring("SearchType")	
	Session("SearchWords") = request.querystring("SearchWords")	
%>
<html>

<head>
<!-- ////////////////////////////////////////////////////////////////////////////// -->
	<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
	<meta http-equiv="X-UA-Compatible" content="IE=8" />
	<link rel="stylesheet" type="text/css" href="/styles/default.css" />
	<link rel="stylesheet" type="text/css" href="/common/tdcc-temp/styles/default.css" />
	<script src="/common/scripts/jquery-1.7.1.min.js" type="text/javascript"></script>
	<script src="/common/scripts/menu.js" type="text/javascript"></script>
	<script src="/common/scripts/typeface-0.15.js" type="text/javascript"></script>
	<script src="/common/scripts/misterkot_regular.typeface.js" type="text/javascript"></script>
	<!-- ////////////////////////////////////////////////////////////////////////////// -->

		
	<title>Legacy Learnings</title>
	<style type="text/css">
	.auto-style1 {
		border-width: 0px;
	}
	</style>


</head>
<script LANGUAGE="vbscript">
<!--
	sub Myformsubmit(index)
		select case index
			case 1 'Submit by Category
			MyForm.OpType.value = "Submit"
			MyForm.SearchType.value = "Category"
			MyForm.SearchWords.value = ""
			MyForm.submit
			case 2 'Submit by Search word
			MyForm.OpType.value = "Submit"
			MyForm.SearchType.value = "Word"
			MyForm.Category.value = ""
			MyForm.submit

		end select
	end sub
-->
</script>
<body onload="SetMenu()">

<table width="100%" cellspacing="0" cellpadding="0">
  <tr>
    <td name="HeaderCell" id="HeaderCell"><a name="Top"></a><!--webbot bot="HTMLMarkup" ALT="&lt;h4&gt;The new Header is in place ...&lt;/h4&gt;" TAG="XBOT" StartSpan -->
		<div id="dow-header"><iframe scrolling="no" width="100%" height="128" frameborder="0" marginheight="0" src="/common/temp/header.htm"></iframe></div>
	<!--webbot BOT="HTMLMarkup" endspan -->
</td>
  </tr>
  <tr>
    <td><div align="left"><table border="0" cellpadding="0" cellspacing="0" width="100%">
      <tr>
        <td width="81%">
         <!-- ////////////////////////////////////////////////////////////////////////////// -->
		<!--#include file="../includes/site_header_new.htm" TAG="BODY" -->
	<!-- ////////////////////////////////////////////////////////////////////////////// --></td>
        <td name="RightMarginCell" id="RightMarginCell" rowspan="2"><img height="1" hspace="60" src="common/images/rightspacer.gif" width="78"><p><!--webbot bot="PurpleText" PREVIEW="do not modify." --></td>
      </tr>
      <tr>
        <td><table name="ContentTable" id="ContentTable" border="0" cellpadding="6" cellspacing="0" width="100%">
          <tr>
            <td name="MenuCell" id="MenuCell" valign="top" >
            <!--webbot bot="Include" U-include="../includes/menu.htm" TAG="BODY" --></td>            <td class="Content" name="ContentCell" id="ContentCell" valign="top" width="80%">
            <h1>Legacy Learnings</h1>
            <p>
<form method="get" name="MyForm" action="LegLearnings.asp">
          <input type="hidden" name="OpType" value="<%=session("OpType")%>"><input type="hidden" name="SearchType" value="<%=session("SearchType")%>"><table class="TableNormal">
            <tr>
              <td Width="150" valign="top"><strong>Category</strong></td>
              <td Width="100" valign="top"><%			MakeComboBox "Category","SELECT DISTINCT tblLearnings.Category FROM tblLearnings ORDER BY tblLearnings.Category;",Session("Category"),22,150,2
%>
</td>
              <td width="150" align="center"><input type="button" Value="Submit" class="button" id="button1" name="button1" onclick="MyFormSubmit(1)"></td>
              <td width="250"></td>
            </tr>
            <tr>
              <td width="150" valign="top">or</td>
              <td width="100"></td>
              <td width="150"></td>
              <td width="250"></td>
            </tr>
            <tr>
              <td Width="150" valign="top"><strong>Search words</strong></td>
              <td Width="100" valign="top"><input size="30" align="left" type="text" id="SearchWords" name="SearchWords" value="<%=Session("SearchWords") %>"></td>
              <td width="150" align="center"><input type="button" Value="Submit" class="button" id="button1" name="button1" onclick="MyFormSubmit(2)"></td>
              <td width="250"></td>
            </tr>
          </table>
        </form>
        <hr noshade size="1">
        <p><%

if session("OpType")="Submit" then

	If session("SearchType") = "Category" then	
		sql = "SELECT tblLearnings.PowerFact FROM tblLearnings WHERE (((tblLearnings.Category)='" & session("Category") & "'));"
	end if
	
	If session("SearchType") = "Word" then
		Sql = "SELECT tblLearnings.PowerFact FROM tblLearnings WHERE (((tblLearnings.PowerFact) Like '%" & Session("SearchWords") & "%'));"
	end if

	set RS = server.createobject("adodb.recordset")
	
	RS.open sql,Conn,adOpenForwardOnly,adLockReadOnly 
	
	if rs.bof and rs.eof then
		response.write "<br>No Records Returned!"
	else	
		Rs.Movefirst
		'<TABLE border=1 cellPadding=3 cellSpacing=3 width="650" >
%> </p>
        <table>
<%	
		do while not Rs.EOF
	
%>
          <tr>
            <td></td>
          </tr>
          <tr>
            <td><%=RS.Fields("PowerFact").Value%>
</td>
          </tr>
<%
			rs.MoveNext 
		loop
%>
        </table>
<%
	end if
	rs.Close
	set rs = nothing
end if

Conn.Close
set conn = nothing
%>
           
            
            </td>
          </tr>
          <tr>
            <td name="FooterCell" id="FooterCell" valign="top"></td>
            <td name="Footer" id="Footer">
            <!--webbot bot="Include" U-include="../includes/footer_dexter.htm" TAG="BODY" -->
</td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>
        <td name="SpacerCell" id="SpacerCell"><img height="1" src="/common/images/topspacer.gif" width="640"></td>
      </tr>
    </table>
    </div></td>
  </tr>
</table>
</body>
</html>

Open in new window

0
Comment
Question by:jlcannon
  • 2
3 Comments
 
LVL 11

Accepted Solution

by:
G_H earned 500 total points
Comment Utility
OK, couple of things to look at:

Before Line 27 (where you SET Session(Category") ) check to see if Request.QueryString("Category") has a value. This may be re-setting a value you think you have cleared.

I the Sub "MyFormSubmit" write out (to screen)  the value in "index". This maybe set to 1 when you think it is a 2...

At line 129 you are checking for Session("SearchType") - have you cleared that as well as Session("Category")..?

HTH

GH
0
 

Author Comment

by:jlcannon
Comment Utility
GH
I have cleared Session("SearchType")  and still no good. I am wondering is there a way to make sure the MakeComboBox is getting cleared and refreshed.

I found it! in the makecombobox.inc file there was a line that was telling it if session category data existed, use it to save time! So it was thank you, your help led me to this so Salute!
0
 

Author Closing Comment

by:jlcannon
Comment Utility
Excellent direction!
0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
This is pretty cool.  The purpose of this VB Script is to help you document where JAR (Java ARchive) files and specifically java class files are located so that you can address issues seen with a client or that you can speak intelligently with a dev…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

763 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

9 Experts available now in Live!

Get 1:1 Help Now