I&#039d like to do this simple VB code in ASP. I know it could be a little bit different but, is there any way?<BR><BR><BR><BR><BR>Function Update(Key As String, Change As String) As String<BR> <BR> Dim objCnn As ADODB.Connection<BR> Dim objRs As ADODB.Recordset<BR> <BR> On Error GoTo Error:<BR> Set objCnn = New ADODB.Connection<BR> objCnn.Open "DSN", "password"<BR> <BR> Set objRs = New ADODB.Recordset<BR> objRs.CursorType = adOpenKeyset<BR> objRs.LockType = adLockPessimistic &#039&#060;--<BR> objRs.Open "SELECT * FROM table where KeyField = &#039" & Key & "&#039", objCnn, , , adCmdText<BR> objRs("ChangedField") = Change<BR> <BR> If MsgBox("Sure?", vbYesNo) = vbYes Then<BR> objRs.Update<BR> Else<BR> objRs.CancelUpdate<BR> End If<BR> objRs.Close<BR><BR>Error:<BR> If Err.Number = -2147467259 Then<BR> Update = "Time expired. Another user is editing the record. Try again later."<BR> Else<BR> Position = InStr(1, Err.Description, "[SQL Server]") + 12<BR> Update = Mid(Err.Description, Position)<BR> End If<BR>End Function