I am totally stumped. The following ASP page is intended to pull data from a SQL table and use it to update some Oracle records. All the queries and updates work fine, except for the last and most important one, which generates a TCP_ERROR with the problem description 'The proxy server received no response from the remote server.'
I currently have it set to response.write each of the updates, and if I comment out the line 'set rsContractUpdate = cn.Execute(oraContractUpdate)' then not only does the page run, but I can cut and paste that update into the SQL Editor in TOAD and run it against the database without a problem.
Any idea what might be causing this issue?

This is the query that is written out by this page:
UPDATE CONTRACT SET CONTRACT_TYPE = 'PA', CONTRACT_STATUS = 'A', CONTRACT_WORK_GROUP = 'IT', CONTRACT_AWARD_DATE = to_date('06/01/2004','mm/dd/yyyy'), CONTRACT_EXPIRATION_DATE = to_date('01/01/1900','mm/dd/yyyy'), BUSINESS_PARTNER_NAME = 'PAUL KENDALL', CONTRACT_INS_CERT_EXPIRE_DATE = to_date('01/01/1900','mm/dd/yyyy'), CONTRACT_NDA_DATE = to_date('02/27/2002','mm/dd/yyyy'), CONTRACT_PAYMENT_TERMS = '110N45', CONTRACT_CONFIDENT_NOTES = 'NA', CONTRACT_DESCRIPTION = 'PROCUREMENT AGREEMENT FOR THE PURCHASE OF ENTERPRISE STORAGE, SOFTWARE, MAINTENANCE AND PROFESSIONAL SERVICES.', MINIMUM_COMMITMENT = 0, SEC_REPORTING = 'NO', CPNI = 'NO', STRATEGY = 'R', LEGAL_DEPARTMENT_REPRESENT = 'SARA PAGE' WHERE CONTRACT_AGREEMENT_NUMBER = '00' AND AGREEMENTNUMBER = '1508' AND CONTRACT_SUPPLIER_ID = '3800'


Here is the asp page:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>SICMS FUN</title>
</head>

<body>
<!--#include file="adovbs.inc"-->
<%
Server.ScriptTimeout = 600
strCONN = "Driver={SQL Server};Server=WA-NISPRO20-SEA;Database=CCREPORT;Uid=itpsg;Pwd=itpsgdb"
Dim objCONN
set objCONN= Server.CreateObject("ADODB.Connection")
objCONN.Open strCONN

Const CONNECT = "Provider=MSDAORA.1;Data Source=SMTEST.WORLD;User ID=smowner;Password=smowner"
set cn = Server.CreateObject( "ADODB.Connection" )
cn.Open CONNECT

if isEmpty(Request.Querystring("go")) then
response.write "<table border =""0"" width=""100%""><form action=""testsicms.asp"" name=""travel"" id=""travel""><input type=""Hidden"" name=""go"" value=""go"">"
response.write "<tr><td align=""right"">&nbsp;&nbsp;<input type=""submit"" value=""Run Report""></td></tr></table>"
response.write "</form>"
else
sqlPull = "SELECT * FROM SICMSTEST WHERE SUPPLIER_NAME = 'EMC CORPORATION' ORDER BY SUPPLIER_NAME"
'response.write sqlPull & "<br>"
set rsPull = objCONN.Execute(sqlPull)
Response.write "<table border=""1"">"
Do while not rsPull.eof
if not rsPull("SUPPLIER_ID") = "" or not isNull(rsPull("SUPPLIER_ID")) then
oraSupUp = "UPDATE SUPPLIER SET SUPPLIER_NAME = '" & UCase(rsPull("SUPPLIER_NAME")) & "', VENDOR_NUMBER = '" & rsPull("VENDOR_NUMBER_CONTRACT") & "', MWBE = '" & rsPull("MWBE") & "' WHERE SUPPLIER_ID = '" & rsPull("SUPPLIER_ID") & "'"
response.write "<b>SUPPLIER UPDATED: </b>" & oraSupUp & "<br><br>"
set rsSupUp = cn.Execute(oraSupUp)
oraProdNum = "SELECT ID FROM PRODUCT WHERE UPPER(PRODUCT_NAME) = '" & UCase(rsPull("COMMODITY")) & "'"
set rsProdNum = cn.Execute(oraProdNum)
If not rsProdNum.eof then
prodnum = rsProdNum("ID")
else
response.write "Oops...no product number for " & rsPull("COMMODITY") & "<br>"
end if
rsProdNum.close
set rsProdNum = nothing
if rsPull("SUPPLIER_CLASSIFICATION") = "DISQUALIFIED" then
supclass = "D"
elseif rsPull("SUPPLIER_CLASSIFICATION") = "HIGH RISK" then
supclass = "UH"
elseif rsPull("SUPPLIER_CLASSIFICATION") = "INTEGRATED" then
supclass = "I"
elseif rsPull("SUPPLIER_CLASSIFICATION") = "PREFERRED" then
supclass = "P"
elseif rsPull("SUPPLIER_CLASSIFICATION") = "STRATEGIC" then
supclass = "S"
elseif rsPull("SUPPLIER_CLASSIFICATION") = "TACTICAL" then
supclass = "T"
elseif rsPull("SUPPLIER_CLASSIFICATION") = "UNCLASSIFIED" then
supclass = "U"
end if
oraSupProd = "UPDATE SUPPLIER_PRODUCTS SET CLASSIFICATION = '" & supclass & "' WHERE SUPPLIER_ID = '" & rsPull("SUPPLIER_ID") & "' AND PRODUCT_ID = '" & prodnum & "'"
response.write "<b>SUPPLIER_PRODUCTS UPDATED: </b>" & oraSupProd & "<br><br>"
set rsSupProd = cn.Execute(oraSupProd)

oraSupContact = "UPDATE SUPPLIER_CONTACT SET CONTACT_NAME = '" & rsPull("SUPPLIER_CONTACT_NAME") & "', CONTACT_PHONE_NO = '" & rsPull("SUPPLIER_CONTACT_PHONE") & "', CONTACT_EMAIL_ADDR = '" & rsPull("SUPPLIER_CONTACT_EMAIL") & "' WHERE SUPPLIER_ID = '" & rsPull("SUPPLIER_ID") & "'"
response.write "<b>SUPPLIER_CONTACT UPDATED: </b>" & oraSupContact & "<br><br>"
set rsSupContact = cn.Execute(oraSupContact)

oraBuyNum = "SELECT ID FROM SMEMPLOYEES WHERE UPPER(BUYER_NAME) = '" & UCase(rsPull("CONTRACT_BUYER_NAME")) & "'"
set rsBuyNum = cn.Execute(oraBuyNum)
If not rsBuyNum.eof then
buynum = rsBuyNum("ID")
else
response.write "Oops...no ID for " & rsPull("CONTRACT_BUYER_NAME") & "<br>"
end if
rsBuyNum.close
set rsBuyNum = nothing

oraWG = "SELECT CODE FROM CODE WHERE UPPER(DESCRIPTION) = '" & UCase(rsPull("CONTRACT_WORK_GROUP")) & "' AND CODE_TYPE = 'EMP_GRP'"
set rsWG = cn.Execute(oraWG)
If not rsWG.eof then
wg = rsWG("CODE")
else
response.write "Oops...no ID for " & rsPull("CONTRACT_WORK_GROUP") & "<br>"
end if
rsWG.close
set rsWG = nothing

oraType = "SELECT CODE FROM CODE WHERE UPPER(DESCRIPTION) = '" & UCase(rsPull("CONTRACT_TYPE")) & "' AND CODE_TYPE = 'CON_TYP'"
set rsType = cn.Execute(oraType)
If not rsType.eof then
ctype = rsType("CODE")
else
response.write "Oops...no ID for " & rsPull("CONTRACT_TYPE") & "<br>"
end if
rsType.close
set rsType = nothing

oraTerms = "SELECT CODE FROM CODE WHERE UPPER(DESCRIPTION) = '" & UCase(rsPull("CONTRACT_PAYMENT_TERMS")) & "' AND CODE_TYPE = 'PYT_TERM'"
set rsTerms = cn.Execute(oraTerms)
If not rsTerms.eof then
cterms = rsTerms("CODE")
else
response.write "Oops...no ID for " & rsPull("CONTRACT_PAYMENT_TERMS") & "<br>"
end if
rsTerms.close
set rsTerms = nothing

if rsPull("CONTRACT_STATUS") = "ACTIVE" then
cstatus = "A"
elseif rsPull("CONTRACT_STATUS") = "INACTIVE" then
cstatus = "I"
elseif rsPull("CONTRACT_STATUS") = "IN PROGRESS" then
cstatus = "P"
end if

if rsPull("AGREEMENTNUMBER") = "NA" then
agreestring = ""
else
agreestring = "AGREEMENTNUMBER = '" & rsPull("AGREEMENTNUMBER") & "' AND "
end if

if rsPull("CONTRACT_AGREEMENT_NUMBER") = "NA" then
conagreestring = ""
else
conagreestring = "CONTRACT_AGREEMENT_NUMBER = '" & rsPull("CONTRACT_AGREEMENT_NUMBER") & "' AND "
end if

oraContractUpdate = "UPDATE CONTRACT SET CONTRACT_TYPE = '" & ctype & "', CONTRACT_STATUS = '" & cstatus & "', CONTRACT_WORK_GROUP = '" & wg & "', CONTRACT_AWARD_DATE = to_date('" & rsPull("CONTRACT_AWARD_DATE") & "','mm/dd/yyyy'), CONTRACT_EXPIRATION_DATE = to_date('" & rsPull("CONTRACT_EXPIRATION_DATE") & "','mm/dd/yyyy'), BUSINESS_PARTNER_NAME = '" & UCase(rsPull("BUSINESS_PARTNER")) & "', CONTRACT_INS_CERT_EXPIRE_DATE = to_date('" & rsPull("CONTRACT_INS_CERT_EXPIRE_DATE") & "','mm/dd/yyyy'), CONTRACT_NDA_DATE = to_date('" & rsPull("CONTRACT_NDA_DATE") & "','mm/dd/yyyy'), CONTRACT_PAYMENT_TERMS = '" & cterms & "', CONTRACT_CONFIDENT_NOTES = '" & UCase(replace(replace(rsPull("CONTRACT_CONFIDENT_N OTES"), "'", "''"), "&", "and")) & "', CONTRACT_DESCRIPTION = '" & Ucase(replace(rsPull("CONTRACT_DESCRIPTION"), "'", "''")) & "', MINIMUM_COMMITMENT = " & rsPull("MINIMUM_COMMITMENT") & ", SEC_REPORTING = '" & rsPull("SEC_REPORTING") & "', CPNI = '" & rsPull("CPNI") & "', STRATEGY = '" & rsPull("STRATEGY") & "', LEGAL_DEPARTMENT_REPRESENT = '" & Ucase(rsPull("LEGAL_DEPARTMENT_REPRESENATIVE")) & "' WHERE " & conagreestring & agreestring & "CONTRACT_SUPPLIER_ID = '" & rsPull("SUPPLIER_ID") & "'"
response.write "<b>CONTRACT UPDATED: </b>" & oraContractUpdate & "<br><br>"
set rsContractUpdate = cn.Execute(oraContractUpdate)
else
response.write "<br>" & rsPull("SUPPLIER_NAME") & " does not match SICMS<br>"
end if
rsPull.movenext
loop
rsPull.close
set rsPull = nothing
cn.close
objCONN.close
Response.write "</table>"
end if
%>
</body>
</html>