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:
- you added 150x150 thumbnail values in the visual editor
- you clicked "build" and ran your project to see that the thumbnails were not used, but instead you had large pictures.
- 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
- 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.