Attention please!

Results 1 to 3 of 3

Thread: Attention please!

  1. #1
    Young Guest

    Default Attention please!

    I am getting this error message when I try to update/delete the data that already exist: <BR>Microsoft OLE DB Provider for ODBC Drivers (0x80040E31)<BR>[Microsoft][ODBC SQL Server Driver]Timeout expired<BR>/release/AddItemToWuRefresh.asp, line 63<BR><BR>Lind 63 is rsItem.Update<BR><BR>I posted a help message but nobody answers.. Do you happen to know what kind of error message this is(80040E31)?<BR><BR>Thanks!

  2. #2
    Join Date
    Dec 1969

    Default RE: Attention please!

    Show us some code please. Error messages are often meaningless without the code that caused them.

  3. #3
    Young Guest

    Default RE: Attention please!

    Here is the code. The error points at rsItem.Update<BR><BR>&#060;!--#include file=""--&#062;<BR>&#060;%<BR>Response.Buffer = true<BR>Dim rsItem, vbQuote<BR>Dim bNew<BR>Dim varTmp<BR>varTmp = chr(32)<BR>vbQuote = Chr(39)<BR>vbPound = Chr(35)<BR>Set rsItem = Server.CreateObject("ADODB.Recordset")<BR>rsItem.O pen "WuRefresh", db, adOpenForwardOnly, adLockOptimistic, adCmdTable<BR><BR>If Request.Form("Delete") &#060;&#062;"" Then<BR> If Not rsItem.EOF Then <BR> rsItem.Delete<BR> rsItem.Close<BR>Else<BR> If Request("RefreshID") = "" Then<BR> bNew = True<BR> rsItem.AddNew<BR><BR> Else<BR> rsItem.Filter = "RefreshID = " & Request("RefreshID")<BR> bNew = False<BR> End If<BR> <BR> if Request.Form("RefreshName") = "" then<BR> rsItem("RefreshName") = varTmp <BR> else<BR> rsItem("RefreshName") = Request.Form("RefreshName")<BR> end if <BR> <BR> if Request.Form("Completed")="" then <BR> rsItem("Completed") = date<BR> else<BR> rsItem("Completed") = Request.Form("Completed")<BR> end if<BR> <BR> if Request.Form("NewContent")="" Then<BR> rsItem("NewContent") = varTmp<BR> else<BR> rsItem("NewContent") = Request.Form("NewContent")<BR> end if<BR> <BR> if Request.Form("SiteChange")="" Then<BR> rsItem("SiteChange") = varTmp<BR> else<BR> rsItem("SiteChange") = Request.Form("SiteChange")<BR> end if<BR> <BR> if Request.Form("Other")="" Then<BR> rsItem("Other") = varTmp<BR> else<BR> rsItem("Other") = Request.Form("Other")<BR> end if<BR><BR> rsItem.Update<BR> rsItem.Close<BR> <BR>End If<BR>%&#062;

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts