Strange Problem Reading MS Access Memo field.

[colindaly]

I am hoping someone can shed some light on a problem I am having. I am
using a script to write some properties to my *Message* table in an MS
Access DB. That is working fine.

From there, the MS Access DB has two functions. Firstly, I use a ASP

script to read this info and write it to a .txt file. No problem there.

Secondly, use the ASP script to then insert the same info into an email
and send it to an address.

The problem I am running into is that when the email arrives, it is
missing the info from one field (messagetext). All the others read
fine. I have checked the MS Access DB and also the .txt file and the
info that is posted to the field *messagetext* is in there, it just
will not write into the email message.

When I change the properties of *messagetext* from memo to text, I can
see the text in the email.

Here is the code I am using...

<%
Dim rsMessage
Dim rsMessage_numRows

Set rsMessage = Server.CreateObject("ADODB.Recordset")
rsMessage.ActiveConnection = MM_code01_STRING
rsMessage.Source = "SELECT * FROM Message"
rsMessage.CursorType = 0
rsMessage.CursorLocation = 2
rsMessage.LockType = 1
rsMessage.Open()

rsMessage_numRows = 0


Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.mydomain.com"
JMail.Sender = "(e-mail address removed)"
JMail.Subject = "Log FIle - " & rsLogin.Fields.Item("user").Value & " :
" & rsLogin.Fields.Item("api").Value
body = "User Name : " & rsLogin.Fields.Item("user").Value & vbcrlf &
"App Code : " & rsLogin.Fields.Item("api").Value & vbcrlf
body = body & "Msg Delay: " & rsMessage.Fields.Item("timer").Value & "
minutes" & vbcrlf
body = body & "Msg Type: " & rsMessage.Fields.Item("msgtype").Value &
vbcrlf
body = body & "Sender ID: " & rsMessage.Fields.Item("sender").Value &
vbcrlf & "Host IP: " & Request.ServerVariables("REMOTE_ADDR") & vbcrlf
body = body & vbcrlf & "Message: " & vbcrlf &
rsMessage.Fields.Item("messagetext").Value & vbcrlf
body = body & vbcrlf & "Recipients:" & vbcrlf & csvLog
JMail.AddRecipient rsPrefs.Fields.Item("email").Value
JMail.AddRecipientBCC "(e-mail address removed)"
JMail.Body = Body
JMail.Priority = 1
JMail.Execute


rsMessage.Close()
Set rsMessage = Nothing
%>


Any help would be greatly appreciated.

 

[colindaly]

Hi Guys.

Still havent been able to get this one to work. Any help or pointers
would be greatly appreciated. Thank you.

CD