Session values to the Controls

praveen.paspulate · October 20th, 2008, 05:11 AM

hi,

The below is the ASP 3.0 code. I am new to ASP 3.0. I am unable to assign the Session Values to the Controls.

Please advice me.

<%
Option Explicit

Dim sCaption
Dim bPageProcessed
Dim sError

sCaption = "Dealer Search"
if IsEmpty(Session("CallHistory")) then
    Session("CallHistory") = "abc"
elseif Session("CallHistory") = "Back" then
    'Session("CallHistory") = Session("SearchCompany") & "pip"

        '***********(1.1)****************************
    'txtCompany.value = Session("SearchCompany")
    'txtContact.value = Session("SearchContact")
    'txtIMGNum.value = Session("SearchIMGNum")
    'txtCity.value = Session("SearchCity")
    'lbState.getValue() = Session("SearchState")
    'txtZipCode.value = Session("SearchZipCode")
    'txtPhone1.value = Session("SearchPhone1")
    'txtPhone2.value = Session("SearchPhone2")
    'txtPhone3.value = Session("SearchPhone3")
    'txtEmail.value = Session("SearchEmail")
    'txtAltNum.value = Session("SearchAltNum")
    'lbxStatus.getValue() = Session("SearchStatus")
    'txtAddress1.value = Session("SearchAddress1")
    'txtJobNum.value = Session("SearchJobNum")
    'lbContactType.getValue() = Session("SearchContactType")
        '************end*******************************

    'Session("CallHistory") = "None"
    'btnSearch_onclick()
End if

%>

<html>
<head>
<title>IMaGine</title>
</head>
<link rel="stylesheet" type="text/css" href="i_style.css">
<body>

<% ' VI 6.0 Scripting Object Model Enabled %>

<% if StartPageProcessing() Then Response.End() %>
<form name="thisForm" METHOD="post">

<script ID="serverEventHandlersVBS" LANGUAGE="vbscript" RUNAT="Server">

Sub rsDealerList_onbeforeopen()
    rsDealerList.setParameter 1, Replace(txtCompany.value,"'", "''")
    rsDealerList.setParameter 2, Replace(txtContact.value ,"'", "''")
    rsDealerList.setParameter 3, txtIMGNum.value
    rsDealerList.setParameter 4, Replace(txtCity.value ,"'", "''")
    rsDealerList.setParameter 5, lbState.getValue()
    rsDealerList.setParameter 6, txtZipCode.value
    rsDealerList.setParameter 7, txtPhone1.value & txtPhone2.value & txtPhone3.value
    rsDealerList.setParameter 8, txtEmail.value
    rsDealerList.setParameter 9, txtAltNum.value
    rsDealerList.setParameter 10, lbxStatus.getValue()
    rsDealerList.setParameter 11, Replace(txtAddress1.value ,"'", "''")
    rsDealerList.setParameter 12, txtJobNum.value
    rsDealerList.setParameter 13, lbContactType.getValue()

End Sub

Sub btnNew_onclick()
    Response.Redirect "dt_dlr_profile.asp?pDealerId=0&pNew=1"
End Sub

Sub btnSearch_onclick()
    If Validate() Then
        rsDealerList.open
        Session("SearchCompany") = Replace(txtCompany.value,"'", "''")
        Session("SearchContact") = Replace(txtContact.value ,"'", "''")
        Session("SearchIMGNum") = txtIMGNum.value
        Session("SearchCity") = Replace(txtCity.value ,"'", "''")
        Session("SearchState") = lbState.getValue()
        Session("SearchZipCode") = txtZipCode.value
        Session("SearchPhone1") = txtPhone1.value
        Session("SearchPhone2") = txtPhone2.value
        Session("SearchPhone3") = txtPhone3.value
        Session("SearchEmail") = txtEmail.value
        Session("SearchAltNum") = txtAltNum.value
        Session("SearchStatus") = lbxStatus.getValue()
        Session("SearchAddress1") = Replace(txtAddress1.value ,"'", "''")
        Session("SearchJobNum") = txtJobNum.value
        Session("SearchContactType") = lbContactType.getValue()
    End If
End Sub

Function Validate()
    Dim sPhone
    sPhone = Trim(txtPhone1.value & txtPhone2.value & txtPhone3.value)

    If Trim(txtCompany.value & _
        txtContact.value & _
        txtIMGNum.value & _
        txtAddress1.value & _
        txtCity.value & _
        lbState.getValue() & _
        lbContactType.getValue() & _
        txtZipCode.value & _
        txtZipCode.value & _
        sPhone & _
        txtEmail.value & _
        txtJobNum.value & _
        txtAltNum.value ) = "" and _
        lbxStatus.getValue() <> "0" Then
            sError = sError & "<li>Need at least one search value</li>"
    End If

    If sError <> "" Then
        sError = "Please check following item(s):" & sError
        Validate = false
    Else
        Validate = true
    End If
End Function

</script>



<SCRIPT LANGUAGE="JavaScript" RUNAT="server">
function _initrsState()
{
    var DBConn = Server.CreateObject('ADODB.Connection');
    DBConn.ConnectionTimeout = Application('dbConnDlr_ConnectionTimeout');
    DBConn.CommandTimeout = Application('dbConnDlr_CommandTimeout');
    DBConn.CursorLocation = Application('dbConnDlr_CursorLocation');
    DBConn.Open(Application('dbConnDlr_ConnectionStrin g'), Application('dbConnDlr_RuntimeUserName'), Application('dbConnDlr_RuntimePassword'));
    var cmdTmp = Server.CreateObject('ADODB.Command');
    var rsTmp = Server.CreateObject('ADODB.Recordset');
    cmdTmp.ActiveConnection = DBConn;
    rsTmp.Source = cmdTmp;
    cmdTmp.CommandType = 1;
    cmdTmp.CommandTimeout = 10;
    cmdTmp.CommandText = 'SELECT \'\' AS Abbreviation, \'\' AS description UNION SELECT Abbreviation, description FROM cmn_dealertrack . dbo.vState with (nolock) ORDER BY Abbreviation';
    rsTmp.CacheSize = 10;
    rsTmp.CursorType = 0;
    rsTmp.CursorLocation = 2;
    rsTmp.LockType = 1;
    rsState.setRecordSource(rsTmp);
    rsState.open();
}
function _rsState_ctor()
{
    CreateRecordset('rsState', _initrsState, null);
}
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="server">
function _initrsContactType()
{
    var DBConn = Server.CreateObject('ADODB.Connection');
    DBConn.ConnectionTimeout = Application('dbConnDlr_ConnectionTimeout');
    DBConn.CommandTimeout = Application('dbConnDlr_CommandTimeout');
    DBConn.CursorLocation = Application('dbConnDlr_CursorLocation');
    DBConn.Open(Application('dbConnDlr_ConnectionStrin g'), Application('dbConnDlr_RuntimeUserName'), Application('dbConnDlr_RuntimePassword'));
    var cmdTmp = Server.CreateObject('ADODB.Command');
    var rsTmp = Server.CreateObject('ADODB.Recordset');
    cmdTmp.ActiveConnection = DBConn;
    rsTmp.Source = cmdTmp;
    cmdTmp.CommandType = 1;
    cmdTmp.CommandTimeout = 10;
    cmdTmp.CommandText = 'SELECT 0 AS ContactByTypeId, \'\' AS Description, \'\' AS PrtAbrv UNION SELECT ContactByTypeId, Description, PrtAbrv FROM tblContactByType where contactbytypeid not in (6,4,1,5,3,17,18,19,20,21,22,23,24) order by description';
    rsTmp.CacheSize = 10;
    rsTmp.CursorType = 0;
    rsTmp.CursorLocation = 2;
    rsTmp.LockType = 1;
    rsContactType.setRecordSource(rsTmp);
    rsContactType.open();
}
function _rsContactType_ctor()
{
    CreateRecordset('rsContactType', _initrsContactType, null);
}
</SCRIPT>


<SCRIPT LANGUAGE="JavaScript" RUNAT="server">
function _setParametersrsDealerList()
{
}
function _initrsDealerList()
{
    rsDealerList.advise(RS_ONBEFOREOPEN, _setParametersrsDealerList);
    var DBConn = Server.CreateObject('ADODB.Connection');
    DBConn.ConnectionTimeout = Application('dbConnDlr_ConnectionTimeout');
    DBConn.CommandTimeout = Application('dbConnDlr_CommandTimeout');
    DBConn.CursorLocation = Application('dbConnDlr_CursorLocation');
    DBConn.Open(Application('dbConnDlr_ConnectionStrin g'), Application('dbConnDlr_RuntimeUserName'), Application('dbConnDlr_RuntimePassword'));
    var cmdTmp = Server.CreateObject('ADODB.Command');
    var rsTmp = Server.CreateObject('ADODB.Recordset');
    cmdTmp.ActiveConnection = DBConn;
    rsTmp.Source = cmdTmp;
    cmdTmp.CommandType = 4;
    cmdTmp.CommandTimeout = 10;
    cmdTmp.CommandText = '"spFindDealer"';
    rsTmp.CacheSize = 10;
    rsTmp.CursorType = 3;
    rsTmp.CursorLocation = 3;
    rsTmp.LockType = 1;
    rsDealerList.setRecordSource(rsTmp);
}
function _rsDealerList_ctor()
{
    CreateRecordset('rsDealerList', _initrsDealerList, null);
}
</SCRIPT>

<table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="5">
    <tr>
        <td class="actionBar">
            Actions: </b>
            

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _initbtnNew()
{
    btnNew.value = 'Add New';
    btnNew.setStyle(0);
}
function _btnNew_ctor()
{
    CreateButton('btnNew', _initbtnNew, null);
}
</script>
<% btnNew.display %>

        </td>
        <td>SessionName: <%=Session("SearchJobNum") %> <%=Session("CallHistory") %>
        </td>
    </tr>
</table>

<table WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
    <tr>
        <td>

<table BORDER="0" CELLSPACING="1" CELLPADDING="3" width=100%>
    <tr>
        <td colspan="6" class="header">
        Please enter dealer information below and press the search button.
        </td>
    </tr>
    <tr>
        <td class="detail" align="right">Company:</td>
        <td class="detail">


<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtCompany()
{
    txtCompany.setStyle(TXT_TEXTBOX);
    txtCompany.setMaxLength(20);
    txtCompany.setColumnCount(15);
}
function _txtCompany_ctor()
{
    CreateTextbox('txtCompany', _inittxtCompany, null);
}
</script>
<% txtCompany.display %>

        </td>
        <td class="detail" align="right">Contact(last name):</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtContact()
{
    txtContact.setStyle(TXT_TEXTBOX);
    txtContact.setMaxLength(20);
    txtContact.setColumnCount(15);
}
function _txtContact_ctor()
{
    CreateTextbox('txtContact', _inittxtContact, null);
}
</script>
<% txtContact.display %>

        </td>
        <td class="detail" align="right">Dealer ID:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtIMGNum()
{
    txtIMGNum.setStyle(TXT_TEXTBOX);
    txtIMGNum.setMaxLength(20);
    txtIMGNum.setColumnCount(8);
}
function _txtIMGNum_ctor()
{
    CreateTextbox('txtIMGNum', _inittxtIMGNum, null);
}
</script>
<% txtIMGNum.display %>

        </td>
    </tr>

    <tr>
        <td class="detail" align="right">Address:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtAddress1()
{
    txtAddress1.setStyle(TXT_TEXTBOX);
    txtAddress1.setMaxLength(20);
    txtAddress1.setColumnCount(15);
}
function _txtAddress1_ctor()
{
    CreateTextbox('txtAddress1', _inittxtAddress1, null);
}
</script>
<% txtAddress1.display %>

        </td>
        <td class="detail" colspan=2>
        <table width="100%" border="0" cellpadding=0 cellspacing=0>
            <tr>
        <td class="detail" align="right">City:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtCity()
{
    txtCity.setStyle(TXT_TEXTBOX);
    txtCity.setMaxLength(20);
    txtCity.setColumnCount(10);
}
function _txtCity_ctor()
{
    CreateTextbox('txtCity', _inittxtCity, null);
}
</script>
<% txtCity.display %>

        </td>
        <td class="detail" align="right">State:</td>
        <td class="detail">


<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _initlbState()
{
    rsState.advise(RS_ONDATASETCOMPLETE, 'lbState.setRowSource(rsState, \'Abbreviation\', \'Abbreviation\');');
}
function _lbState_ctor()
{
    CreateListbox('lbState', _initlbState, null);
}
</script>
<% lbState.display %>

        </td>
        <td class="detail" align="right">Zip:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtZipCode()
{
    txtZipCode.setStyle(TXT_TEXTBOX);
    txtZipCode.setMaxLength(20);
    txtZipCode.setColumnCount(5);
}
function _txtZipCode_ctor()
{
    CreateTextbox('txtZipCode', _inittxtZipCode, null);
}
</script>
<% txtZipCode.display %>

        </td>

            </tr>
        </table>
        </td>
        <td class="detail" align="right">Status:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _initlbxStatus()
{
    lbxStatus.addItem('Active', '1');
    lbxStatus.addItem('Inactive', '0');
    lbxStatus.addItem('All', '%');
}
function _lbxStatus_ctor()
{
    CreateListbox('lbxStatus', _initlbxStatus, null);
}
</script>
<% lbxStatus.display %>

        </td>
    </tr>

    <tr>
        <td class="detail" align="right">Phone:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtPhone1()
{
    txtPhone1.setStyle(TXT_TEXTBOX);
    txtPhone1.setMaxLength(3);
    txtPhone1.setColumnCount(3);
}
function _txtPhone1_ctor()
{
    CreateTextbox('txtPhone1', _inittxtPhone1, null);
}
</script>
<% txtPhone1.display %>


<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtPhone2()
{
    txtPhone2.setStyle(TXT_TEXTBOX);
    txtPhone2.setMaxLength(3);
    txtPhone2.setColumnCount(3);
}
function _txtPhone2_ctor()
{
    CreateTextbox('txtPhone2', _inittxtPhone2, null);
}
</script>
<% txtPhone2.display %>


<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtPhone3()
{
    txtPhone3.setStyle(TXT_TEXTBOX);
    txtPhone3.setMaxLength(4);
    txtPhone3.setColumnCount(4);
}
function _txtPhone3_ctor()
{
    CreateTextbox('txtPhone3', _inittxtPhone3, null);
}
</script>
<% txtPhone3.display %>

        </td>
        <td class="detail" colspan=2> Email:

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtEmail()
{
    txtEmail.setStyle(TXT_TEXTBOX);
    txtEmail.setMaxLength(50);
    txtEmail.setColumnCount(30);
}
function _txtEmail_ctor()
{
    CreateTextbox('txtEmail', _inittxtEmail, null);
}
</script>
<% txtEmail.display %>

        </td>

        <td class="detail" align="right">Alt #:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtAltNum()
{
    txtAltNum.setStyle(TXT_TEXTBOX);
    txtAltNum.setMaxLength(10);
    txtAltNum.setColumnCount(10);
}
function _txtAltNum_ctor()
{
    CreateTextbox('txtAltNum', _inittxtAltNum, null);
}
</script>
<% txtAltNum.display %>

        </td>

    </tr>

    <tr>

        <td class="detail" align="Right">Job #:</td>
        <td class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _inittxtJobNum()
{
    txtJobNum.setStyle(TXT_TEXTBOX);
    txtJobNum.setMaxLength(10);
    txtJobNum.setColumnCount(10);
}
function _txtJobNum_ctor()
{
    CreateTextbox('txtJobNum', _inittxtJobNum, null);
}
</script>
<% txtJobNum.display %>

        </td>
        <td class="detail" align="Right">Call Status:</td>
        <TD class="detail">

<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _initlbContactType()
{
    rsContactType.advise(RS_ONDATASETCOMPLETE, 'lbContactType.setRowSource(rsContactType, \'Description\', \'ContactByTypeId\');');
}
function _lbContactType_ctor()
{
    CreateListbox('lbContactType', _initlbContactType, null);
}
</script>
<% lbContactType.display %>

</TD>
<td class="detail" colspan="2"></td>

    </tr>

    <tr>
        <td colspan="6" class="detail" align = "center">
            
<SCRIPT LANGUAGE=JavaScript RUNAT=Server>
function _initbtnSearch()
{
    btnSearch.value = 'Search';
    btnSearch.setStyle(0);
}
function _btnSearch_ctor()
{
    CreateButton('btnSearch', _initbtnSearch, null);
}
</script>
<% btnSearch.display %>

        </td>
    </tr>
</table>

<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=5>
    <TR>
        <TD class="error">
            <%=sError%>
        </TD>
    </TR>
</TABLE>

<%
if Session("CallHistory") = "Back" then
    txtCompany.value = Session("SearchCompany")
    txtContact.value = Session("SearchContact")
    txtIMGNum.value = Session("SearchIMGNum")
    txtCity.value = Session("SearchCity")
    'lbState.setValue() = Session("SearchState")
    txtZipCode.value = Session("SearchZipCode")
    txtPhone1.value = Session("SearchPhone1")
    txtPhone2.value = Session("SearchPhone2")
    txtPhone3.value = Session("SearchPhone3")
    txtEmail.value = Session("SearchEmail")
    txtAltNum.value = Session("SearchAltNum")
    'lbxStatus.getValue() = Session("SearchStatus")
    txtAddress1.value = Session("SearchAddress1")
    txtJobNum.value = Session("SearchJobNum")
    'lbContactType.getValue() = Session("SearchContactType")
    Session("CallHistory") = "None"
    'btnSearch_onclick()
end if
%>

<%
if rsDealerList.getCount() > 0 then
%>
<p>
<table BORDER="0" CELLSPACING="1" CELLPADDING="3" width="100%">
    <tr>
        <td class="header">Dealer ID</td>
        <td class="header">Company</td>
        <td class="header">City</td>
        <td class="header">State</td>
        <td class="header">Zip</td>
    </tr>
<%
    do while not rsDealerList.EOF
%>
    <tr>
        <td class="detail"><a HREF="dt_dlr_profile_new.asp?pDealerId=<%=rsDealer List.fields.getValue("DealerId")%>"><%=rsDealerLis t.fields.getValue("IMGCode")%></a></td>
        <td class="detail"><%=rsDealerList.fields.getValue("Na me")%></td>
        <td class="detail"><%=rsDealerList.fields.getValue("Ci ty")%></td>
        <td class="detail"><%=rsDealerList.fields.getValue("St ate")%></td>
        <td class="detail"><%=rsDealerList.fields.getValue("Zi p")%></td>
    </tr>
<%
        rsDealerList.moveNext
    loop
%>
</table>
<%
elseif rsDealerList.isOpen() then
    Response.Write "There are no Dealers to display."
end if

rsDealerList.close
%>
        </td>
    </tr>
</table>

<% ' VI 6.0 Scripting Object Model Enabled %>
<% EndPageProcessing() %>
</form>

</body>
</html>

mat41 · October 20th, 2008, 06:31 PM

Constructivly - this is not the way to get the best help on forums. If possible you should post the offending code only, point out where the error or trouble spot is and detailed errors if any. If you are lucky someone may wade through all this code. IMO it just doesnt look like you have tried to help yourself but more importantly not made it easy for others to help you.

IMO - Session variables should be used sparingly and as a last resort. Form variables and querystrings are a much better use of resources

Wind is your friend
Matt
www.elitemarquees.com.au

alliancejhall · October 21st, 2008, 10:43 AM

yes please only post the portion of code in which your error is occurring. So I'll assume you are having issues with this part:

sCaption = "Dealer Search"
if IsEmpty(Session("CallHistory")) then
    Session("CallHistory") = "abc"
elseif Session("CallHistory") = "Back" then
    'Session("CallHistory") = Session("SearchCompany") & "pip"

        '***********(1.1)****************************
    'txtCompany.value = Session("SearchCompany")

first you have option explicit on which means you can't cast an object to a string so let's tweak what you almost have:

if String.IsNullOrEmpty(Session("CallHistory").ToStri ng) then
    Session("CallHistory") = "abc"
elseif Session("CallHistory").ToString = "Back" then
    Session("CallHistory") = Session("SearchCompany").ToString & "pip"

        '***********(1.1)****************************
    txtCompany.value = Session("SearchCompany").ToString

This should hopefully help and get you started. Please only post the related code in which you are having the issue to make it easier for us to help with out sifting through a page full of code.

Jason Hall