I have field in an Access 2002 database that is set to "memo" because it contains large amounts of text.
However, when I display the contents of the field on the web (using ASP vbscript) only 255 characters show up.
Here's an example: http://www.ihea.info/pages
The paragraph "contents" stops at the word "thickening" even though there's more text inside the database field.
What could be wrong?
This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.
Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.
If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.
Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.
Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.
Access the answers to your technology questions today.
30-day free trial. Register in 60 seconds.
Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.
Try it out and discover for yourself.
30-day free trial. Register in 60 seconds.
Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.
Jaffer, I am not sure my problem is what you describe or what jmcraig describes , or both.
Regarding your solution. Yes there was grouping done.
Here's my SQL right now:
SELECT *
FROM qryDetails
WHERE PubID = MMColParam
If you understand you correctly, it would be something like:
SELECT qryDetails.*, tblBrochures.description
From qryDetails, tblBrochures
WHERE PubID = MMColParam
but when I put this into Dreamweaver's Recordset wizard, Dreamweaver just takes out the mention of tblBrochures.description automatically because I guess it assumes it is already part of query.
Below is the SQL in the query. Can you please help me figure out what kind SQL to give Dreamweaver to incorporate your solution?
SELECT tblBrochures.PubID, tblBrochures.HardCopyAvail
FROM tblDownloadDonation RIGHT JOIN ((tblCreationStatement RIGHT JOIN (tblLanguages RIGHT JOIN (tblTitle RIGHT JOIN (tblSpecialPopulation RIGHT JOIN tblBrochures ON tblSpecialPopulation.Speci
GROUP BY tblBrochures.PubID, tblBrochures.HardCopyAvail
polaatx
At least I know you have a problem from the query, as grouping will truncate the memo field to 255 characters.
let me guide you to another similar question.
There you will find at least 2 answers, 1 from me for using the Dlookup, and the other from nico5038,
My solution:
1- Don't read this memo field from the query,
2- in the control source of the memo field in the Report, use the Dlookup function (place the "where" conditions here) to get the memo info and use CanGrow too,
http://www.experts-exchang
I hope this helps you further.
jaffer
jmcraig,
Here's the code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/IHEA2
<%
Dim rsDetails__MMColParam
rsDetails__MMColParam = "1"
If (Request.QueryString("PubI
rsDetails__MMColParam = Request.QueryString("PubID
End If
%>
<%
Dim rsDetails
Dim rsDetails_numRows
Set rsDetails = Server.CreateObject("ADODB
rsDetails.ActiveConnection
rsDetails.Source = "SELECT * FROM qryDetails WHERE PubID = " + Replace(rsDetails__MMColPa
rsDetails.CursorType = 0
rsDetails.CursorLocation = 2
rsDetails.LockType = 1
rsDetails.Open()
rsDetails_numRows = 0
%>
<%
Dim rsResults__mmreg
rsResults__mmreg = "3000"
If (request.querystring("reg"
rsResults__mmreg = request.querystring("reg")
End If
%>
<%
Dim rsResults__mmdis
rsResults__mmdis = "3000"
If (request.querystring("sub"
rsResults__mmdis = request.querystring("sub")
End If
%>
<%
Dim rsResults__mmlang
rsResults__mmlang = "3000"
If (request.querystring("lang
rsResults__mmlang = request.querystring("lang"
End If
%>
<%
Dim rsResults__mmspecpop
rsResults__mmspecpop = "3000"
If (request.querystring("spec
rsResults__mmspecpop = request.querystring("spec"
End If
%>
<%
Dim rsResults
Dim rsResults_numRows
Set rsResults = Server.CreateObject("ADODB
rsResults.ActiveConnection
rsResults.Source = "SELECT tblBrochures.PubID, tblBrochures.Activation, tblBrochures.PublicationPe
rsResults.CursorType = 0
rsResults.CursorLocation = 2
rsResults.LockType = 1
rsResults.Open()
rsResults_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsResults_numRows = rsResults_numRows + Repeat1__numRows
%>
<%
Dim rsAllTitles
Dim rsAllTitles_numRows
Set rsAllTitles = Server.CreateObject("ADODB
rsAllTitles.ActiveConnecti
rsAllTitles.Source = "SELECT LanguageID, LanguageName FROM tblLanguages ORDER BY LanguageName"
rsAllTitles.CursorType = 0
rsAllTitles.CursorLocation
rsAllTitles.LockType = 1
rsAllTitles.Open()
rsAllTitles_numRows = 0
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Dim strMemoFieldData
strMemoFieldData = Space(1200)
strMemoFieldData =(rsDetails.Fields.Item("t
%>
<%
Dim rsDetails__MMColParam
rsDetails__MMColParam = "1"
If (Request.QueryString("PubI
rsDetails__MMColParam = Request.QueryString("PubID
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html
<html>
<head>
<title>IHEA: International Health Education Alliance</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url(styles_IHEA.css);
-->
</style>
<SCRIPT LANGUAGE="javascript" SRC="scripts.js"></SCRIPT>
</head>
<body id="detailspage" onload="setBottom(self.scr
<div id="masthead"> <span><a href="../Library/home.asp"
<div id="menu">
<ul>
<li><a href="home.asp">Home </a></li>
<li><a href="mission.asp">About Us </a></li>
<li><a href="development.asp">Our
<li><a href="support.asp">Support
<li><a href="contact.asp">Contact
<li><a href="emailupdates.asp">Em
</ul>
</div></div><!-- #EndLibraryItem --><div id="container">
<div id="sidebar">
<!--#include file = "forminclude.asp" -->
<hr color="#999" width="95%">
</div>
<div id="maincontent"><br>
<% 'if IsNUll (rsDetails.Fields.Item("th
<%'end if%>
<p><span class="header">Title: </span><%=(rsDetails.Field
<p><span class="header">Language: </span><%=(rsDetails.Field
<p><span class="header">Subject: </span><%=(rsDetails.Field
<p><span class="header">Contents: </span>
<% if IsNull(rsDetails.Fields.It
response.write(rsDetails.F
else
response.write(rsDetails.F
end if %>
</p>
jjafferr, thanks for your help. I checked out the link. The other quesiton has to do with pulling the data inside Access. I am not creating a report. I am pulling data from Access using ASP vbscript and displaying it on the web. So I guess I have to mess with my SQL to get the data directly from the table. my SQL appears below. I don't know if you can help in any way figure out how to alter it so I get the value fro tblBrochures.Description directly from the table.
rsResults.Source = "SELECT tblBrochures.PubID, tblBrochures.Activation, tblBrochures.PublicationPe
Replace the code at the bottom of the section you posted that reads thus;
<p><span class="header">Contents: </span>
<% if IsNull(rsDetails.Fields.It
response.write(rsDetails.F
else
response.write(rsDetails.F
end if %>
</p>
With code that reads so;
<p><span class="header">Contents: </span>
<% if IsNull(strMemoFieldData) then
response.write(rsDetails.F
else
response.write(strMemoFiel
end if %>
</p>
Hope fully this should set things right just as a precaution you may want to replace any occurrences of
rsDetails.Fields.Item("tbl
with
strMemoFieldData
Joshua
Joshua, thanks for your reply.
First, I realized that the record I am interested in showing is the (rsDetails.Fields.Item("tb
not (rsDetails.Fields.Item("tb
So I reversed what you gave me and put this on top of the page:
<%Dim strMemoFieldData
strMemoFieldData = Space(1200)
strMemoFieldData = (rsDetails.Fields.Item("tb
%>
And put this in the bottom:
<p><span class="header">Contents: </span>
<% if IsNull(rsDetails.Fields.It
response.write (strMemoFieldData) & "</p>"
else
response.write(rsDetails.F
end if %>
</p>
But it is still not showing more than 255 characters.
Here's the page as it appears on the web: http://www.ihea.info/pages
What else could be wrong? Could the problem also be because it is grouped in a query, like jjafferr says?
I am leaving for Mexico first thing in morning. But i will check email from internet cafes and hopefully somehow try to implement any other solutions you might have. (Maybe I can use notepad to edit pages and then ftp it up using IE, I don't know) Thanks a bunch.
polaatx
It is very simple to check if the problem IS from the query, just open the qery and run it, then count your characters in it.
Away to go about this is to split the memo field into many 255 character fields, this is what I did to one of our Reports which was taking the value from such a query,
In the quey, assuming your field name is Contents, place each of the following lines in a field by itself:
Contents1: mid([Contents],1,255)
Contents2: mid([Contents],256,511)
Contents3: mid([Contents],512,767)
Contents4: mid([Contents],768,1023)
Contents5: mid([Contents],1024,1279)
Contents6: mid([Contents],1280,1535)
Contents7: mid([Contents],1536,1791)
Contents8: mid([Contents],1792,2047)
Contents9: mid([Contents],2048,2303)
Contents10: mid([Contents],2304,2559)
In order for you to be safe, you have to make you contentsNN bigger than a maximum number that you can use,
If the the values do not exist for the rest, you will have NULL/Empty value which will not hurt your calculations/formula,
the last thing you should do in your ASP (not in the query, but where you take the quey results to), put the ContenetsNN together/Concatenate like this (depending on how ASP does it):
Contents=Contents1 + Contents2 + Contents3 + Contents4 + Contents5 + Contents6......
OR
Contents=Contents1 & Contents2 & Contents3 & Contents4 & Contents5 & Contents6...
So what is happening here is,
we took the maximum characters of Contents the query gives for each filed,
then put them together in ASP
I hope this helps,
jaffer
Business Accounts
Answer for Membership
by: jmcraigPosted on 2004-04-03 at 23:32:31ID: 10751081
If the Acces database is passing the memo field to a string variable on the ASP page then the limit is determined by the ASP page. Since a string variable can only hold 255 charcters by default then your memo field is still being truncated/cut.
Try these lines of code
Dim strMemoFieldData
strMemoFieldData = Space(1200)
You can then pass the Memo field data into the variable "strMemoFieldData"