Hi

I'm not sure of the correct jargon to use to explain my question but...

I have a memo field in my database which has, in some cases, too much content to pull out on a specific page, so I am trying to find a way to only allow a certain amount of this content to be shown, which will then end in a link saying something like - click here for more information, which will then in turn, go to the next page to read all of the information from that field. I have no idea how to accomplish this and wondered if someone could give me a clue please? :)

Use VBScript Left() Function

Left(string, length)
Returns a specified number of characters from the left side of a string.

something like this..this will return first 50 characters
<%
Dim MemoFieldContent
MemoFieldContent = Left(rs("memofield"),50)
%>

<%=MemoFieldContent%>...<a href="Your Link">Click Here</a>

Thanks for the reply, I've tried to impliment it, but get an error message saying "cannot use parenthesis when calling a sub" ? Its probably to do with where I have placed it?

If CurPage = "" Then CurPage = 1
set myRS = server.createObject("ADODB.Recordset")
Left(string, length)
myRS.CursorType = adOpenStatic
myRS.PageSize =3
myRS.Open "SELECT * FROM AllMovies WHERE Genre ='" & strGenre & "'", myConn

myRS.AbsolutePage = CInt(CurPage)

MemoFieldContent = Left(myRS("Summary"),50)
    Image = myRS ("image")
    Summary = myRS ("Summary")
    Certificate = myRS("Certificate")
    RowCount = 0

-------------------------------------------------

Sorry if the code looks a state, trying to get to grips with a 1000 things as once.

Thanks for the reply, I've tried to impliment it, but get an error message saying "cannot use parenthesis when calling a sub" ? Its probably to do with where I have placed it?

If CurPage = "" Then CurPage = 1
set myRS = server.createObject("ADODB.Recordset")
Left(string, length) ***Remove This
myRS.CursorType = adOpenStatic
myRS.PageSize =3
myRS.Open "SELECT * FROM AllMovies WHERE Genre ='" & strGenre & "'", myConn

myRS.AbsolutePage = CInt(CurPage)

    MemoFieldContent = Left(myRS("Summary"),50)
    Image = myRS ("image")
    Summary = myRS ("Summary")
    Certificate = myRS("Certificate")
    RowCount = 0


I just gave you an *idea* how you can accomplish it, but that certainly does not mean it is the only solution and my code snippet was just a pseudo code. Please make sure you are using the correct syntax.

Oh right, ok. Well, thanks for your idea. ;)

You have to assign it to a variable for the output to be achieved, or yes, you'll get that error (as I found out, myself, trying to use the Replace function). Say you have something and you're trying to get rid of the first character, this is how you'd do it:

    Dim strOU
    Dim OUStringLength
    strOU = ",OU=Users"
    OUStringLength = len(strOU)
    strOU = Left(strOU,OUStringLength-1)

Happy coding!

Tom