Classic ASP- Update record gives ERROR:Microsoft OLE DB Provider for ODBC Drivers error '80004005'

See more:

ASP

SQL

Below is the code which i run and recieve

ERROR:"Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC SQL Server Driver][SQL Server]Could not find server 'xxx\SQLEXPRESS' in sys.servers. Verify that the correct server name was specified. If necessary, execute the stored procedure sp_addlinkedserver to add the server to sys.servers.
/updated/TestSingle.asp, line 114 "

CODE:

Dim intShipPointID
intShipPointID = Request.Form("frmShipPointID")
Set rs = Server.CreateObject("ADODB.Recordset")

if intShipPointID="---" or intShipPointID ="0" then
intShipPointID=0
else

sql = "SELECT Name, ShipPointZip, ShipPointCity, ShipPoint_St_Prv, ShipPointAddress, MfgID, Printer, Software, "

sql=sql & "Cert" & FormatID & " AS CertFormatID, Cert" & FormatID & "Date AS CertFormatIDDate, " & FormatID & "Tests AS FormatIDTests "

sql=sql & " FROM tblShipPoint WHERE ID = " & intShipPointID
rs.Open sql, conn, 2, 2

If Request.Form("chkUpdateSup")="True" then
rs("Name") = Replace(Request.Form("frmSupplierName"),"'","''")
rs("ShipPointZip") = Request.Form("frmShipPoint")
rs("ShipPointCity") = Request.Form("frmShipPointCity")
rs("ShipPoint_St_Prv") = Request.Form("frmShipPoint_St_Prv")
rs("ShipPointAddress") = Request.Form("frmShipPointAddress")
rs("MfgID") = Request.Form("frmMfgID")
rs("Printer") = Request.Form("frmPrinter")
rs("Software") = Request.Form("frmSoftware")
End If
Select Case Request.Form("frmFormatIDCert")
Case "1":
rs("CertFormatID")=-1
rs("CertFormatIDDate")= CheckNull(Date,"Date")
rs("FormatIDTests")= rs("FormatIDTests")+1
Case "2":
rs("FormatIDTests")= rs("FormatIDTests")+1
End Select

rs.Update '- Line 114

rs.Close


The update recordset works for other Classic ASP website configured to same server,iis 5 and sql server 2005.

Many Thanks