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
PLEASE HELP
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
