Regaarding the Navigational button in ASP

[sush1512]

The navigational button (<<) is not working correctly when doing an account search from the Account search page. . Data entered in the account search was 22121% - which returned a screen of account/cat matching the account search. In this case the first page was displayed and showed a total of 5 pages -. The > and >> navigation buttons as well as the < button function as expected. If you select the << navigational button, the full 38 page of accounts is returned - The << should return the user to the first of the pages that were returned on the original search and not the full account list.

[jhardman]

hmm. show your code. or at least explain how the thing was set up in the first place.

Jared

[sush1512]

hmm. show your code. or at least explain how the thing was set up in the first place.

Jared

Here's the code:

<%Server.ScriptTimeout=185
Response.Buffer=true
Response.Expires = -1
%>
<!--#INCLUDE VIRTUAL="/ccpscripts/common/ccpCommon.asp"-->
<!--#INCLUDE VIRTUAL="/ccpscripts/common/adovbs.asp"--> 
<!--#INCLUDE VIRTUAL="/ccpscripts/common/ccpSecurity.asp"-->
<!--#INCLUDE VIRTUAL="/ccpscripts/common/WebServiceCommon.asp"-->
 
<script language="javascript" type="text/javascript">
    var agt = navigator.userAgent.toLowerCase();
    var is_ie4  = agt.indexOf("msie 4.0")!=-1;
    var is_ie5up  = agt.indexOf("msie 5.0")!=-1;
    var style = "pc";
 
    if (navigator.platform != "Win32")
    {    style = "mac_ns4";
        if (is_ie5up)
            style="mac_ie";
            if (is_ie4)
            style="mac_ie4";
    }
    else
    {    if (navigator.appName == "Netscape")
        {    if(parseInt(navigator.appVersion) >= 5)
            style+="ns6";
            else
            style+="ns4";
        }
    }
    document.write("<link rel='stylesheet' type='text/css' href='/Includes/css/site_"+style+".css'>");
 
function highlightRow (element, color1) {
    if (element) {
        element.bgColor = color1;} 
    }    
 
    function docLoad(){    
    document.forms[0].txtAccount.focus();
    }
 
    function runSubmit(target){
        if (target == '1') {
            document.forms[0].action = '/ccpscripts/Help/Help.asp?screenid=1';
            document.forms[0].submit();
        }
        else if (target == '2'){
            this.close();
        }
        else if (target == '3') {
            //document.forms[0].hdnflag.value = '1';
            //document.forms[0].hdnPageCount.value = '0';
            document.forms[0].action = '/ccpscripts/TEO/AccStudySearch.asp?hdnflag=1';
            document.forms[0].submit();
        }
        else
        { if (target == '4'){
            document.forms[0].hdnPageNo.value = '1';
            }
            if (target == '5'){
            document.forms[0].hdnPageNo.value = parseInt(document.forms[0].hdnPageNo.value) - 1;
            }    
            if (target == '6'){
            document.forms[0].hdnPageNo.value = parseInt(document.forms[0].hdnPageNo.value) + 1;
            }    
            if (target == '7'){
            document.forms[0].hdnPageNo.value = parseInt(document.forms[0].hdnPageCount.value);
            }    
            if (target == '8'){
            document.forms[0].hdnPageNo.value = parseInt(document.forms[0].ThisPageNo.value);
            }
            document.forms[0].action = '/ccpscripts/TEO/AccStudySearch.asp?hdnflag=1';
            document.forms[0].submit();        
        }
    }    
    function AccountSelect(Account,StudyCd){        
        window.opener.document.forms[0].txtAccount.value=Account;
        window.opener.document.forms[0].txtStudyCode.value=StudyCd;
        this.close();
    }
 
    function trim(sVal){
    sWrk = "";
        for (i=0; i<=sVal.length; i++){
            if (!(sVal.charAt(i) == " ")){
                sWrk = sWrk + sVal.charAt(i);
            }
        }
        return sWrk;
    }
    function isNumber(item)    {    
        var sVal = item.value;
        for(i=0;i<sVal.length;i++)    {
            if(!(sVal.charAt(i) >= '0' && sVal.charAt(i) <= '9')){
                alert("\nNot a Valid Number!");
                item.value = '';
                item.focus();
                return false;
                }
            }
        return true;
        }
</script>
 

continues...

<%
 
Sub Show_Menu()
    Response.Write("<TR><TD ALIGN=RIGHT COLSPAN=2>")
    Response.Write("<A class='tablelink' href=""javascript:runSubmit(2);"" onmouseout=""window.status='';return true;"" onmouseover=""window.status='Close';return true;"">" &"Close</A> | ")
    Response.Write("<A class='tablelink' href=""javascript:runSubmit(1);"" onmouseout=""window.status='';return true;"" onmouseover=""window.status='Help';return true;"">" &"?</A>")
    Response.Write("</TD></TR>")
End Sub
Dim sPageNo,sPageCount,sCompany,sServiceId,hdnflag 
hdnflag = SecReq("hdnflag")
'respart1 = Request("{pageFlow.xmlRetrieveResp1}")
'Response.Write Server.HTMLEncode(respart1)
'Response.End   
    If Len(SecReq("Company")) > 0 Then 
        sCompany = SecReq("Company")
    ElseIf Len(SecReq("hidCompany")) > 0 Then 
        sCompany = SecReq("hidCompany")
    End If
    If Len(SecReq("txtAccount")) > 0 Then
        Account = UCase(SecReq("txtAccount"))
    End IF
    If Len(SecReq("txtStudyCD")) > 0 Then
        StudyCD = UCase(SecReq("txtStudyCD"))
    End IF    
    If Len(SecReq("hdnflag")) > 0 Then
        hdnflag = UCase(SecReq("hdnflag"))
    End IF    
 
    'sDNS = GetDNS(sCompany)
    GET_DBNameAndRegion sCompany,true
 
    Response.Write("<html>" & vbcrlf)
    Response.Write("<head>" & vbcrlf)
    Response.Write("<title>Select Account</title>" & vbcrlf)
    Response.Write("</head>" & vbcrlf)
    Response.Write("<body onload=" & """" & "javascript:docLoad();" & """" & ">" & vbcrlf)    
    Response.Write("<FORM Name=" & """" & "GetAccount" & """" & " Action='javascript:runSubmit(3);' Method=POST >" & vbcrlf)
 
    Response.Write("<TABLE width='450' cellspacing='0' border=0 cellpadding = '4'>")
    Call Show_Menu
    Response.Write("<TR class='tablehead'><th align='left' colspan = 4>Search Account</th></TR>")
    Response.Write("<tr class='ltBlGr'><td class='tablebodycopy'  colspan = 4>Please enter first few characters of Account or Study Code for search.</td></tr>")
    Response.Write("<tr><td class=field align=right width='20%'>Account : </td><td><Input Type='Text' Name='txtAccount' Value="""&sAccount&""" Size='4'>")
    Response.Write("</td></tr>")
    Response.Write("<tr><td class=field align=right width='20%'>Study Code : </td><td><Input Type='Text' Name='txtStudyCD' value="""&sStudyCD&""" Size='4'></td></tr>")
    Response.Write("<tr><td>&nbsp;</td><td ><a href='javascript:runSubmit(3);'><img src='/images/buttons/icn_go.gif' border=0></A></td></tr>")
    Response.Write("<tr><td><Br></td><TR>")    
    Response.Write("</TABLE>")
 
    Response.Write("<table width='450' cellpadding='5' cellspacing='0' border='0'>")
    Response.Write("<tr class='ltBlGr'>")
    Response.Write("<td class='tablebodycopy'>Account</td>")
    Response.Write("<td class='tablebodycopy'>Study Code</td>")
    Response.Write("</tr>")    
    Response.Write("<Input type=Hidden Name=hidCompany value="""&sCompany&""">")  
 
    If hdnflag = "1" Then
 
        If Request.Form("hdnPageNo") > 1 Then
            sPageNo =  Trim(Request.Form("hdnPageNo"))
            'srini COEP West Changes
            'SchemaLocation = "http://cottzd05.ebiz.verizon.com:7003/xsd/ssract/SSRACT_LOAD_PAGE.xsd"
            SchemaLocation = ccc_XSDLocation & "ssract/SSRACT_LOAD_PAGE.xsd"
            'SchemaLocation = COEPGenericXSDLocation & "SSRACT_LOAD_PAGE.xsd"
 
            If Len(SecReq("hidServiceId")) > 0 Then
                sServiceId = SecReq("hidServiceId")
            End IF    
        Else    
            sPageNo = 1
            'SchemaLocation = "http://cottzd05.ebiz.verizon.com:7003/xsd/ssract/SSRACT_RETRIEVE_ALL.xsd"
            SchemaLocation = ccc_XSDLocation & "ssract/SSRACT_RETRIEVE_ALL.xsd"
           'SchemaLocation = COEPGenericXSDLocation & "SSRACT_RETRIEVE_ALL.xsd"
        End If    
        'sPageCount = Trim(Request.Form("hdnPageCount"))
        sAccount =  Account & "%"
        sStudyCD =     StudyCD  & "%"
        'srini COEP West Changes
        'SchemaLocation = COEPGenericXSDLocation & "CCPPLUS_GENERIC_ACCT_CAT_RETRIEVE_ALL.xsd"
 
        Dim xmlString
        'xmlString = "<?xml version=""1.0"" encoding=""UTF-8""?>"
        xmlString = "<REQUEST xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xsi:noNamespaceSchemaLocation="""&SchemaLocation&""">"
        xmlString = xmlString & "<HDR>"
        If sPageNo = 1 Then
            xmlString = xmlString & "<SERVICE_ID/>"
        Else
            xmlString = xmlString & "<SERVICE_ID>"&sServiceId&"</SERVICE_ID>"
        End If
        xmlString = xmlString & "<SERVICE_NAME>SSRACT</SERVICE_NAME>"
        If sPageNo = 1 Then
            xmlString = xmlString & "<TASK>RETRIEVE_ALL</TASK>"
        Else
            xmlString = xmlString & "<TASK>LOAD_PAGE</TASK>"
        End If    
        xmlString = xmlString & "<USER_ID>" & ccc_Usr & "</USER_ID><PASSWORD>" & ccc_Password & "</PASSWORD>" &_
            "<DBNAME>"& vCCCDBNAME &"</DBNAME>"
        xmlString = xmlString & "</HDR>"
        xmlString = xmlString & "<REQUEST_DATA>"
        If sPageNo = 1 Then
            xmlString = xmlString & "<CRITERIA>"
            'If  (Len(StudyCD) > 0) Then
                xmlString = xmlString & "<STUDYCD>"&EncodeValue(UCase(sStudyCD))&"</STUDYCD>"
            'End If
            'If (Len(Account) > 0) Then
                xmlString = xmlString & "<SUBSIDAC>"&EncodeValue(UCase(sAccount))&"</SUBSIDAC>"
            'End If
            xmlString = xmlString & "</CRITERIA>"
        Else
            xmlString = xmlString & "<PAGE_NO>"&sPageNo&"</PAGE_NO>"
        End If    
        xmlString = xmlString & "</REQUEST_DATA>"
        xmlString = xmlString & "</REQUEST>"
        'xmlString2 = dbquoteornull(xmlString)
        'Response.Write Server.HTMLEncode(xmlString)   
        'Response.End 
        'xmlString = webHTTPRequest(xmlString,COEPURL)
        xmlString = WebServiceCall(xmlString,"coepWestd05",180000)
        'Response.Write Server.HTMLEncode(ResponseXML)   
        'Response.End 
        Dim xmlDoc,ResponseXML        
        Set xmlDoc = Server.CreateObject("msxml2.DOMDocument")        
        Set ResponseXML = Server.CreateObject("Microsoft.XMLDOM")        
        ResponseXML=xmlString
        xmlDoc.async = False
        xmlDoc.loadXML(ResponseXML)    
        resXML =  ResponseXML         
        'Response.Write Server.HTMLEncode(ResponseXML)   
        'Response.End 

continues...

 
        if resXML<>"" then
            Set oStatusCode = xmlDoc.selectSingleNode("//STATUS_CODE") 
            If (oStatusCode Is Nothing) Then
                Response.Write("<tr><TD colspan=4 class='Error'>Can not connect to COEP Web Service. Please Try again Later.</TD></TR>")
                Response.End  
            End If
 
            Set aSingleAttrib11 = xmlDoc.selectSingleNode("//MESSAGE")
            'Response.Write  aSingleAttrib11.text
            'Response.End          
            If oStatusCode.text = 0 Then
                'Get service ID for paging.
                Set oServiceId =  xmlDoc.selectSingleNode("//SERVICE_ID")
                sServiceId = oServiceId.text
                Set oServiceId = Nothing
 
                Set oTotalRecords =  xmlDoc.selectSingleNode("//TOTAL_RECORDS")
                sTotalRecords = oTotalRecords.text
                Set oTotalRecords =   Nothing
 
                If sTotalRecords > 0 Then
                    If trim(aSingleAttrib11.text) = "DONE" Then    
                         Set aSingleAttrib1 = xmlDoc.selectSingleNode("//TOTAL_PAGES")    
                         sPageCount = aSingleAttrib1.text
                         Set aSingleAttrib1 = Nothing     
                        i = 0
                        'If sPageNo > "0" Then
                            Set RECORD_Set =  xmlDoc.selectNodes("//RECORD")
 
                            for each RECORD in RECORD_Set
                                 Response.Write("<tr onmouseover=" & """" & "highlightRow (this, '#CCCCCC');" & """" & "onmouseout=" & """" & "highlightRow (this, 'white');" & """" & ">")            
                                Set oSUBSIDAC = xmlDoc.getElementsByTagName("SUBSIDAC").item(i)
                                Set oSTUDYCD = xmlDoc.getElementsByTagName("STUDYCD").item(i)
                                response.Write("<td><a Class=TableLink HREF=" & """" & "javascript:AccountSelect('" & oSUBSIDAC.text & "','"&oSTUDYCD.text& "');" & """" & ">"& oSUBSIDAC.text &"</a></td>")            
                                response.Write("<td>"& oSTUDYCD.text &"</td>")
                                response.Write ("</tr>")
                            Set oSUBSIDAC = nothing
                            Set oSTUDYCD = nothing
                            i = i+1
                            next
                            set RECORD_Set = nothing
                        'Else
                        '    Response.Write("<tr><td colspan='4' class=redtext>No records found..</td></tr>")
                        'End If
                    Else
                        Response.Write("<TR><TD colspan='7' class='Error'>COEP: "& aSingleAttrib11.text&" </td></tr>")
                    End If
                Else               
                    Response.Write("<tr><td colspan='4' class='Error'>COEP: No records found..</td></tr>")    
                End If
            ElseIf     oStatusCode.text <> 0 Then
                Response.Write ("<tr><td colspan='4' class='Error'>COEP: "& aSingleAttrib11.text & "</td></tr>")    
                'Response.End  
            End    If    
            Set xmlDoc = nothing
            Set ResponseXML = nothing    
        End If
        Response.Write("<Input type=hidden name='hdnPageNo' Value='" & sPageNo & "'>")
        Response.Write("<Input type=hidden name='hdnPageCount' Value='" & sPageCount & "'>")
 
        Response.Write("<Input type=Hidden Name=hidServiceId value="""&sServiceId&""">")  
 
        Response.Write ("</table>")        
        Response.Write("<TABLE width='450'>")
        Response.Write("<TR><TD COLSPAN=6><HR></TD></TR>")
        if resXML<>"" then
            If sPageCount > "1" Then        
                If sPageNo = "1" Then
                    active1 = "disabled=true"
                    active2 = "disabled=true"
                End If
                If sPageNo = sPageCount Then
                    active3 = "disabled=true"
                    active4 = "disabled=true"
                End If            
                Response.Write("<tr><td colspan=4><TABLE>")            
                Response.Write("<tr class='field' width='100%'>")
                Response.Write("<td class='TableBodyCopy'><Input name='input' Type='button'  "&active1&" value= '  &lt;&lt;  ' onclick='javascript:runSubmit(4);'></td>")
                Response.Write("<td class='TableBodyCopy'><Input name='input' Type='button'  "&active2&" value= '   &lt;   ' onclick='javascript:runSubmit(5);'></td>")
                Response.Write("<td class='TableBodyCopy'><Input name='input' Type='button'  "&active3&" value= '   &gt;   ' onclick='javascript:runSubmit(6);'></td>")
                Response.Write("<td class='TableBodyCopy'><Input name='input' Type='button'  "&active4&" value= '  &gt;&gt;  ' onclick='javascript:runSubmit(7);'></td>")
                Response.Write("<td class='TableBodyCopy'>Go To Page</td>")
                Response.Write("<td><input type='text' size='3' maxlength='3' name='ThisPageNo' value="&sPageNo&" onblur='isNumber(document.forms[0].ThisPageNo);'></td>")
                Response.Write("<td><b> Of </b>    </td>")
                Response.Write("<td><b>"&sPageCount&"</b></td>")
                Response.Write("<td class='TableBodyCopy'><Input name='input' Type='button' "&active&" value= ' GO ' onclick='javascript:runSubmit(8);'></td>")        
                Response.Write("</tr></table></td></tr>")        
            End If
        End If
    End If
        Response.Write("<Input type=hidden name='hdnflag' Value='" & hdnflag & "'>")
        Call Show_Menu
        Response.Write("</TABLE>")    
        Response.Write("</FORM>")
    %>
 
<!--#INCLUDE VIRTUAL="/COARApp/Scripts/Common/Footer.asp"-->
<%
Response.Write("</body>")
Response.Write("</html>")
%>

[sush1512]

hmm. show your code. or at least explain how the thing was set up in the first place.

Jared

how do i send the screen shots to u
so tht it will explain better


there is

Account code text box

the value from the text box is not stored .... hence the pattern which i give in the text box , the output is i get 2 pages but then when i press the backward button i get all the pages i.e 10 pages .....

so initailly i get 1st out of 2 pages .so 2 is the page count

then whn i press the back button i get 1st out of 10 pages sp all the 10 pages i m getting .......

[jhardman]

I can't find the part where you have stored the number of records to put on the page. Where is that?

[heavily edited -- I re-read the post and saw I was way off]

Jared

[jhardman]

how do i send the screen shots to u
so tht it will explain better


there is

Account code text box

the value from the text box is not stored .... hence the pattern which i give in the text box , the output is i get 2 pages but then when i press the backward button i get all the pages i.e 10 pages .....

so initailly i get 1st out of 2 pages .so 2 is the page count

then whn i press the back button i get 1st out of 10 pages sp all the 10 pages i m getting .......

I think I understand, but you can send either a working link (preferred) or you can add an attachment. The attachment option is only available as you edit your post, so make a post then click the edit button and you should be allowed to add an attachment. (btw, the edit function is time-dependent so make sure you have the img ready before you post)

Jared