Solved

Get Session Value from VBScript

Posted on 2000-02-22
3
892 Views
Last Modified: 2011-09-20
I have two web pages. The first one is the web page where I store the values in session using ASP.
The second page is the web page where I want to retrieve the session values I stored in first page using VBSCRIPT.
How to do this?

* This is the first program:
<HTML>
<HEAD>
  <TITLE>Product Sales Inquiry</TITLE>
</HEAD>
<BODY>
  <TABLE cellpadding="0" cellspacing="2" border="0" WIDTH="100%">
<TR>
  <TD>
   <!-- This for Call the Second Web Page -->
          <A HREF="grp_product_sales.asp" CLASS="ClsTable">View Graphics</A>
              </td>
      </tr>            
  </TABLE>
<%
   Session("month01") = 1
   Session("month02") = 2
   Session("month03") = 3
   Session("month04") = 4
   Session("month05") = 5
   Session("month06") = 6
   Session("month07") = 7
   Session("month08") = 8
   Session("month09") = 9
   Session("month10") = 10
   Session("month11") = 11
   Session("month12") = 12      
%>  
</BODY>
</HTML>

* This is the second program:
<HTML>
<HEAD>
  <TITLE>Graph for Product Sales</TITLE>
  <LINK REL=STYLESHEET HREF="stylesheet/ste1.css" TYPE="text/css">
</HEAD>

<SCRIPT LANGUAGE="VBScript">
    SUB FillChart
      With TChart1
       ' ---------- Setting up Header ----------      
       .Header.Text.Clear
       .Header.Text.Add "Product Sales Analysis Chart"      
       .Header.Text.Add "2000"
       .Header.Font.Name = "Verdana"
       .Header.Font.Size = 12
       .Header.Font.Bold = True
       .Header.Font.Color= vbYellow
       
       with .Panel.Gradient
         .Visible = True
         .StartColor = vbWhite
         .EndColor = vbBlue
         .Direction = gdLeftRight      
       end with
             
       .Environment.IEPrintWithPage=True
       
       ' ---------- Setting up Graphics Type ----------
       .AddSeries( 1 )
       
       ' ---------- Setting up Graphics Content ----------

' *** I CAN'T GET SESSION VALUES ***
       .Series(0).Clear                      
       .Series(0).Add <%=Session(month01)%>, "January", RGB(255,0,0)
       .Series(0).Add <%=Session(month02)%>, "February", RGB(0,255,0)
       .Series(0).Add <%=Session(month03)%>, "March", RGB(255,255,0)
       .Series(0).Add <%=Session(month04)%>, "April", RGB(255,0,0)
       .Series(0).Add <%=Session(month05)%>, "May", RGB(0,255,0)
       .Series(0).Add <%=Session(month06)%>, "June", RGB(255,255,0)
       .Series(0).Add <%=Session(month07)%>, "July", RGB(255,0,0)
       .Series(0).Add <%=Session(month08)%>, "August", RGB(0,255,0)
       .Series(0).Add <%=Session(month09)%>, "September", RGB(255,255,0)
       .Series(0).Add <%=Session(month10)%>, "October", RGB(255,0,0)
       .Series(0).Add <%=Session(month11)%>, "November", RGB(0,255,0)
       .Series(0).Add <%=Session(month12)%>, "December", RGB(255,255,0)                
      End With
    END SUB
   
 

   
</SCRIPT>

<BODY OnLoad="FillChart">
  <CENTER>
  <!-------------------- OBJECT DECLARATION -------------------->
  <OBJECT
        classid="clsid:008BBE7E-C096-11D0-B4E3-00A0C901D681"
        id=TChart1
        TYPE="application/x-oleobject"
        width=600
        height=300
        align=center
        hspace=0
        vspace=0
  >
  </OBJECT>
  <BR><BR>
 
  <FORM Name="form1">
    <INPUT TYPE=hidden NAME=txtMonth01 VALUE=<%=Session(month01)%>>
    <INPUT TYPE=hidden NAME=txtMonth02 VALUE=<%=Session(month02)%>>
    <INPUT TYPE=hidden NAME=txtMonth03 VALUE=<%=Session(month03)%>>
    <INPUT TYPE=hidden NAME=txtMonth04 VALUE=<%=Session(month04)%>>
    <INPUT TYPE=hidden NAME=txtMonth05 VALUE=<%=Session(month05)%>>
    <INPUT TYPE=hidden NAME=txtMonth06 VALUE=<%=Session(month06)%>>
    <INPUT TYPE=hidden NAME=txtMonth07 VALUE=<%=Session(month07)%>>
    <INPUT TYPE=hidden NAME=txtMonth08 VALUE=<%=Session(month08)%>>
    <INPUT TYPE=hidden NAME=txtMonth09 VALUE=<%=Session(month09)%>>
    <INPUT TYPE=hidden NAME=txtMonth10 VALUE=<%=Session(month10)%>>
    <INPUT TYPE=hidden NAME=txtMonth11 VALUE=<%=Session(month11)%>>
    <INPUT TYPE=hidden NAME=txtMonth12 VALUE=<%=Session(month12)%>>
  </FORM>
 
  <A HREF="Javascript:history.go(-1)" CLASS=ClsTable>Back</A>
  </CENTER>
</BODY>
</HTML>


Need experts help for this...

Daniel
0
Comment
Question by:daniel_c
[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 8

Accepted Solution

by:
xabi earned 30 total points
ID: 2549385
You must use double quotes in your second page:

Change:

<INPUT TYPE=hidden NAME=txtMonth01 VALUE=<%=Session(month01)%>>

into:

<INPUT TYPE=hidden NAME=txtMonth01 VALUE=<%=Session("month01")%>>

and so on

xabi
0
 
LVL 7

Author Comment

by:daniel_c
ID: 2549467
Great Xabi!!!
See how careless I was... ;-)
0
 
LVL 8

Expert Comment

by:xabi
ID: 2549540
Nice to help you.

xabi

PS: Points?
0

Featured Post

Industry Leaders: 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

Suggested Solutions

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
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…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

734 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