www.webdeveloper.com
Results 1 to 4 of 4

Thread: Speeding up processing time of web page

  1. #1
    Join Date
    Jun 2004
    Posts
    24

    Speeding up processing time of web page

    Hello. I am having problems with my form web site, for it takes a long time after the submit button is clicked to enter the data into my database. I have run the two stored procedures in query analyzer and they do not take long at all. However, when i use this form on another computer, it seems to work quite fast (Although a debug message appears). By looking at my code, can anyone see any red flags that are causing the process time to be so slow? I would greatly appreciate any help!

    Code:
    <%@ Page Language="VB" Debug="true" %>
    <%@ import Namespace="System.Data" %>
    <%@ import Namespace="System.Data.SQLClient" %>
    <script runat="server">
    
        Dim connstr as string = "Server=localhost;UID=User;PWD=Password;Database=Database"
    	Dim cancel_page as string = "bscireal.aspx"
        
       Sub Page_Load(sender As Object, e As EventArgs)
    	Dim rightNow as DateTime = DateTime.Now
    
    	If day(RightNow) > 25 Then 
    
    
     	lbl_error.text = "You are not able to transfer accounts after the 25th of the month. Please try again next month."
    	cmdInsert.visible=false
    		
    	else
    
    
     	lbl_error.text = "Welcome to the Account Transfers Page."
                Dim sql as string
                 if not Page.IsPostBack then
                     sql =  "select AccountID + ' - ' +  AccountName as accnumber from Accounts order by AccountName"
        
                     FillDropDownList(sql,AccNumber)
        
                 end if
                      
                      if not Page.IsPostBack then
                     sql =  "select distinct territoryName from Territories where CloseDate is Null and territoryName not in ('IS 1','IS 2','IS 3','IS 4','IS 5')"
    
                     FillDropDownList(sql,Toname)
        
                 end if
        end if
            End Sub
        
            Sub FillDropDownList(sql as string, ddl as DropDownList)
        
                ' Create Connection Object, Command Object, Connect to the database
                Dim conn as New SQLConnection(connstr)
                Dim cmd as New SQLCommand(sql,conn)
                conn.open()
        
                ' Execute the SQL, Bind the results to the Dropdown List Control
                ddl.DataSource = cmd.ExecuteReader(CommandBehavior.CloseConnection)
                ddl.DataBind()
        
            End Sub
        
        Sub InsertData()
    
        Dim conn as SQLConnection
        Conn = New SQLConnection(connstr)
        Dim Cmd1 as SqlCommand
        Cmd1 = New SQLCommand("Insertaccounts",Conn)
        'Declare the command type - a stored proc in this case
        Cmd1.commandType = CommandType.storedProcedure
        'Add the parameters
        Cmd1.parameters.add("@AccountID",AccNumber.SelectedItem.Value)
        Cmd1.parameters.add("@Explanation",Explanation.text)
        
        dim cmd2 as SqlCommand
        Cmd2 = New SQLCommand("UpdateToTerritory",Conn)
        'Declare the command type - a stored proc in this case
        Cmd2.commandType = CommandType.storedProcedure
        Cmd2.parameters.add("@AccountID",AccNumber.SelectedItem.Value)
        Cmd2.parameters.add("@ToName",ToName.SelectedItem.Value)
        
        
        conn.open()
        cmd1.ExecuteNonQuery()
        cmd2.ExecuteNonQuery()
    
        conn.Close()
    
        Response.redirect(return_page)
         end sub
        
        
            Sub cmdInsert_Click(sender As Object, e As EventArgs)
                InsertData()
            End Sub
        
            Sub cmdCancel_Click(sender As Object, e As EventArgs)
                response.redirect(cancel_page)
            End Sub
    
    </script>
    <html>
    <head>
        <title>Account Transfers</title>
        <link href="styles.css" type="text/css" rel="stylesheet" />
    </head>
    <body class="empty" leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
           <form onsubmit="return Validate(this)" action="transfers.aspx?Enter=True" method="POST" runat="server" name="form1">
        <table height="100%" cellspacing="0" cellpadding="0" width="100%" border="0">
            <tbody>
                <tr bgcolor="#000000">
                    <td valign="top" align="left">
                        &nbsp;</td>
                </tr>
                <tr>
                    <td width="100%" background="gor_white.gif">
                        <img height="1" src="images/gor_white.gif" width="20" border="NONE" /></td>
                </tr>
                <tr bgcolor="#002041">
                    <td valign="top" align="left" width="100%" height="77">
                        <img height="77" src="images/header.gif" width="960" /></td>
                </tr>
                <tr>
                    <td width="100%" background="gor_white.gif">
                        <img height="1" src="images/gor_white.gif" width="20" border="NONE" /></td>
                </tr>
                <tr bgcolor="#36647e">
                    <td valign="top" align="left">
                        &nbsp;</td>
                </tr>
                <tr>
                    <td valign="center" align="middle" height="98%"><br />
                        <table bordercolor="#5e768e" cellspacing="0" cellpadding="5" width="770" bgcolor="#b6cce4" border="1">
                            <tbody>
                                <tr><td colspan="2" align="center" valign="middle"><asp:Label id="lbl_error" runat="server" width="500px" font="verdana" font-bold="True" forecolor="#002041"> </asp:Label></center></td></tr>
                                    <td width="440" border="0" valign="top"><br />
                                        <font face="Verdana" size="2"><b>Account: </b></font><br />
                                    
                                        <asp:DropDownList id="AccNumber" name="AccNumber" runat="server" DataValueField="accnumber" DataTextField="AccNumber" Width="440px"></asp:DropDownList>
                                       <br /><br />
    				
    				     <font face="Verdana" size="2"><b>Transfer to:</b></font><br />
                                        <asp:DropDownList id="ToName" name="ToName" runat="server" DataValueField="TerritoryName" DataTextField="TerritoryName" Width="220px"></asp:DropDownList><br /><br /><br /><font face="Verdana" size="2"><b>Explanation:</b></font><br />
     <asp:TextBox id="Explanation" TextMode="MultiLine" runat="server" Width="440px" Height="131px"></asp:TextBox><br /><br />
    
    <center>                                       
    
                                                <asp:Button id="cmdInsert" onclick="cmdInsert_Click" runat="server" Text="Request Transfer" type="submit"></asp:Button>
                                                <asp:Button id="cmdCancel" onclick="cmdCancel_Click" runat="server" Text="Cancel"></asp:Button>
                                            </center>
    
    </td><td width="330">
    <CENTER>
    
    
                            </tbody>
                        </table>
                    </td>
                </tr>
    </form>
        <td valign="top" align="middle">
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        </td></tr>
        <tr>
            <td valign="top" align="middle" colspan="3">
                <hr color="#5e768e" />
            </td>
        </tr>
        <tr>
            <td valign="top" align="middle" colspan="3" bgcolor="#002041">
                <font class="text_bold_bl" color="#FFFFFF" face="verdana" size="1">The contents of this site are highly confidential. </font></td>
        </tr>
    
        <tr>
            <td align="CENTER" valign="TOP" bgcolor="#002041">
                <font class="copyright"><font class="copyright_lnk" color="#FFFFFF" face="verdana" size="1">Copyright 2000.All rights reserved. </font></td>
        </tr>
    	</tbody>
    	</table>
    
    </body>
    </html>

  2. #2
    Join Date
    Nov 2002
    Location
    Auburn, AL
    Posts
    9,222
    This is more of a question for the .net forum since you are using asp.net with vb.net. It could be any number of things. The code its self will run fast, its asp.net, it is precompiled and everything by the server. Sql server should be a fast db solution. Are you hosted with other users? Maybe the data base server and the webserver are just under a lot of load. That code is fairly simple, it shouldn't be lagging, its not like you are looping through an actual db table or something (a dataset would still be fast).

  3. #3
    Join Date
    Feb 2003
    Location
    Wales, UK
    Posts
    3,147
    PM me if you want it moved PeOfEo.
    In a world without walls and fences - who needs Windows and Gates?! - Unknown Author
    "And there's Bill Gates, the...most...famous...man in the...ah...Microsoft." -- A TV commentator for the 2000 Olympics.


    Web Design Faq? | W3C | Validator | Accessibility testing | Speed up your PC | Wura | Box Model Research

  4. #4
    Join Date
    Nov 2002
    Location
    Auburn, AL
    Posts
    9,222
    It does not bother me that it is here, I was just telling cusoxty a better place for his questions for future reference.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center



Recent Articles