I was wondering if any of you could help me with a very difficult problem that I am having.
I have an ASP site that works with an Oracle database using an ADODB connection. This connection is stored in a .dll file. This site had been working fine.
However recently we upgraded our Oracle database from 9i to 10g and ever since then we have been having serious performance problems with this site only.
The website works fine apart from when the user does an update on the database. i.e. the site’s performance is acceptable until the user selects an option that updates the database.
I have isolated the exact line of code (see below) where the performance issue occurs and I was wondering if any one here had a similar issue and whether they could help me resolve it.
Many thanks for any help you can provide.
Colm
Expand|Select|Wrap|Line Numbers
- <%@ LANGUAGE="VBSCRIPT" %>
- <!-- #INCLUDE FILE="pig.asp" -->
- <script language="Javascript" src="getoptions.js"></script>
- <html>
- <%
- if (Request.Form("visitpreparationadd") = "visitpreparationadd") then
- '**************************
- ' Adding a Record
- '**************************
- si = Request.Form("site")
- nm = Request.Form("stdate")
- set acom = server.CreateObject("onsite.on_st_sites")
- comStat = acom.visit_preparation(si,nm) 'THIS LINE OF CODE SLOWS THE PERFORMANCE
- set acom = Nothing
- 'Where there any errors
- comStat = "0"
- if comStat <> "0" then
- displayerror(comStat)
- end if
- set acom = server.CreateObject("onsite.on_st_sites")
- comStat = acom.list_visits_date(si,nm,"Y")
- set acom = Nothing
- visitpreparation_add_OnSubmit = False
- end if
- %>
- <head>
- <meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
- <title></title>
- </head>
- <body background="images/onsite_bck.gif" text="#000000" vlink="#000000" alink="#000000" link="#000000">
- <%heading = "Visit Preparation Page"%>
- <table width="669" height="143">
- <th width="131" align="left" height="16"><b><img src="images/images/Corporate2.gif" width="133" height="67" align="right"><br>
- <br>
- </b></th>
- <th width="524" BGCOLOR="000000" height="1"><font size="3" color="ffffff">
- <%if(isempty(Request.querystring("heading"))) then
- Response.write(heading)
- else
- Response.Write(Request.QueryString("heading"))
- end if
- %>
- </font></th>
- <tr><td width="131" valign="top" nowrap height="153">
- <!-- #INCLUDE FILE="ONSITE_ACCESS.asp" -->
- <!-- #INCLUDE FILE="ONSITE_DD.asp" -->
- </td>
- <td width="524" height="118" rowspan="2">
- <%
- if (Request.QueryString("visitpreparation_lst") = "yes") then
- %>
- <a href="test.asp?visitpreparation_add=yes"><img src="images/PrepaerVisits.gif" border="0"></a>
- <% end if %>
- <%
- '---------
- 'Prepare Visit
- '---------
- if (Request.QueryString("visitpreparation_add") = "yes") then
- set acom = server.CreateObject("Onsite.on_st_sites")
- set rs = acom.sites_lst_user()%>
- <form name="visitpreparation_add" ACTION="test.asp?visitpreparation_lst=yes" METHOD="POST">
- <table>
- <tr><td>Site</td> <td><select NAME="site" id="Site">
- <option SELECTED VALUE="NONE">[Please Select a Site]</option>
- <%while not rs.eof
- if rs(0) <> strSite then %>
- <option value="<%=rs(0)%>"><%=rs(1)%></option>
- <%end if
- rs.movenext
- wend%>
- <%set rs = Nothing%>
- </select></td></tr>
- <tr><td>Date </td> <td><input type="date" name="stdate" size="10"><img src="ctdatepkon.gif" width="23" height="22" border="0" onClick="popdate('stdate','visitpreparation_add')"></td><td>(example 20-JUL-2001)</td></tr>
- <input type="hidden" name="visitpreparationadd" value="visitpreparationadd">
- <tr><td></td><td><input type="image" src="images/updateblack.gif" border="0" id="image1" name="image1" WIDTH="97" HEIGHT="27"></td></tr>
- </form>
- <% end if %>
- <%if (Request.Form("visitpreparationadd") = "visitpreparationadd") then
- Response.Write ("<H1><B> Processing Completed OK</H1></B>")
- end if%>
- <%function displayerror(errortext)%>
- </td></tr>
- </table>
- <table>
- <tr><td rowspan="2"><img SRC="images/erroricon.gif" ALT="You got an error" WIDTH="96" HEIGHT="192"></td><td><b><%=errortext%></b></td><td width="25%"></td></tr>
- </table>
- <%Response.end%>
- <%end function%>
- <script LANGUAGE="vbscript">
- function visitpreparation_add_OnSubmit
- Dim frm1
- set frm1 = Document.visitpreparation_add
- ChkDesc = "a Site Code"
- set ChkField = frm1.site
- if not IsSelect(ChkField, ChkDesc) then
- visitpreparation_add_OnSubmit = False
- Exit Function
- end if
- set ChkField = frm1.stdate
- if not IsFieldaDate(ChkField) then
- visitpreparation_add_OnSubmit = False
- Exit Function
- end if
- visitpreparation_add_OnSubmit = True
- end function
- function IsSelect(field, which)
- if (field.value) = "NONE" then
- sMess = "You Must Enter " & which & " - Update Cancelled"
- Alert(sMess)
- field.focus
- IsSelect = False
- else
- IsSelect = True
- end if
- end function
- function IsFieldaDate(field)
- if Not IsDate(field.value) then
- Alert "Entry must be a date (example 01-Jul-2001) - Update Cancelled"
- field.focus
- IsFieldaDate = False
- else
- IsFieldaDate = True
- end if
- end function
- </script>
- </body>