This topic is locked

How to use thumbnails WITHOUT ASPJPG

2/28/2008 10:25:40 AM
ASPRunnerPro Tips and tricks
D
dunga author

Yesterday I found a way to dispaly images in the thumbnail form using ASP runner 5.2 without ASPJPG.
ALl processes are exactly the same as you would do if you HAd aspJPG installed on the server.

with 1 exception
open the LIST page go to the line 700

and add these lines after it:
if thumbname=dbvalue(rs("Thumb")) then value=value & " width=150" value=value & " height=150"

else

value=value & " width=150"

value=value & " height=150"

end if
detailed explanation:

  1. you added 150x150 thumbnail values in the visual editor
  2. you clicked "build" and ran your project to see that the thumbnails were not used, but instead you had large pictures.
  3. you opened the project folder and found _list.asp file.

    4.you opened it in DW and navigated to line 700

    and found these
    if thumbname=dbvalue(rs("Thumb")) then value=value & " width=150" value=value & " height=150"

    end if

  4. you ADDED then these lines:

    else

    value=value & " width=150"

    value=value & " height=150"

    to have your code changed to:
    if thumbname=dbvalue(rs("Thumb")) then value=value & " width=150" value=value & " height=150"

    else

    value=value & " width=150"

    value=value & " height=150"

    end if
    That is it, no more ASP jpg 400 dollars expence. <img src='https://asprunner.com/forums/file.php?topicimage=1&fieldname=question&id=7728&image=1&table=forumtopics' class='bbcemoticon' alt=':)' />
    Lastly the view.asp Page:

    Problem: you do not want to have the Larger image CLICKABLE:what do you do?
    delete all bolded BLUE colored values values between lines 87 and 107.
    like this:
    'Thumb - File-based Image

    value=""

    if CheckImageExtension(rs("Thumb")) then

    ' show thumbnail

    thumbname="th" & dbvalue(rs("Thumb"))

    if mid( " then

    if not fso.FileExists(server.MapPath(AddLinkPrefix("Thumb",thumbname,""))) then

    thumbname = dbvalue(rs("Thumb"))

    end if

    [color=#0000FF] value = "<a"

    value = value & " rel='ibox'"

    value = value & " href=""" & my_htmlspecialchars(AddLinkPrefix("Thumb",rs("Thumb"),""))& """>"


    value = value & "<img"

    if thumbname=dbvalue(rs("Thumb")) then

    value=value & " width=150"

    value=value & " height=150"

    end if

    value= value & " border=0"

    value=value & " src=""" & my_htmlspecialchars(AddLinkPrefix("Thumb",thumbname,"")) & """></a>"

    end if

    smarty.Add "showThumb",value
    or

    RELACE your code with mine
    .It will give you the desired ability to go to the view page(if you have there some additional data, without your larger picture being Iboxed.
    'Thumb - File-based Image

    value=""

    if CheckImageExtension(rs("Thumb")) then

    ' show thumbnail

    thumbname="th" & dbvalue(rs("Thumb"))

    if mid(1,7)<>"" then

    if not fso.FileExists(server.MapPath(AddLinkPrefix("Thumb",thumbname,""))) then


    thumbname = dbvalue(rs("Thumb"))

    end if
    value = value & "<img"

    if thumbname=dbvalue(rs("Thumb")) then

    value=value & " "

    value=value & " "

    end if

    value= value & " border=0"

    value=value & " src=""" & my_htmlspecialchars(AddLinkPrefix("Thumb",thumbname,"")) & """>"

    end if

    smarty.Add "show_Thumb",value


works perfectly.

I hope it helped.