Solved

combobox keeping sessioned data

Posted on 2013-06-21
3
251 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 11

Accepted Solution

by:
G_H earned 500 total points
ID: 39266386
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
ID: 39267999
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
ID: 39268002
Excellent direction!
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction During my participation as a VBScript contributor at Experts Exchange, one of the most common questions I come across is this: "I have a script that runs against only one computer. How can I make it run against a list of computers in …
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

690 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