This topic is locked

Can't see the column data that between <>

1/27/2004 2:40:32 AM
ASPRunnerPro General questions
J
jmarhoon author

I have a database with an Email Column. The data for this column in this format <xxxxx@xxxxxxx.xxx> . the field contains 2 brackets , one at the begining and one at the end.
When I clicked on the table to show the columns, the column show only 2 records that start with numbers, and the others are empty!
I tried to investigate the problem, but can't find it in the ASP source file. Our service should save the emails this format.
I did try to remove the brackets, then I can see the emails very well.
I love your software too much, any one can help as soon as possible because we want to use this software in our company.
Please, if anyone have any idea how to solve it please reply to me.

Sergey Kornilov admin 1/28/2004

Hi,
it breakes because everything between "<" and ">" characters

considered as HTML tags and won't be visible on the list page.
Here is what you can do: open include/...aspfunctions.asp file in any

text editor and scroll down to the end. Replace text of Function

ProcessLargeText function with new one that handles your situation

correctly. I will include this fix into the next release of ASPRunner.

Function ProcessLargeText(strValue)

ProcessLargeText = strValue
if cNumberOfChars>0 then

    if Len(ProcessLargeText)>cNumberOfChars and left(strValue,7)<>"<a href" then

        ProcessLargeText = Left(ProcessLargeText, cNumberOfChars ) &


        " <a href=""#"" onClick=""java script: pwin =

window.open(null,null,'height=300,width=400,status=yes,resizable=yes,toolbar=no,menubar=no,location

=no,left=150,top=200,scrollbars=yes');

        ind = 1

        ProcessLargeText = ProcessLargeText & "pwin.document.write('" &

Server.HTMLEncode(Replace(Replace(Mid(strValue,ind, ind+800),"'","\'"), vbcrlf, "
")) & "');" & vbcrlf

        ProcessLargeText = ProcessLargeText & "pwin.document.write('
<hr size=1 noshade><a href=#

onClick=\'window.close();return false;\'>Close window</a>');"

        ProcessLargeText = ProcessLargeText & "return false;"">More ...</a>"

       Â

    end if
end if
ProcessLargeText = Server.HTMLEncode(ProcessLargeText)
End Function