Forbindelse til MsSQL og lagring virker ikke

<%
Const strDB = "DRIVER={SQL Server};SERVER=80.63.222.138;UID=sa;pwd=******; DATABASE=exploits;"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strDB
%>
<%


Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM [user] WHERE usrname = '" & session("user") & "';"
rs.Open strSQL, oConn, adOpenKeyset, adLockOptimistic

if request("mode") = "save" and request.form("downloaded") <> "on" then
%>

<%




strNoget = replace(RS("downloadedID")," ","")
response.write(RS("downloadedID"))

arrNoget = Split(strNoget, ",")

For i = 1 To UBound(arrNoget)
  If arrNoget(i) = ID Then
            downloadedID = replace(uCase(strNoget),"," & arrnoget(i) & ",","")
            response.write(downloadedID)
            RS("downloadedID") = downloadedID
  End If
Next

RS.update



%>


AGH

fejl:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][SQL Server]Could not find server 'PUFF' in sysservers. Execute sp_addlinkedserver to add the server to sysservers.
/puinfo.asp, line 127

Linie 127: RS.update