http://support.microsoft.com/?scid=kb;en-us;Q295297
Cheers
Ken
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "Babiker" <[EMAIL PROTECTED]>
Subject: General error Unable to open registry key
: My program runs perfect but I GOT THIS ERROR FOR NOREASON .
: I GOT THIS ERROR IT DISABLE MY CONNECTION STRING IN ALL THE APPLICATION
: SO I GET UN SPECIFIED ERROR
: THE FULL ERROR IS...
:
: Microsoft OLE DB Provider for ODBC Drivers error '80004005'
:
: [Microsoft][ODBC Microsoft Access Driver]General error Unable to open
: registry key 'Temporary (volatile) Jet DSN for process 0x138 Thread 0x4e8
: DBC 0x20c1d1c Jet'.
:
: C:\ACCOUNTS\ZOFAN\NEWSLETTERMAILLIST\../Functions/NewsLetterMailList.asp,
: line 6
:
: THIS IS LINE 6 .....
: objRecUpdatebasKetItem.Open strSQLUpdateItem , strConn ,
: adOpenForwardOnly, _
:
:
: THE FULL CODE IS.....
:
: Function SendEmailToMailingList(Subject, Body)
: Dim Count
: Set objRecUpdatebasKetItem = Server.CreateObject ("ADODB.Recordset")
: strSQLUpdateItem = "Select* From SubscriptionEmailList Where
: newsletterconfirmed = 'YES' AND newslettersubscription = 'YES'"
: objRecUpdatebasKetItem.Open strSQLUpdateItem , strConn ,
: adOpenForwardOnly, _
: adLockReadOnly, adCmdText
: if not objRecUpdatebasKetItem.EOF Then
: While not objRecUpdatebasKetItem.EOF
: Body = Body & vbCrLf & "<br><a
href=http://www.Zofan.com/Subscription/Confirm.asp?EmailId="; & EmailId &
"&Unsubscribe=NewsLetter>Unsubscribe from the list </a>"
: call SendEmail(Session("NewsLetterMailingListEmailFrom"),
: objRecUpdatebasKetItem("Emailaddress"), Subject, Body, Cc)
: objRecUpdatebasKetItem.MoveNext
: Count = Count + 1
: Wend
: End If
: objRecUpdatebasKetItem.Close
: Set objRecUpdatebasKetItem = Nothing
: End Function
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
