Forum Moderators: open
<%
dim productsSQL
dim products
dim manufacturerID
dim productName
dim whyGreen
dim count
productsSQL = "select distinct `ManufacturerID`, `ProductName`, `WhyGreen` from `Products` where `ManufacturerID` is not null;"
Set products = OpenRecordset(productsSQL)
while not products.eof
manufacturerID = products("ManufacturerID")
productName = products("ProductName")
whyGreen = products("WhyGreen")
Response.write("<div class=""product_title""><b>Product Name</b>: " & productName & "<br><br><b>Why Green</b>: " & whyGreen & "</div><br><br>")
products.movenext
wend
The WhyGreen field is a memo data type. What is printed out for that field in one sample entry is "Holes in the foundation of a house can affect indoor air quality. Radon, an odorless, tasteless, naturally-occuring gas produced by the breakdown of uranium in the soil can enter a house through openings in the foundation such as the sump pit. A sealed", but by looking directly in the table there is a lot more text stored there. I know you can have problems if you are trying to insert too much data into a smaller sized field, but what would cause data that is already stored in the table to not be entirely extracted?
Thanks in advance
What happens if you just run the query right in Access?
Also, search this forum as this and similar issues have been discussed before.
One last thing - Since you are bringing back multiple records with this query, do you really need the full memo field?
Const conChunkSize = 100
lngTextSize = RS!Field.ActualSize
Do While lngOffset < lngTextSize
varChunk = RS!Field.GetChunk(conChunkSize)
varText = varText & varChunk
lngOffset = lngOffset + conChunkSize
Loop