Losing session variables when using redirect to new web page

Hi All

 

I have an application which involves a sign up process where i store details filled in separate screens in session variables

 movement between pages is by clicking on a button which redirects user to next page, all because i though button looked neater

plus at least 1 screen uses a button in a datagrid for navigation

Its being behaving erratically for a while, finally i was updating whole site an discovered that most of the time session variable are wiped out

I guess this tells me one reason why the websites sign up rate is abysmal

 

I found another thread about this issue via search engine, msn/live, is this still an issue or could my problems be due to something else ?

0
costrak
5/12/2007 10:23:19 PM
asp.net.state-management 8807 articles. 0 followers. Follow

11 Replies
1287 Views

Similar Articles

[PageSpeed] 31

infact, i really need to use re directs, cos i do a lot off validation on registrants input at the early stages, if i have to use html links

things would become very awkward

0
costrak
5/13/2007 12:45:02 AM

Hi, costrak:

Would you please show some codes about it?


Best Regards,
__________________________________________________
Sincerely,
Rex Lin
Microsoft Online Community Support

If there is any question or the issue is not resolved, please feel free to mark the thread as not resolved
0
Rex
5/14/2007 8:35:42 AM

session variables are lost between the 2 following pages, furthermore, the application often appears to hang passing between these pages

<%@ page language="vb"  AutoEventWireup="False"  %>
<%@ Import Namespace="Microsoft.VisualBasic" %>
<%@ Import Namespace="System.data" %>
<%@ Import Namespace="System.data.OleDb" %>
<%@ Import Namespace="System.web.SessionState" %>
<%@ Import Namespace="System.Web.UI.HtmlControls" %>
<%@ Import Namespace="System.Web.UI.HtmlControls.HtmlGenericControl" %>


<%@ Import Namespace="System.Web.UI.WebControls"%>

<%@ Import Namespace="System.Configuration"%>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Color"%>


<%@ Import Namespace="System.Net"%>
<%@ Import Namespace="System.IO"%>
<%@ Import Namespace="System.Text"%>

<%@ Import Namespace="System.Web.Mail"%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

<html>
<!-- #BeginTemplate "DWT001_Ext_CRA.dwt" -->
<head runat="server">
<!-- #BeginEditable "doctitle" -->
<TITLE id="lblMetaTitle" runat="server"></TITLE>
<!-- #EndEditable -->
<META NAME="*" CONTENT="noindex" />
<META name="verify-v1" content="w7/8pc3A1TpLaisyYRPaAUCb09YZeeR1QjLYeotXZps=" />
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<meta name="generator" content="www.csscreator.com" />
<link rel="stylesheet" href="HT_Styles.css" type="text/css" />

</head>

<body>
<form runat="server">

<div id="pagewidth" >
  <div id="header" >  
  <span class="Title">Housetracker.org</span>  
  <span class="AdvertTop"></span>  
  </div>
   <div id="wrapper" class="clearfix" >
  <div id="twocols" class="clearfix">
   
   <div id="maincol" >     
    <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="320" HSPACE="1" VSPACE="1"><br>
    <span class="StateTitle"><asp:Label ID="lblTitle" Width ="300" Runat="server"></asp:Label></span><br>
    <b>Homeseekers</b><br>
    <asp:Label ID="lblDescription1" Width ="300" Runat="server"></asp:Label><br><br>
    <b>Landlords, real estate agents, advertisers</b><br>
    <asp:Label ID="lblDescription2" Width ="300" Runat="server"></asp:Label><br><br>
    <br>
    <br>
    <asp:Label ID="lblURL" Width ="300" Runat="server"></asp:Label>
    <!-- #BeginEditable "body" -->
         
 
<table border="1" cellpadding="0"  cellspacing="0" style="border-collapse: collapse; border-style: double; border-width: 3px" width="480" id="table4" height="51">
 <tr>
  <td valign="top" bgcolor="#C0C0C0" >
  <p style="text-align: center"><b>Here you&nbsp; create your advert</b></td>
  <td  valign="top" width="121" style="text-align: center" bgcolor="#99CCFF">
  <b>here you create your account</b></td>
  <td  valign="top" width="111" style="text-align: center" bgcolor="#C0C0C0">
  <b>Here you choose a free or paid option for your advert</b></td>
  <td  valign="top" width="124" style="text-align: center" bgcolor="#C0C0C0">
  <b>Here you start advert</b></td>
 </tr>
</table>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="480" id="table5" bgcolor="#FFFFFF">
 <tr>
  <td style="border-style: double; border-width: 3px"><a href="1_login.aspx">
  Already got an account ?, click here</a></td>
 </tr>
 <tr>
  <td style="border-style: double; border-width: 3px"><span lang="en-gb">
    <font size="2" face="Times New Roman"><asp:Button   Font-Bold ="True"  Font-Size="10"  ID="B1" Text="Next" OnClick="B1_Click" runat="server" />
 
&nbsp;&nbsp;&nbsp;
               
<asp:Button   Font-Bold ="True"  Font-Size="10"  ID="B2" Text="Reset" CausesValidation="False" runat="server" />
    </font>
</span></td>
 </tr>
 <tr>
  <td style="border-style: double; border-width: 3px">&nbsp;</td>
 </tr>
 <tr>
  <td style="border-style: double; border-width: 3px"><b>The details you
  provide here are private, not part of your advert.</b></td>
 </tr>
</table>

  <table border="1" cellpadding="0" cellspacing="0" style="border-style:double; border-width:3px; border-collapse: collapse" width="480" id="table3" bgcolor="#FFFFFF">
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">&nbsp;</td>
    <td width="239" style="border-style: double; border-width: 3px"><b>
    <font size="2" face="Times New Roman"><asp:Label ID="lblMessage" Runat ="server" /><asp:Label ID="lblMessage1" EnableViewState="False" Runat ="server" />
    </font></b>
    </td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Email Address</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserEMail" itemstyle-width="300px" BackColor= "#99CCFF" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">First Name</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserFirstName" itemstyle-width="300px" BackColor="#99CCFF" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Surname</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserSurName"  BackColor="#99CCFF" itemstyle-width="300px" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Address</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserStreetAddress1"  BackColor="#99CCFF" itemstyle-width="300px" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Address</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserStreetAddress2" itemstyle-width="300px" Width="212"  BackColor="#99CCFF" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">City</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserCity"  BackColor="#99CCFF" itemstyle-width="300px" Width="212"  TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Postcode</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserPostcode"  BackColor="#99CCFF" itemstyle-width="300px" Width="212" TextMode="SingleLine" Runat="server" />
    <asp:label ID="lblHiddenPassword" visible="false" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">County</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserCounty"  BackColor="#99CCFF" itemstyle-width="300px" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Country</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserCountry"  BackColor="#99CCFF" itemstyle-width="300px" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Are you an agency ?</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman"><asp:checkbox id="userAgency" runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Telephone</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserTelephone" itemstyle-width="200px"  BackColor="#99CCFF" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">Fax</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
            <font size="2" face="Times New Roman">
            <asp:Textbox ID="UserFax" itemstyle-width="300px"  BackColor="#99CCFF" Width="212" TextMode="SingleLine" Runat="server" />
   </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">-<asp:Label ID="lblPassword" Font-Size="10" runat="server" ></asp:Label>-</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
        <font size="2" face="Times New Roman">
        <asp:Textbox ID="UserPassword" itemstyle-width="300px"  BackColor="#99CCFF" Width="212"  TextMode ="Password" Runat="server" />
  </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">
    <font size="2" face="Times New Roman">-<asp:Label ID="lblvPassword" Font-Size="10" Runat="server" ></asp:Label>-</font></td>
    <td width="239" style="border-style: double; border-width: 3px">
                <font size="2" face="Times New Roman">
                <asp:Textbox ID="VPassword" itemstyle-width="300px"  BackColor="#99CCFF"  Width="212" TextMode="Password" Runat="server" />
    </font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">&nbsp;</td>
    <td width="239" style="border-style: double; border-width: 3px">&nbsp;</td>
   </tr>
   <tr>
    <td colspan="2" style="border-style: double; border-width: 3px"><font face="Times New Roman"><font size="2">
    By clicking on the submit button below, you the person or
    persons submitting this registration agree that you have read ,
    understood and accepted the
    <a href="1_Terms.aspx">Terms</a> governing the use of this
    website. To read the terms </font><a href="1_Terms.aspx">
    <font size="2">click here</font></a></font></td>
   </tr>
   <tr>
    <td width="215" style="border-style: double; border-width: 3px">&nbsp;</td>
    <td width="239" style="border-style: double; border-width: 3px"><span lang="en-gb">
    <font size="2" face="Times New Roman">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
               
    </font>
</span></td>
   </tr>
  </table>
  <script language="vb" runat="server">
  
  Dim RedirEnabler As String = ConfigurationSettings.AppSettings("RedirEnabler")
  dim redirector as string

  
  Sub PageLoader()
   
   lblmessage.text = Session("PropertyRentalContactName")   

   IF Application("Status")="OFF" then
    lblMessage.text ="<b>System update in progress, please comeback latter</b>"
    response.redirect("/default.aspx")
   else  
    
   end if     
          
  End sub
  
  Sub New_Customer
   
  End sub
  
  
  Sub B1_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) Handles B1.Click
   
    
   Dim userPassword1 as string
   if UserPassword.visible = true or isDBnull(session("userID"))= true or session("UserID") = 0 then
    if UserPassword.text <> vpassword.text then
     lblMessage.text = "Password verification failed, input the same password in both password boxes"
     exit sub
    end if
    userPassword1 = UserPassword.text
   else
    userPassword1 = lblHiddenPassword.text
   end if
  
  
    'Read in the values of the updated row
       Dim UserEmail1 as string  =UserEmail.text
       Dim UserFirstname1 as string  =UserFirstname.text
    Dim UserSurname1 as string  =UserSurname.text
    Dim UserStreetAddress11 as string  =UserStreetAddress1.text
    Dim UserStreetAddress21 as string  =UserStreetAddress2.text
    Dim UserCity1 as string  =UserCity.text
    Dim UserPostCode1 as string  =UserPostCode.text
    Dim UserCounty1 as string  =UserCounty.text
    Dim UserCountry1 as string  =UserCountry.text
    
       Dim UserAgency1 as boolean
       if  UserAgency.checked =true then
        UserAgency1= true
       else
        UserAgency1= false
       end if
      
    Dim UserAgencyID1 as integer =0
    Dim UserTelephone1 =UserTelephone.text
    Dim UserFax1 as string  =UserFax.text
          
       Dim Incomplete as boolean = False
        
    IF trim(UserEmail1)=""  Then
     UserEmail.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserEmail.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    IF trim(UserFirstname1)=""  Then
     UserFirstname.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserFirstname.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    IF trim(UserSurname1)="" Then
     UserSurname.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserSurname.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    IF trim(UserStreetAddress11)=""  Then
     UserStreetAddress1.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserStreetAddress1.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    if trim(UserStreetAddress21)="" Then
     UserStreetAddress2.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserStreetAddress2.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    IF trim(UserCity1)=""  Then
     UserCity.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserCity.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    IF trim(UserTelephone1)="" Then
     UserTelephone.BackColor=Color.FromArgb(204, 0, 0)
     Incomplete=true
    else
     UserTelephone.BackColor=Color.FromArgb(153, 204, 255)
    end if
    
    
    If Incomplete=true then
     lblmessage.text = "Your registration form is incomplete, please complete the indicated sections"
     exit sub
    end if
        
    
   DIM checkit as boolean 
   
   Checkit = HouseO.z_MyFunctions.ThisIsEmail(UserEmail1)
   
   if checkit = false then 
    lblMessage.text = "This email address does not appear to be valid, please try again , or contact us via email"
    exit sub
   else
    lblMessage.text = " "
   end if
 
   Checkit = Email_Checker(UserEmail1)
   
   if checkit = false then 
    lblMessage.text = "This email address has already been used to register, please select another"
    exit sub
   else
    lblMessage.text = " "
   end if
   
    Session("UserEmail")  =UserEmail.text
       Session("UserFirstname")  =UserFirstname.text
    Session("UserSurname")  =UserSurname.text
    Session("UserStreetAddress1")  =UserStreetAddress1.text
    Session("UserStreetAddress2")  =UserStreetAddress2.text
    Session("UserCity")  =UserCity.text
    Session("UserPostCode")  =UserPostCode.text
    Session("UserCounty")  =UserCounty.text
    Session("UserCountry")  =UserCountry.text
    
      
       'if  UserAgency.checked =true then
       ' Session("UserAgency")= true
       'else
       ' = false
       'end if
      
       Session("UserAgency")=UserAgency.checked
    Session("UserAgencyID") =0
    Session("UserTelephone") =UserTelephone.text
    Session("UserFax")  =UserFax.text
    Session("userPassword")=UserPassword.text
    
   
        
             
      ' populate session variables
  
          redirector=RedirEnabler & "2_RentalCharge.aspx"
      response.redirect(redirector)


   
     End Sub
     
     
     Sub B2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles B2.Click

     End Sub
     
Function Email_Checker(EMailAddress as string) as boolean
                  
     Dim objCheckEmail as New oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))
     objCheckEmail.Open()
  DIM strCheckEmail as string = "SELECT * FROM A5_Users WHERE UserEmail ='" & EMailAddress & "';" 
     Dim CheckEmailCommand as OleDbCommand = new OleDbCommand(strCheckEmail, objCheckEmail)
     CheckEmailCommand.CommandType = CommandType.Text
  DIM EmailDATA as OledbDAtaReader = CheckEmailCommand.ExecuteReader()   'Execute the SELECT query
   
     if EmailDATA.hasRows  then
      EmailDATA.read()
      if EmailDATA("userid")=session("userID") then
       Email_Checker = true
      else
       Email_Checker = false
      end if
     else
      Email_Checker = true
     end if
      
     objCheckEmail.Close()   'Close the connection
    
End Function

  </script>
    <!-- #EndEditable --></div>   
   <div id="rightcol" >
    <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="140" HSPACE="1" VSPACE="1"><br>
    <!--webbot bot="Navigation" S-Orientation="vertical" S-Rendering="graphics" S-Type="global" B-Include-Home="TRUE" B-Include-Up="FALSE" --><p>
    <u><b>SALES</b></u></p>
    <asp:DataList
      ID="stateList2"
      runat="server"    
      DataKeyField="USStateID"
          EditItemStyle-BackColor="#99CCFF"
      GridLines="none"
      HeaderStyle-BackColor="#000000"
      HeaderStyle-ForeColor="White"
      Font-Size="10"  
          HeaderStyle-HorizontalAlign="Center"
          HeaderStyle-Font-Bold="True"
            OnItemCommand="doInsert"
            CellPadding="4"
            Width ="170"
      >
      <ItemTemplate >
          <asp:HyperLink     
        ID="hypDetail"
        text='<%# DataBinder.Eval(Container.DataItem, "USStateRealEstate","") %>'
        NavigateUrl ='<%# DataBinder.Eval(Container.DataItem, "USStateID","default.aspx?Type=sales&USStateID={0:n}") %>'   
        Runat="server" >
       </asp:HyperLink>
      
      </ItemTemplate>
      </asp:DataList>
   </div>
  </div>
   <div id="leftcol" >
    <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="140" HSPACE="1" VSPACE="1"><br>
    <!--webbot bot="Navigation" S-Orientation="vertical" S-Rendering="graphics" S-Type="global" B-Include-Home="TRUE" B-Include-Up="FALSE" --><p>
    <u><b>RENTALS</b></u></p>
    <asp:DataList
      ID="stateList1"
      runat="server"    
      DataKeyField="USStateID"
          EditItemStyle-BackColor="#99CCFF"
      GridLines="none"
      HeaderStyle-BackColor="#000000"
      HeaderStyle-ForeColor="White"
      Font-Size="10"  
          HeaderStyle-HorizontalAlign="Center"
          HeaderStyle-Font-Bold="True"
            OnItemCommand="doInsert"
            CellPadding="4"
            Width ="170"
      >
      <ItemTemplate >
        <asp:HyperLink     
        ID="hypDetail"
        text='<%# Container.DataItem("USStateApartments") %>'
        NavigateUrl ='<%# DataBinder.Eval(Container.DataItem, "USStateID","default.aspx?Type=rental&USStateID={0:n}") %>'       
        Runat="server" >
       </asp:HyperLink>  
      </ItemTemplate>
     </asp:DataList>
   </div>
</div>
 <div id="footer" >
  <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="900" HSPACE="1" VSPACE="1"><br>
  <div class="AdvertBottom">
  </div>
  <br>
   <div class="copywrite">
    <h5 style="text-align: center"><font size="1">Results based Advertising for rooms to rent, Apartments to rent, houses
    to rent, plus property sales advertising .<br>
    Copyright ? 2006 Housetracker Limited
    .&nbsp; Last modified:
    <!--webbot bot="TimeStamp" s-type="EDITED" s-format="%d/%m/%y" --> </font>
    </h5>  
   </div>

 </div>
 </div>
</form>
<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-643431-5";
urchinTracker();
</script>

</body>

<!-- #EndTemplate -->

</html>

<script language="vb" runat="server"  >
  
   Sub Page_Load(ByVal sender As System.Object, _
             ByVal e As System.EventArgs) Handles MyBase.Load 
            
              Call PageLoader()
              
    'URL CHECKING SCRIPT BELOW
    
    Dim Domain_Name1
       Dim FileName1
       Dim FullPath1
   
    Dim Domain_Name2
       Dim FileName2
       Dim FullPath2
   
    Domain_Name1 = request.ServerVariables("HTTP_HOST")
    FileName1= Request.ServerVariables("URL")
    FullPath1 = Domain_Name1  & FileName1
    
    Domain_Name2 = lcase(Domain_Name1)
    FileName2= lcase(FileName1)
    
    
    FullPath2 = Domain_Name2  & FileName2
    
    dim DupURLchk as integer
    DupURLchk =string.compare(FullPath1,FullPath2)  
    
    'THIS CODE SHOULD STRIP OUT THE HTDOCS/HOUSETRACKER/
     DIM stringLenght as integer = len(FileName2)
     dim filebegins as integer =InStr(2,FileName2,"/")
     dim fileLenght as integer = stringLenght - filebegins
     FileName2 = mid(FileName2,(filebegins+1),fileLenght) 
    'THIS CODE SHOULD STRIP OUT THE HTDOCS/HOUSETRACKER/
    
    'potential crash point
    Dim completeURL as string = "http://" & Domain_Name2 & "/" & FileName2
    
    if DupURLchk <> 0 then
     'response.status="301 Moved Permanently" 
        'response.addheader ("Location",completeURL)
    end if
    
    
    
             lblURL.TEXT=completeURL
             
            'URL CHECKING SCRIPT ABOVE
            
    dim TheState as INTEGER = request.querystring("USStateID")
    dim TheType as string = request.querystring("Type")
    
    if TheState=0 or isdbnull(TheState)=true then
        TheState=13
       end if

    dim StateName as string = GetStateName(TheState)
    Dim statedescription as string = LoadStateDetails(TheState,TheType)
        
   Select Case completeURL
   
    Case "http://www.housetracker.org/1_AboutUs.aspx"
    statedescription ="About housetracker.org"
    lblMetaTitle.Text="About housetracker.org"
    
                Case "http://www.housetracker.org/1_ContactUs.aspx"
                statedescription ="Contact housetracker.org"
                lblMetaTitle.Text="Contact housetracker.org"
                
             Case "http://www.housetracker.org/1_Terms.aspx"
             statedescription ="Terms of use, for housetracker.org"
             lblMetaTitle.Text="Terms of use, for housetracker.org"
             
             Case "http://www.housetracker.org/1_PrivacyPolicy.aspx"
             statedescription ="Housetracker.org, privacy policy"
             lblMetaTitle.Text="Housetracker.org, privacy policy"
             
             Case "http://www.housetracker.org/1_Prices.aspx"
             statedescription ="Housetracker.org, prices"
             lblMetaTitle.Text="Housetracker.org, prices"
             
             Case "http://www.housetracker.org/1_Directory.aspx"
             statedescription ="Housetracker.org Directory"
             lblMetaTitle.Text="Housetracker.org, Directory"
             
             Case "http://www.housetracker.org/2_Property_Advertisers.aspx"
             statedescription ="Post a real estate advert"
             lblMetaTitle.Text="Housetracker.org, prices"


      end select
          
    
     'Microsoft msdn meta tag code below
     
     ' Create two instances of an HtmlMeta control.
        Dim hm1 As New HtmlMeta()
        Dim hm2 As New HtmlMeta()
       
        ' Get a reference to the page header element.
        Dim head As HtmlHead = Page.Header
    
        ' Define an HTML <meta> element that is useful for search engines.
        hm1.Name = "keywords"
        hm1.Content = "illinois real estate, apartments in illinois, rooms illinois, rentals illinois, houses illinois"
        head.Controls.Add(hm1)
    
        ' Define an HTML <meta> element with a Scheme attribute.
        hm2.Name = "Description"
        hm2.Content = statedescription
        head.Controls.Add(hm2)
     
     'Microsoft msdn meta tag code above

         
    If Not Page.IsPostBack
          BindDataState()            
        End If
       
       
                  
      End Sub
      
     Sub Rental_Edit(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)
        
  End Sub
  
  Sub Rental_Update(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)
  End Sub
  Sub Rental_Cancel(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)    
  End Sub    
    Sub doInsert(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)
     If e.CommandName = "Insert" Then
     End If    
     If e.CommandName = "Edit" Then    
     End if
    End Sub
    
    Sub btnsearch_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) 'Handles btnsearch.Click
     'BindDataRental()
    End Sub
  
    Sub BindDataState()
      
   dim sqlState as string = "SELECT *FROM A9_USState ORDER BY USStateName ;"
     
         
      dim ConnState as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))
             
   dim adState as  oledbDataAdapter = new oledbDataAdapter(sqlState,ConnState)
 
     dim dsState as new dataset()

   adState.Fill(dsState,"A9_USState")
      
   
   Dim StatePds as PagedDataSource = New PagedDataSource()
   StatePds.DAtaSource=dsState.Tables("A9_USState").DefaultView
   
   StatePds.AllowPaging=true
   
   StatePds.PageSize=70
   
   StatePds.CurrentPageIndex = CurrentPage
   
   Dim PageNumber as integer = (CurrentPage+1).ToString()
   Dim PageNo as string = "Page: " + (CurrentPage+1).ToString() + " of " + StatePds.PageCount.ToString()
   'lblCurrentPage.Text = PageNo
   'lblPageNumber.text = PageNumber
   
   If StatePds.IsFirstPage=True then
    'cmdPrev.enabled=false
   Else
    'cmdPrev.enabled=true
   End if
   
   If StatePds.IsLastPage=True then
    'cmdNext.enabled = false
   Else
    'cmdNext.enabled = true
   End if
   
     StateList1.Datasource = StatePds
     StateList1.DataBind()
     
     StateList2.Datasource = StatePds
     StateList2.DataBind()

   ConnState.close
   
    End Sub
     
    
   
    ' Add property values to view state with set;
 ' retrieve them from view state with get.
 Public Property [CurrentPage] As integer
    Get
        Dim o as object =CStr(ViewState("CurrentPage"))
        if isDBNull(o) = true then
          Return 0
        else
          Return CStr(ViewState("CurrentPage"))
        end if
    End Get
    Set
        ViewState("CurrentPage") = Value
    End Set
 End Property    

 Sub cmdPrev_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) 'Handles cmdPrev.Click 
  'CurrentPage=CurrentPage - 1  
  'BindDataCounty()
 End Sub
 
 Sub cmdNext_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) 'Handles cmdNext.Click
  'CurrentPage=CurrentPage + 1
  'BindDataCounty()
 End Sub

   
  Function GetStateName(USStateID1 as integer) as STRING
   Dim sqlSTATE as String
   sqlSTATE  = "SELECT *FROM A9_USState WHERE USStateID =" & USStateID1 & " ;"      
      dim ConnSTATE as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))          
   ConnSTATE.open()
   dim cmdSTATE as new oledbcommand(sqlSTATE,ConnSTATE)     
     dim dataReadSTATE as oledbdatareader =  cmdSTATE.ExecuteReader()

   dataReadSTATE.read()
   GetStateName= dataReadSTATE("USStateName")
   ConnSTATE.close()
  End Function
  
  Function LoadStateDetails(USStateID1 as integer,Type as string) as string
   Dim sqlSTATE as String
   sqlSTATE  = "SELECT *FROM A9_USState WHERE USStateID =" & USStateID1 & " ;"      
      dim ConnSTATE as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))          
   ConnSTATE.open()
   dim cmdSTATE as new oledbcommand(sqlSTATE,ConnSTATE)     
     dim dataReadSTATE as oledbdatareader =  cmdSTATE.ExecuteReader()

   dataReadSTATE.read()
   if Type = "sales"
    LoadStateDetails=dataReadSTATE("USStateDescriptionSalesBuyers")
    lblTitle.text=dataReadSTATE("USStateTitleSales")
    lblDescription1.text=dataReadSTATE("USStateDescriptionSalesBuyers")
    lblDescription2.text=dataReadSTATE("USStateDescriptionSales")
   else
    LoadStateDetails=dataReadSTATE("USStateDescriptionRentTenant")
    lblTitle.text=dataReadSTATE("USStateTitleRent")
    lblDescription1.text=dataReadSTATE("USStateDescriptionRentTenant")
    lblDescription2.text=dataReadSTATE("USStateDescriptionRentLandlord")

   end if
   
   ConnSTATE.close()
   
  End Function

 


  </script> 

 


 
second page

 

<%@ page language="vb"  AutoEventWireup="False"  %>
<%@ Import Namespace="Microsoft.VisualBasic" %>
<%@ Import Namespace="System.data" %>
<%@ Import Namespace="System.data.OleDb" %>
<%@ Import Namespace="System.web.SessionState" %>
<%@ Import Namespace="System.Web.UI.HtmlControls" %>
<%@ Import Namespace="System.Web.UI.HtmlControls.HtmlGenericControl" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.IO" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

<html>
<!-- #BeginTemplate "DWT001_Ext_CRA.dwt" -->
<head runat="server">
<!-- #BeginEditable "doctitle" -->
<TITLE id="lblMetaTitle" runat="server"></TITLE>
<!-- #EndEditable -->
<META NAME="*" CONTENT="noindex" />
<META name="verify-v1" content="w7/8pc3A1TpLaisyYRPaAUCb09YZeeR1QjLYeotXZps=" />
<meta http-equiv="content-type" content="text/html;charset=utf-8" />
<meta name="generator" content="www.csscreator.com" />
<link rel="stylesheet" href="HT_Styles.css" type="text/css" />

</head>

<body>
<form runat="server">

<div id="pagewidth" >
  <div id="header" >  
  <span class="Title">Housetracker.org</span>  
  <span class="AdvertTop"></span>  
  </div>
   <div id="wrapper" class="clearfix" >
  <div id="twocols" class="clearfix">
   
   <div id="maincol" >     
    <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="320" HSPACE="1" VSPACE="1"><br>
    <span class="StateTitle"><asp:Label ID="lblTitle" Width ="300" Runat="server"></asp:Label></span><br>
    <b>Homeseekers</b><br>
    <asp:Label ID="lblDescription1" Width ="300" Runat="server"></asp:Label><br><br>
    <b>Landlords, real estate agents, advertisers</b><br>
    <asp:Label ID="lblDescription2" Width ="300" Runat="server"></asp:Label><br><br>
    <br>
    <br>
    <asp:Label ID="lblURL" Width ="300" Runat="server"></asp:Label>
    <!-- #BeginEditable "body" -->
         
       <p>
         
       <font size="2"><b>

</p>

<table border="1" cellpadding="0"  cellspacing="0" style="border-collapse: collapse; border-style: double; border-width: 3px" width="480" id="table2" height="51">
 <tr>
  <td valign="top" bgcolor="#C0C0C0" >
  <p style="text-align: center"><b>Here you&nbsp; create your advert</b></td>
  <td  valign="top" width="121" style="text-align: center" bgcolor="#C0C0C0">
  <b>here you create your account</b></td>
  <td  valign="top" width="111" style="text-align: center" bgcolor="#99CCFF">
  <b>Here you choose a free or paid option for your advert</b></td>
  <td  valign="top" width="124" style="text-align: center" bgcolor="#C0C0C0">
  <b>Here you start advert</b></td>
 </tr>
</table>

 <table border="1" width="480" id="table1" bgcolor="#FFFFFF">
  <tr>
   <td colspan="2">
    <font size="2"><b>Choose your option, free or Paid, then click on the free
 button or click on one of the price buttons to choose that option for your
 advert and proceed to checkout&nbsp; cart for payment.</b></td>
  </tr>
  <tr>
   <td colspan="2">
 
<font size="2">
    <asp:Button  ID="btnPayLatter" Font-Bold ="True"  Font-Size="10" Text="Click here for free listing" OnClick="btnPayLatter_Click" Runat="server" ></asp:Button><asp:Button ID="btnClose"  Font-Bold ="True"  Font-Size="10"  Text="Cancel" OnClick="btnClose_Click" Runat="server" >
    </asp:Button></td>
  </tr>
  <tr>
   <td width="140" height="21"><b><font size="2">Message Box 1</font></b></td>
   <td height="21"><b><font size="2">-<asp:label id="lblmessage" runat="server" />-</font></b></td>
  </tr>
  <tr>
   <td width="140"><span lang="en-gb"><b><font size="2">Message Box 2</font></b></span></td>
   <td><span lang="en-gb"><b><font size="2">-<asp:label id="lblmessage2" runat="server" />-<asp:label id="lbluserID" visible="FALSE" runat="server" /><asp:label id="lblusercustomerID" visible="FALSE" runat="server" /></font></b></span></td>
  </tr>
  <tr>
   <td width="140"><span lang="en-gb"><b><font size="2">Application
   status</font></b></span></td>
   <td width="511"><span lang="en-gb"><b><font size="2">xx</font></b></span></td>
  </tr>
 </table></b>
   
   
 <asp:DataGrid
  id="ChargeGrid"
  runat="server"
  AllowPaging="True"
  OnItemCommand="doInsertPropertyRental"
  ShowFooter="False"
  OnPageIndexChanged="NewPagePropertyRental"
  EditItemStyle-BackColor="#99CCFF"
     OnEditCommand="Charge_Edit"
     OnUpdateCommand="Charge_Update"
     OnCancelCommand="Charge_Cancel"
     BackColor="#FFFFFF"
     wrap = "true"
     CellPadding="4"
     Font-Size="10"
     Width="480"
     Visible="true"
     HeaderStyle-BackColor="#999999"
     HeaderStyle-ForeColor="White"
     HeaderStyle-HorizontalAlign="Center"
     HeaderStyle-Font-Bold="True"
     AutoGenerateColumns = "false">

 <Columns>
        <asp:EditCommandColumn
         ButtonType="PushButton"              
                EditText="Add"  
                 HeaderStyle-Width="20"          
                ItemStyle-Wrap="false"
                HeaderText="Add to cart"
                HeaderStyle-Wrap="false"
                />
            <asp:boundColumn ReadOnly="True" HeaderText="ID" DataField="chargeID" HeaderStyle-Width="30"  ItemStyle-HorizontalAlign="right" />
          <asp:boundColumn ReadOnly="True" HeaderText="Advert type" DataField="ChargeDescription" HeaderStyle-Width="30"  ItemStyle-HorizontalAlign="right" />
          <asp:boundColumn ReadOnly="True" HeaderText="Period (Days)"  HeaderStyle-Width="30" DataField="chargePeriod" ItemStyle-HorizontalAlign="right" />
   <asp:boundColumn ReadOnly="True" HeaderText="Net"  HeaderStyle-Width="30" DataFormatString="£{0:n2}" DataField="chargeNet" ItemStyle-HorizontalAlign="right" />
   <asp:boundColumn ReadOnly="True" HeaderText="VAT Rate"  HeaderStyle-Width="30" DataFormatString="{0:n2}%" DataField="chargeVATRate" ItemStyle-HorizontalAlign="right" />
   <asp:boundColumn ReadOnly="True" HeaderText="VAT"  HeaderStyle-Width="30" DataFormatString="£{0:n2}" DataField="chargeVAT" ItemStyle-HorizontalAlign="right" />  
      <asp:boundColumn ReadOnly="True" HeaderText="Gross"  HeaderStyle-Width="30" DataFormatString="£{0:n2}" DataField="chargeCost" ItemStyle-HorizontalAlign="right" />           
            <asp:boundColumn ReadOnly="True" Visible="False" HeaderText="Net"  DataFormatString="{0:n2}" DataField="chargeNet" ItemStyle-HorizontalAlign="right" />
   <asp:boundColumn ReadOnly="True" Visible="False" HeaderText="VAT"  DataFormatString="{0:n2}" DataField="chargeVAT" ItemStyle-HorizontalAlign="right" />  
      <asp:boundColumn ReadOnly="True" Visible="False" HeaderText="Gross"  DataFormatString="{0:n2}" DataField="chargeCost" ItemStyle-HorizontalAlign="right" />
             
             <asp:TemplateColumn HeaderText="Add to cart">
          
          <ItemTemplate>
             <asp:Button CommandName="Edit" Text="Add" ID="btnEdit" Runat="server" />
          </ItemTemplate>
        </asp:TemplateColumn>       
     </Columns>

 </asp:DataGrid>
 <p>
    &nbsp;</p>
 <p>
    <b><span lang="en-gb"><asp:label id="lblStatus" Visible="False" runat="server" /></span></b></p>
    </font>


<script language="vb" runat="server">
    
 Dim RedirEnabler As String = ConfigurationSettings.AppSettings("RedirEnabler")
 dim redirector as string

    
  Sub PageLoader()
   
   lblmessage.text = Session("PropertyRentalContactName")
   

   if isDBnull(session("userID")) = true or session("userID") = 0  then        
       'session.abandon       'lblLogin.Text = "Login"   
       'redirector = RedirEnabler & "1_logOff.aspx"   
       'response.redirect(redirector)

      else
       
      end if
      
      
      If Not Page.IsPostBack
         BindDataPropertyRental()   
      End If
    
  End sub
  
  Sub Charge_Edit(sender As Object, e As DataGridCommandEventArgs)
   Dim ChargeID1 as integer = e.Item.Cells(1).Text
      Dim ChargeAmount as double = 1*e.Item.Cells(8).Text
   Dim ChargePeriod as integer = 1*e.Item.Cells(3).Text
   Dim ChargeVAT as double=1*e.Item.Cells(9).Text
   Dim ChargeGROSS as double=1*e.Item.Cells(10).Text
   TheCharge("payNow",ChargeID1,ChargePeriod,ChargeAmount,ChargeVAT,ChargeGROSS)    
  End Sub
  
  Sub btnPayLatter_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) handles btnPayLatter.click
   TheCharge("payLatter",0,0,0,0,0)
  End sub
  
  Sub TheCharge(Decider as string,ChargeID2 as integer,ChargePeriod2 as integer ,ChargeAmount2 as double, _
      ChargeVAT2 as double,ChargeGROSS2 as double)
  on error goto err_TheCharge  
    lblmessage.text="chk1"
    if isDBnull(session("userID")) = true or session("userID") = 0 then
        'session.abandon        
        'lblLogin.Text = "Login"
    else        
       end if
      
       Dim ChargeID1 as integer = ChargeID2
       Dim ChargeAmount as double = ChargeAmount2
       Dim ChargeVAT as double = ChargeVAT2
       Dim ChargeGROSS as double = ChargeGROSS2
    Dim ChargePeriod as integer = ChargePeriod2
      
       Dim PropertyRentalID1 as Integer = session("PropertyRentalID")
       Dim PropertyRentalTitle1 as String = session("PropertyRentalTitle")
       
      lblmessage.text="chk2"
       If ChargeID1 = 1 or ChargeID1 = 13 then
     
     'lblMessage.text="Your advert has been activated for 7 days FREE of charge"
     'Call Start_Advert_Free(PropertyRentalID1)
     'response.redirect(RedirEnabler & "2_Property_Advertisers.aspx")
     'Exit Sub
     
       End If
       
       If ChargeAmount = 0.00 then
     'Dim FreeMessage as string = "Your advert has been activated for " &  ChargePeriod & " days FREE of charge"
     'lblMessage.text=FreeMessage
     'Call Start_Advert_Free(PropertyRentalID1)
     'redirector=RedirEnabler & "2_Property_Advertisers.aspx"
     'response.redirect(redirector)
     'Exit Sub    
       End If

      
      
      Dim CartArray ' no parens! no size!
   'Dim cartMaxUsed AS integer
   
   lblmessage.text="chk3"
   ' let's say we want to add an item to the shopping cart:
      
   CartArray = session("HTOCartArray")
   Dim CartMaxUsed1 as integer=session("HTOCartMaxUsed")
   Dim cartItem as integer
   
   'CartArray  = HouseO.z_MyFunctions.addCartElement(CartArray,CartMaxUsed1,HouseO.z_MyFunctions.CART_COLUMNS)
   'cartItem = CartMaxUsed1 + 1
   'CartMaxUsed1=CartMaxUsed1+1
   
   dim j as integer
   'for j = 0 to CartMaxUsed1
   ' If CartArray(0,j)=PropertyRentalID1 AND CartArray(1,j)="PropertyRental" then
   '  cartItem = j
   ' end if
   'next j
   lblmessage.text="chk4"
   j=-1
   DO    
    If  j>-1 then
     If CartArray(0,j)=PropertyRentalID1 AND CartArray(1,j)="PropertyRental" then
      cartItem = j
      exit do
     else
      if j = CartMaxUsed1 then
       CartArray  = HouseO.z_MyFunctions.addCartElement(CartArray,CartMaxUsed1,HouseO.z_MyFunctions.CART_COLUMNS)
       cartItem = CartMaxUsed1 + 1
       CartMaxUsed1=CartMaxUsed1+1
       EXIT DO
      end if
     end if
    ELSE
     if j = CartMaxUsed1 then
       CartArray  = HouseO.z_MyFunctions.addCartElement(CartArray,CartMaxUsed1,HouseO.z_MyFunctions.CART_COLUMNS)
       cartItem = CartMaxUsed1 + 1
       CartMaxUsed1=CartMaxUsed1+1
       EXIT DO
      end if
    end if
    j=j+1   
   LOOP UNTIL j>CartMaxUsed1
   
   lblmessage.text="chk4a"
   cartArray(HouseO.z_MyFunctions.ITEM_TABLEID,cartItem) =1 'PropertyRentalID1
   cartArray(HouseO.z_MyFunctions.ITEM_TYPE,cartItem) = "PropertyRental"
   cartArray(HouseO.z_MyFunctions.ITEM_USERID,cartItem) =1 'session("userID")
   cartArray(HouseO.z_MyFunctions.ITEM_TITLE,cartItem) = PropertyRentalTitle1
   cartArray(HouseO.z_MyFunctions.ITEM_PERIOD,cartItem) = ChargePeriod2
   cartArray(HouseO.z_MyFunctions.ITEM_NET,cartItem) =ChargeAmount 'format(ChargeAmount,"{0:n2}")
   cartArray(HouseO.z_MyFunctions.ITEM_VAT,cartItem) = ChargeVAT 'format(ChargeVAT,"{0:n2}")
   cartArray(HouseO.z_MyFunctions.ITEM_GROSS,cartItem) = ChargeGROSS 'format(ChargeGROSS,"{0:n2}")
   cartArray(HouseO.z_MyFunctions.ITEM_INVOICENO,cartItem) = 0

   session("HTOCartArray") = cartArray ' names don't have to be same,
   session("HTOCartMaxUsed") = cartMaxUsed1 ' but I like it that way
   lblmessage.text="chk5"
   
   err_TheCharge: 
   redirector=RedirEnabler & "2_CheckOut.aspx"
      response.redirect(redirector)

     
  End Sub
  
  Sub Charge_Update(sender As Object, e As DataGridCommandEventArgs)
         
  End Sub
  
  Sub Charge_Cancel(sender As Object, e As DataGridCommandEventArgs)
    
  End Sub 
  
  
  Sub NewPagePropertyRental(sender As Object, e As DataGridPageChangedEventArgs)
       ChargeGrid.CurrentPageIndex = e.NewPageIndex
       BindDataPropertyRental()     
    End Sub 
    
    Sub doInsertPropertyRental(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
     If e.CommandName = "Edit" Then     
      end if
    End Sub
  
     
     Sub BindDataPropertyRental()

     Dim sqlPropertyRental as String
 
   sqlPropertyRental = "SELECT *FROM A9_Charges WHERE ChargeActivate = True " & _
      "AND ChargeAgency=" & session("UserAgency") & " AND ChargeType='RENT';"
       
       dim ConnPropertyRental as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))       
   dim adPropertyRental as new oledbDataAdapter(sqlPropertyRental,ConnPropertyRental)
 
     dim dsPropertyRental as new dataset()

   adPropertyRental.Fill(dsPropertyRental,"A9_Charges")
   
     ChargeGrid.Datasource = dsPropertyRental
   ChargeGrid.DataBind()

   ConnPropertyRental.close()
   
  End Sub
  
    
  Sub Start_Advert_Free(AdvertID)
  
   Dim DateEnd as string = DateAdd("d", 7, Now()).ToShortDateString
      DateEnd = Mid(DateEnd,4,2) & "/" & Mid(DateEnd,1,2) & "/" &  Mid(DateEnd,7,4)
      Dim DateStart as string =   DateAdd("d", 0, Now()).ToShortDateString
      Dim DateStarttxt as string = DateStart
   DateStart = Mid(DateStart,4,2) & "/" & Mid(DateStart,1,2) & "/" &  Mid(DateStart,7,4)
   


   'Construct the SQL statement using Parameters
       Dim strTR as String = _
        "UPDATE " & _
   "A1_PropertyRentalsUSA] " & _
   "SET " & _
   "[PropertyRentalStartDate] =#" & DateStart & "# , " & _
   "[PropertyRentalStartDatetext] ='" & DateStarttxt & "' , " & _
   "[PropertyRentalEndDate] =#" & DateEnd & "# , " & _
   "[PropertyRentalEndDatetext] =#" & DateEnd & "# , " & _
   "[Activated] = True, " & _ 
   "[Enabled] = True " & _  
        " WHERE " & _
   "[PropertyRentalID] =" & AdvertID & " ;"
 
       Dim objConnTR as New oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))
       objConnTR.Open()

       Dim myCommandTR as OleDbCommand = new OleDbCommand(strTR, objConnTR)
       myCommandTR.CommandType = CommandType.Text
         myCommandTR.ExecuteNonQuery()   'Execute the UPDATE query
   
       objConnTR.Close()   'Close the connection
         
  End Sub
  
  Sub BtnClose_Click(ByVal sender As System.Object, _
             ByVal e As System.EventArgs)
             redirector=RedirEnabler & "2_Property_Advertisers.aspx"
             response.redirect(redirector)

  
  End sub

    </script>
    <!-- #EndEditable --></div>   
   <div id="rightcol" >
    <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="140" HSPACE="1" VSPACE="1"><br>
    <!--webbot bot="Navigation" S-Orientation="vertical" S-Rendering="graphics" S-Type="global" B-Include-Home="TRUE" B-Include-Up="FALSE" --><p>
    <u><b>SALES</b></u></p>
    <asp:DataList
      ID="stateList2"
      runat="server"    
      DataKeyField="USStateID"
          EditItemStyle-BackColor="#99CCFF"
      GridLines="none"
      HeaderStyle-BackColor="#000000"
      HeaderStyle-ForeColor="White"
      Font-Size="10"  
          HeaderStyle-HorizontalAlign="Center"
          HeaderStyle-Font-Bold="True"
            OnItemCommand="doInsert"
            CellPadding="4"
            Width ="170"
      >
      <ItemTemplate >
          <asp:HyperLink     
        ID="hypDetail"
        text='<%# DataBinder.Eval(Container.DataItem, "USStateRealEstate","") %>'
        NavigateUrl ='<%# DataBinder.Eval(Container.DataItem, "USStateID","default.aspx?Type=sales&USStateID={0:n}") %>'   
        Runat="server" >
       </asp:HyperLink>
      
      </ItemTemplate>
      </asp:DataList>
   </div>
  </div>
   <div id="leftcol" >
    <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="140" HSPACE="1" VSPACE="1"><br>
    <!--webbot bot="Navigation" S-Orientation="vertical" S-Rendering="graphics" S-Type="global" B-Include-Home="TRUE" B-Include-Up="FALSE" --><p>
    <u><b>RENTALS</b></u></p>
    <asp:DataList
      ID="stateList1"
      runat="server"    
      DataKeyField="USStateID"
          EditItemStyle-BackColor="#99CCFF"
      GridLines="none"
      HeaderStyle-BackColor="#000000"
      HeaderStyle-ForeColor="White"
      Font-Size="10"  
          HeaderStyle-HorizontalAlign="Center"
          HeaderStyle-Font-Bold="True"
            OnItemCommand="doInsert"
            CellPadding="4"
            Width ="170"
      >
      <ItemTemplate >
        <asp:HyperLink     
        ID="hypDetail"
        text='<%# Container.DataItem("USStateApartments") %>'
        NavigateUrl ='<%# DataBinder.Eval(Container.DataItem, "USStateID","default.aspx?Type=rental&USStateID={0:n}") %>'       
        Runat="server" >
       </asp:HyperLink>  
      </ItemTemplate>
     </asp:DataList>
   </div>
</div>
 <div id="footer" >
  <IMG SRC="images/dot_clear.gif" border="5" HEIGHT="1" WIDTH="900" HSPACE="1" VSPACE="1"><br>
  <div class="AdvertBottom">
  </div>
  <br>
   <div class="copywrite">
    <h5 style="text-align: center"><font size="1">Results based Advertising for rooms to rent, Apartments to rent, houses
    to rent, plus property sales advertising .<br>
    Copyright ? 2006 Housetracker Limited
    .&nbsp; Last modified:
    <!--webbot bot="TimeStamp" s-type="EDITED" s-format="%d/%m/%y" --> </font>
    </h5>  
   </div>

 </div>
 </div>
</form>
<script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
</script>
<script type="text/javascript">
_uacct = "UA-643431-5";
urchinTracker();
</script>

</body>

<!-- #EndTemplate -->

</html>

<script language="vb" runat="server"  >
  
   Sub Page_Load(ByVal sender As System.Object, _
             ByVal e As System.EventArgs) Handles MyBase.Load 
            
              Call PageLoader()
              
    'URL CHECKING SCRIPT BELOW
    
    Dim Domain_Name1
       Dim FileName1
       Dim FullPath1
   
    Dim Domain_Name2
       Dim FileName2
       Dim FullPath2
   
    Domain_Name1 = request.ServerVariables("HTTP_HOST")
    FileName1= Request.ServerVariables("URL")
    FullPath1 = Domain_Name1  & FileName1
    
    Domain_Name2 = lcase(Domain_Name1)
    FileName2= lcase(FileName1)
    
    
    FullPath2 = Domain_Name2  & FileName2
    
    dim DupURLchk as integer
    DupURLchk =string.compare(FullPath1,FullPath2)  
    
    'THIS CODE SHOULD STRIP OUT THE HTDOCS/HOUSETRACKER/
     DIM stringLenght as integer = len(FileName2)
     dim filebegins as integer =InStr(2,FileName2,"/")
     dim fileLenght as integer = stringLenght - filebegins
     FileName2 = mid(FileName2,(filebegins+1),fileLenght) 
    'THIS CODE SHOULD STRIP OUT THE HTDOCS/HOUSETRACKER/
    
    'potential crash point
    Dim completeURL as string = "http://" & Domain_Name2 & "/" & FileName2
    
    if DupURLchk <> 0 then
     'response.status="301 Moved Permanently" 
        'response.addheader ("Location",completeURL)
    end if
    
    
    
             lblURL.TEXT=completeURL
             
            'URL CHECKING SCRIPT ABOVE
            
    dim TheState as INTEGER = request.querystring("USStateID")
    dim TheType as string = request.querystring("Type")
    
    if TheState=0 or isdbnull(TheState)=true then
        TheState=13
       end if

    dim StateName as string = GetStateName(TheState)
    Dim statedescription as string = LoadStateDetails(TheState,TheType)
        
   Select Case completeURL
   
    Case "http://www.housetracker.org/1_AboutUs.aspx"
    statedescription ="About housetracker.org"
    lblMetaTitle.Text="About housetracker.org"
    
                Case "http://www.housetracker.org/1_ContactUs.aspx"
                statedescription ="Contact housetracker.org"
                lblMetaTitle.Text="Contact housetracker.org"
                
             Case "http://www.housetracker.org/1_Terms.aspx"
             statedescription ="Terms of use, for housetracker.org"
             lblMetaTitle.Text="Terms of use, for housetracker.org"
             
             Case "http://www.housetracker.org/1_PrivacyPolicy.aspx"
             statedescription ="Housetracker.org, privacy policy"
             lblMetaTitle.Text="Housetracker.org, privacy policy"
             
             Case "http://www.housetracker.org/1_Prices.aspx"
             statedescription ="Housetracker.org, prices"
             lblMetaTitle.Text="Housetracker.org, prices"
             
             Case "http://www.housetracker.org/1_Directory.aspx"
             statedescription ="Housetracker.org Directory"
             lblMetaTitle.Text="Housetracker.org, Directory"
             
             Case "http://www.housetracker.org/2_Property_Advertisers.aspx"
             statedescription ="Post a real estate advert"
             lblMetaTitle.Text="Housetracker.org, prices"


      end select
          
    
     'Microsoft msdn meta tag code below
     
     ' Create two instances of an HtmlMeta control.
        Dim hm1 As New HtmlMeta()
        Dim hm2 As New HtmlMeta()
       
        ' Get a reference to the page header element.
        Dim head As HtmlHead = Page.Header
    
        ' Define an HTML <meta> element that is useful for search engines.
        hm1.Name = "keywords"
        hm1.Content = "illinois real estate, apartments in illinois, rooms illinois, rentals illinois, houses illinois"
        head.Controls.Add(hm1)
    
        ' Define an HTML <meta> element with a Scheme attribute.
        hm2.Name = "Description"
        hm2.Content = statedescription
        head.Controls.Add(hm2)
     
     'Microsoft msdn meta tag code above

         
    If Not Page.IsPostBack
          BindDataState()            
        End If
       
       
                  
      End Sub
      
     Sub Rental_Edit(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)
        
  End Sub
  
  Sub Rental_Update(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)
  End Sub
  Sub Rental_Cancel(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)    
  End Sub    
    Sub doInsert(source As Object, e As System.Web.UI.WebControls.DataListCommandEventArgs)
     If e.CommandName = "Insert" Then
     End If    
     If e.CommandName = "Edit" Then    
     End if
    End Sub
    
    Sub btnsearch_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) 'Handles btnsearch.Click
     'BindDataRental()
    End Sub
  
    Sub BindDataState()
      
   dim sqlState as string = "SELECT *FROM A9_USState ORDER BY USStateName ;"
     
         
      dim ConnState as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))
             
   dim adState as  oledbDataAdapter = new oledbDataAdapter(sqlState,ConnState)
 
     dim dsState as new dataset()

   adState.Fill(dsState,"A9_USState")
      
   
   Dim StatePds as PagedDataSource = New PagedDataSource()
   StatePds.DAtaSource=dsState.Tables("A9_USState").DefaultView
   
   StatePds.AllowPaging=true
   
   StatePds.PageSize=70
   
   StatePds.CurrentPageIndex = CurrentPage
   
   Dim PageNumber as integer = (CurrentPage+1).ToString()
   Dim PageNo as string = "Page: " + (CurrentPage+1).ToString() + " of " + StatePds.PageCount.ToString()
   'lblCurrentPage.Text = PageNo
   'lblPageNumber.text = PageNumber
   
   If StatePds.IsFirstPage=True then
    'cmdPrev.enabled=false
   Else
    'cmdPrev.enabled=true
   End if
   
   If StatePds.IsLastPage=True then
    'cmdNext.enabled = false
   Else
    'cmdNext.enabled = true
   End if
   
     StateList1.Datasource = StatePds
     StateList1.DataBind()
     
     StateList2.Datasource = StatePds
     StateList2.DataBind()

   ConnState.close
   
    End Sub
     
    
   
    ' Add property values to view state with set;
 ' retrieve them from view state with get.
 Public Property [CurrentPage] As integer
    Get
        Dim o as object =CStr(ViewState("CurrentPage"))
        if isDBNull(o) = true then
          Return 0
        else
          Return CStr(ViewState("CurrentPage"))
        end if
    End Get
    Set
        ViewState("CurrentPage") = Value
    End Set
 End Property    

 Sub cmdPrev_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) 'Handles cmdPrev.Click 
  'CurrentPage=CurrentPage - 1  
  'BindDataCounty()
 End Sub
 
 Sub cmdNext_Click(ByVal sender As System.Object, ByVal e as System.EventArgs) 'Handles cmdNext.Click
  'CurrentPage=CurrentPage + 1
  'BindDataCounty()
 End Sub

   
  Function GetStateName(USStateID1 as integer) as STRING
   Dim sqlSTATE as String
   sqlSTATE  = "SELECT *FROM A9_USState WHERE USStateID =" & USStateID1 & " ;"      
      dim ConnSTATE as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))          
   ConnSTATE.open()
   dim cmdSTATE as new oledbcommand(sqlSTATE,ConnSTATE)     
     dim dataReadSTATE as oledbdatareader =  cmdSTATE.ExecuteReader()

   dataReadSTATE.read()
   GetStateName= dataReadSTATE("USStateName")
   ConnSTATE.close()
  End Function
  
  Function LoadStateDetails(USStateID1 as integer,Type as string) as string
   Dim sqlSTATE as String
   sqlSTATE  = "SELECT *FROM A9_USState WHERE USStateID =" & USStateID1 & " ;"      
      dim ConnSTATE as new oledbconnection(ConfigurationSettings.AppSettings("HTOconnString"))          
   ConnSTATE.open()
   dim cmdSTATE as new oledbcommand(sqlSTATE,ConnSTATE)     
     dim dataReadSTATE as oledbdatareader =  cmdSTATE.ExecuteReader()

   dataReadSTATE.read()
   if Type = "sales"
    LoadStateDetails=dataReadSTATE("USStateDescriptionSalesBuyers")
    lblTitle.text=dataReadSTATE("USStateTitleSales")
    lblDescription1.text=dataReadSTATE("USStateDescriptionSalesBuyers")
    lblDescription2.text=dataReadSTATE("USStateDescriptionSales")
   else
    LoadStateDetails=dataReadSTATE("USStateDescriptionRentTenant")
    lblTitle.text=dataReadSTATE("USStateTitleRent")
    lblDescription1.text=dataReadSTATE("USStateDescriptionRentTenant")
    lblDescription2.text=dataReadSTATE("USStateDescriptionRentLandlord")

   end if
   
   ConnSTATE.close()
   
  End Function

 


  </script> 

 


 

0
costrak
5/14/2007 7:20:36 PM

More information

 1,  the los of session variables has been  intermittent till 02/05/2007, from that date, with almost no changes by me, session varible loss now occurs

   up to 90% of the time.

2, the websites in question are all placed in sub folders of the root folder which are not created as IIS6 applications.

3, dlls are placed in 1 bin folder outside the website folder but also within the root folder i.e

/htdocs/mywebsite/    would be the website folder

 /htdocs/bin/               would be the bin folder.

 

4, the application hangs often, session variable are often lost from any page

5, similar code runs well in another host, where the website runs on the root folder

0
costrak
5/14/2007 7:39:19 PM
HI,costrak
 
Well, this doesn't work. Can you see why? Yes, it's because of the way Redirect and session variables work.
When you create a new session (that is, the first time you write to a Session variable), ASP.NET sets a volatile cookie on the client that contains the session token. On all subsequent requests, and as long as the server session and the client cookie have not expired, ASP.NET can look at this cookie and find the right session.
Now, what Redirect does is to send a special header to the client so that it asks the server for a different page than the one it was waiting for. Server-side, after sending this header, Redirect ends the response. This is a very violent thing to do. Response.End actually stops the execution of the page wherever it is using a ThreadAbortException.
What happens really here is that the session token gets lost in the battle.
you can do is use the overloaded version of Redirect:
Response.Redirect("~/default.aspx", false);
 
session loss problems can also result from a misconfigured application pool. For example, if the application pool your site is running is configured as a web farm or a web garden (by setting the maximum number of worker processes to more than one), and if you're not using the session service or SQL sessions, incoming requests will unpredictably go to one of the worker processes, and if it's not the one the session was created on, it's lost.
The solutions to this problem is either not to use a web garden if you don't need the performance boost, or use one of the out of process session providers.
 
Another thing that can cause similar problems is if your server has a name that contains underscores. Underscores are not allowed in host names by RFC 952 and may interfere with the ability to set cookies and thus to persist sessions.
 
I hope the above information will be helpful. If you have any issues or concerns, please let me know. It's my pleasure to be of assistance
 

Best Regards,
__________________________________________________
Sincerely,
Rex Lin
Microsoft Online Community Support

If there is any question or the issue is not resolved, please feel free to mark the thread as not resolved
0
Rex
5/15/2007 2:31:00 AM

Hi Rex Lin

 the situation is much improved , thanks, after i used the overloaded redirect.

 

However the site still hangs a lot, an the server has fallen over right now,

 

SYNTAX Question

 using redirects in the sub folder within the root folder, i discovered , by trial an error that the only way to get

redirect to find the right file was by usin

response.redirect("/filename.aspx")  instead of

response.redirect("filename.aspx")

 without the "/" it would attmpt to find a file outside the sub directory

houever, i've noticed that you use

response.redirect("~/filename.aspx")

is the  "~"  important ?

 

 

 

 

0
costrak
5/15/2007 11:19:14 PM

0
costrak
5/17/2007 1:38:17 AM

HI, costrak:

You can check out this article about:

ASP.NET Web Site Paths 

http://msdn2.microsoft.com/en-us/library/ms178116(VS.80).aspx

I hope the above information will be helpful. If you have any issues or concerns, please let me know. It's my pleasure to be of assistance


Best Regards,
__________________________________________________
Sincerely,
Rex Lin
Microsoft Online Community Support

If there is any question or the issue is not resolved, please feel free to mark the thread as not resolved
0
Rex
5/17/2007 2:00:38 AM

0
costrak
5/17/2007 9:22:27 PM

0
costrak
5/17/2007 9:31:31 PM

it looks like my problems where caused by a badly configured server,  this issue is now no longer occuring

since the server was dealt with.

0
costrak
5/27/2007 11:23:03 PM
Reply:

Similar Artilces:

Refreshing a web page before redirecting to a new web page
I am working on a sign up form for my users. Once their data has been successfully added to the database I want to display a message and then redirect them to the main home page after 5 seconds. When I run the code, I never see my Successful message go to my textbox. Any ideas? Code is below:   1 lblInformation.Text = "Email Address Added Successfully! Please Wait..." 2 lblInformation.BackColor = Drawing.Color.Green 3 lblInformation.ForeColor = Drawing.Color.White 4 lblInformation.Font.Bold = True 5 ...

want to allow create new web page and edit exiting web page using my web application?
 I am using asp.net 2.0 VS 2005 pro edition. I want to make web application(web form)  where my uses can go and create simple web page or can create page , so then can add page/edit features let me know if some one know , how to do this , any idea, I want to allow my user to create web page and edit web page using my web applications. some one tell me how to do that Note : I dont want to use HTMl editor or any third party software tools thank you maxmax Hello, There is many ways you can implement this. And to build your application you to need to understand the exact ou...

Session state management using web services.
 Hi all ,i am working of a hospital management system which we desided to develop using atlas frame work. we have created the application main to sections using atlas script call back architecture. we are using scripts to pack the user entered data to the web service and in that web service we are entering the data in to the database.all this happening with out a post back of the page.now comes the problem. we are not being able to handle the user session properties. we came to know that we cant access session variables in web services. we are in a trap now. how we can manage the sessio...

redirect to new web page on session timeout
i have a datagrid containing two columns. these contain some rules read using a dataset(column 1..rule title , column 2. rule status) i have options to edit , delete , create rules.(which open up other web pages) i dont want two users to edit a rule..so i have used application variables to check if someone else is editing the rule i set application[ruleTitle] = 1 if its null or eqaul to zero to prevent other user acessing it. i would set it back to zero when editting done. but if a user just keeps his edit screen idle or closes using the browser Close button(or alt + F4) how am i suppos...

Redirecting to a new web page when the session ends
  Hi, When a user who visits my website, ends the session, I would like to open a new browser window displaying a web page from a url that I specify. Is it possible to write some code in the end_session event of the global.asax file to do this? Also, how does asp.net define the end of a session? Is a session supposed to end when all webpages of a given website are closed and no longer display in the web browser of a given computer? Regards, Sandy  http://www.thequinn.infohttp://www.sksdataservices.comhttp://www.infobasket.info Hi, not directly since Session does n...

Down sides to use Session states to store intermediate values between web pages?
Hi, I am rather new to the world of ASP.NET so please be kind...I am developing a web application that collects informations from the user across several pages. I have been storing the values collected from each page in session variables (ie. Session.Add("key", value);). I am basically collection a bunch of values and displaying them in the end on the confirmation page and also storing them into database in one shot.  Is there a down side to use Session states to store this information? Is there a better way of doing this?Thanks in advance!-Progger You really shoul...

Insert new IE into same web page using ajax aspx.net
Hi all, I am new to C# Ajax aspx Development. I am searching google 3d warehouse   then   want to   integrate with my web application as same  web page in separate IE . Could you please help  me  to work out.   Hi,You can use IFrame to a webpage to open another page.If you have further questions,let me know!Best Regards, Sincerely,Jin-Yu YinMicrosoft Online Community Support Thank you  for  reply to me Jin-yu-yin.  i have done that as per your advice  .Is it possible to get 3d warehouse ...

Using Master Page ...Redirecting to a New Page
 Using Master Page ...Redirecting to a New PageGreetings to youi have master page .. and Web Form it's name 'Defaults2' and this Page Defaults2.aspx it's Inherits from Master page so .. i can't to type this tag <head></head> in Defaults2 because it's will take a header from Master page .. so ,, i want to type this tag in This Page Defaults2    <meta http-equiv="refresh" content="3;url=buy.aspx">if i type this tag in master page .. it's will Redirectiong all page that Inherits from Master Page .. for your informa...

How to get new web app to use .NET 2.0 on Win2K server using .NET 1.1 as default framework?
I have .net framework1.1 and 2.0 on our server running win2K. i have existing applications that uses asp.net 1.1, i also have a new app that use ASP.net 2.0.  how can i set my new .NET 2.0 app to point to asp.net 2.0 without messing up my existing .NET 1.1 apps? To specify the ASP .Net version fro a web application, do the followingIn IIS Manager select the web application -> Properties -> ASP.Net TabSelect  ASP.Net version you want to use for the applicationRegards,PrashantDont forget to click "Mark as Answer" on the post that helped you. But I am running Win2K...

getting a new session id and losing session variables
prb: I have two pages in my app - one on redirect and the other as a new window - that get a new session id from every other page in the app (they both get the same session id) and obviously the session state variables are lost and, therefore, the pages do not look like they should.  All pages are within the same domain and virtual directory. 1. a redirect; session variables are lost; session id is different from the previous page; if you click the BACK button you return to the previous page and the session id is the same as before and the session variables are as they should be2. ...

System.Web.HttpException: Session state can only be used when enableSessionState is set to true, either in a configuration file or in the Page directive !!
Help! I get this error "System.Web.HttpException: Session state can only be used when enableSessionState is set to true, either in a configuration file or in the Page directive" whenever I access (get/set) session object directly (HttpSessionState). When I use HttpContext.Current.Session, I get "System.NullReferenceException: Object reference not set to an instance of an object" This problem started to surface recently and I have no idea what's going on!!! Please help. Thanks Maybe you are using cookies as sessionstate, and have turned off cookies in y...

Session State in Web Farms and Web Gardens Using InProc
Is it possible to do the session state control in any way using InProc State Management. I dont want to Keep a seperate Session State Process or SQL to be used for this.. Please suggest a solution.. Thanks firozOzman..::firozozman::.. If you have web garden, that means multiple processors in one machine and one ASP.NEt worker process per processor serving requests, that is multiple worker processes. Therefore each and every of these processes have separate copy of application state, in-process session state, ASP.NET cache, static data and so on. Basically same goes with web farm exc...

Is it true that you cannot use session variables on web app with with web farms
Is it true that you cannot use session variables on web app with with web farms. IE I my app uses three tiers. If I put each tier on its own server will session vars still work. And if not what would be a work-around. No, that is not true. ASP.NET provides several ways to manage Session in a web farm scenario. Further, they are all based on web.config settings, so you can do your initial development using normal "local process" Session, then just change web.config to move to one of the others. For example, you might switch it to use a common SQL Server as the state server.JimM...

Problems losing the state with SQL Session State in a Web Farm
Having a huge problem using different IIS servers and one SQL Server State. When the user goes from computer A to B the B computer quicks him out to Login again. Any solution? Cheers Al  CheersAlMy BlogMapStats.NETPlease click on 'Mark as Answer' if this post answered your question! Searched the KB: http://support.microsoft.com/?id=325056 Hope it will help....

Web resources about - Losing session variables when using redirect to new web page - asp.net.state-management

Variable - Wikipedia, the free encyclopedia
Text is available under the Creative Commons Attribution-ShareAlike License ;additional terms may apply. By using this site, you agree to the ...

Westpac interest rate rise is one of many variable loan rate rises
WESTPAC is not alone in hitting its owner-occupier customers with a surprise interest rate rise, as dozens of other variable rate home loans ...

Airbnb upgrades variable pricing tool for hosts
Online home rental group Airbnb is rolling out an upgraded variable pricing tool that automatically raises or cuts room rates based on supply ...

Commonwealth Bank raises variable home loan rates
Home owners' mortgage costs are set to rise by hundreds of dollars a year, after the Commonwealth Bank became the latest bank to hike interest ...

CBA lifts variable home loan rates to offset costs associated with stricter capital requirements
The Commonwealth Bank to lift its home loan interest rates independently of the Reserve Bank to partially offset costs associated with stricter ...

Washington Square Signs Spielbergs, Choi Joins Variable and More
... films and an episode of the HBO comedy series "Girls," on which he plays the role of Ray Ploshansky. New York-based creative collective Variable ...

YouTube v10.32 Tweaks Some Interface Elements And Includes Hints About Virtual Reality Content And Variable ...
Forget Update Wednesday! Monday is the new big day. Not only were we treated to the latest M preview release and the official Marshmallow name, ...

"You have to ignore many variables to think women are paid less than men. California is happy to try." ...
Writes Sarah Ketterer in The Wall Street Journal in "The ‘Wage Gap’ Myth That Won’t Die" (which you can get to without subscribing if you Google ...

Expert Reveals the Latest Variable Capacity Technology
Learn about gForce Ultra CRAC equipment, the latest variable capacity technology to lower energy usage and increase reliability.

AD/CVD ruling and overseas capacity expansions are variables to the current PV boom, says EnergyTrend ...
China's National Reform and Development Commission has announced that there will be no significant reduction in feed-in tariff (FiT) rates for ...

Resources last updated: 12/22/2015 8:08:13 PM