| Author |
 Topic  |
|
ugger
Junior Member
Denmark
127 Posts |
 Posted - 14 November 2008 : 11:13:38
|
Sorry balexandre, don't mean to be rude, but you are a little rude too, my friend.
I know you ment to help me, but I'm not a proff.in programming.
And sorry for the danish language, not going to happen again.
< |
Edited by - ugger on 14 November 2008 11:14:48 |
 |
|
|
ugger
Junior Member
Denmark
127 Posts |
Posted - 16 November 2008 : 04:24:36
|
My server has no asp components preinstalled, I have to install everything myself.
< |
Edited by - ugger on 16 November 2008 06:24:48 |
|
|
|
balexandre
Junior Member
Denmark
418 Posts |
Posted - 16 November 2008 : 07:50:25
|
What kind of hosting are you in?
you will save money if you choose other web hosting 
ruirib - References to hosting companies removed< |
Bruno Alexandre
(Strøby, DANMARK)
"a Portuguese in Danmark"
|
Edited by - balexandre on 16 November 2008 07:54:41 |
|
|
|
ugger
Junior Member
Denmark
127 Posts |
Posted - 16 November 2008 : 08:52:47
|
| Thanks, I will start looking at the webhotels and compare the prices and offers< |
|
|
|
balexandre
Junior Member
Denmark
418 Posts |
Posted - 16 November 2008 : 09:56:20
|
host everywhere but Denmark! maybe it's the hardware and the 25% VAT, but in this country, everything is very expensive in hosting environment, specially Windows servers.
ruirib - Hosting references removed< |
Bruno Alexandre
(Strøby, DANMARK)
"a Portuguese in Danmark"
|
|
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 16 November 2008 : 10:39:25
|
Just a gentile reminder that hosting discussions are not allowed here. There are a number of good forums for finding/discussing hosts just a Google Search away.  < |
|
|
|
balexandre
Junior Member
Denmark
418 Posts |
Posted - 16 November 2008 : 14:47:29
|
I did not know (maybe it is written in that big text that we just skip and press "accept") ... so sorry!
for more information on the better hosting use http://www.webhostingtalk.com/
P.S. it will not happen again
< |
Bruno Alexandre
(Strøby, DANMARK)
"a Portuguese in Danmark"
|
|
|
|
ugger
Junior Member
Denmark
127 Posts |
Posted - 25 November 2008 : 12:32:26
|
Hi again balexandre
Now I have bought a new webhosting(RF as you recommended)
But it's really hard to get it work, so many menus and no good instruction. Need to find a place where to get help.
When I get it to work I will like to return to the subject about compressing images.
Hope you still will help.
Henrik
< |
|
|
|
ugger
Junior Member
Denmark
127 Posts |
Posted - 28 November 2008 : 03:41:48
|
Hello again
Now I get this result from the testcomponent.asp
1.9.0.1
here is some lines from tofilesystem.asp, it must be here somewhere the modification has to made.
' Compile path to save file to
strPath = Server.MapPath(bdir) & "\" & strUserName& "\" &strFileName
bdir = Server.MapPath(bdir)
appl = trim(thumbnailer)&"nconvert.exe"
' Save the binary data to the file system
sqled = "select *"
sqled = sqled & " from "& strTablePrefix & "ALBUM"
sqled = sqled & " where photo_name = '"&trim(strFileName)&"'"
sqled = sqled & " and Member_Id="&M_ID
cmd_rt = My_Conn.execute(sqled)
inDB = cmd_rt("photo_id")
inDB = cint(inDB)
if inDB = 0 then
objUpload("File1").SaveAs strPath
appl = trim(thumbnailer)&"nconvert.exe"
strTnPath = bdir &"\"& strUserName &"\tn\tn_"&strFileName
strPathTmp = bdir &"\"& strUserName &"\"&strFileName
err.clear
Set Jpeg = Server.CreateObject("Persits.Jpeg")
if err.description = "" then
Jpeg.Open strPathTmp
Jpeg.Width = 100
Jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
Jpeg.Sharpen 1, 130
Jpeg.Save strTnPath
set Jpeg = nothing
else
if objFSO.FileExists(appl) then
err.clear
Set Executor = Server.CreateObject("ASPExec.Execute")
if err.description = "" then
Executor.Application = thumbnailer&"nconvert.exe -in -1 -out jpeg -truecolors -q 40 -ratio -resize 100 0 -o """&trim(strTnPath)&""" """&trim(strPathTmp)&""" "
'Executor.Parameters = " -in -1 -out jpeg -truecolors -q 40 -ratio -resize 100 0 -o """&trim(strTnPath)&""" """&trim(strPathTmp)&""" "
Executor.TimeOut = 100
strResults = Executor.ExecuteDosApp
set Executor = nothing
end if
end if
'response.write " -in -1 -out jpeg -truecolors -q 40 -ratio -resize 100 0 -o """&trim(strTnPath)&""" """&trim(strPathTmp)&""""&"<BR>"
'response.write strFileName&"<BR>"
'response.write strPathTmp&"<BR>"
'response.write strTnPath&"<BR>"
'response.write strResults
end if< |
Edited by - ugger on 28 November 2008 11:55:10 |
|
|
|
ugger
Junior Member
Denmark
127 Posts |
Posted - 28 November 2008 : 11:50:14
|
Now I have it working by just using this:
Set Jpeg2 = Server.CreateObject("Persits.Jpeg")
Jpeg2.Open strPathTmp
if Jpeg2.originalwidth>500 then
Jpeg2.Width = 500
Jpeg2.Height = jpeg2.OriginalHeight * jpeg2.Width / jpeg2.OriginalWidth
else
Jpeg2.Width = Jpeg2.originalwidth
Jpeg2.Height = jpeg2.OriginalHeight
end if
Jpeg2.Quality =30
Jpeg2.Save strTnPath2
set Jpeg2 = nothing< |
Edited by - ugger on 28 November 2008 11:54:20 |
|
|
|
ugger
Junior Member
Denmark
127 Posts |
Posted - 02 December 2008 : 07:47:39
|
Now it is working with jpg-images in the photalbum and now I'm looking at the pop_upload.asp and the uploadengine.asp
to get the images uploaded this way compressed as well.
Bu I have som trouble finding the place in the uploadengine.asp where the images actually is uploaded to the server.
< |
|
|
|
Topic |
|
Topic Locked
