Aspimage hvordan pokker bruge man det?

hvis jeg forstår dig korrekt så;

når du har uploadet et billede til serveren kan du lægge billedet i en temp mappe - herfra loader du så billedet med aspimage med

Image.LoadImage (Server.Mappath(filnavn))

herefter bliver billedet bearbejdet og gemt i den rigtige mappe

Image.FileName = Server.Mappath(filnavnThumb100)
Image.SaveImage

Herefter kan du så evt slette billedet fra temp-mappen.

At dette sker på samme side som din normale upload-mekanisme ligger på, så det svarer til at det script du har indsat i dit spørgsmål næsten bare skal copy/pastes ned under dit upload-script.

Keysersoze -> Vil det sige at jeg skal sætte det ind ved -----> markering på nedestående script

<%




if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=1
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

  mySmartUpload.AllowedFilesList = "gif,jpg,jpeg,bmp,png"

  mySmartUpload.DenyPhysicalPath = False
  mySmartUpload.MaxFileSize = 400000

  mySmartUpload.Upload

  For each file In mySmartUpload.Files
      If file.IsMissing = false Then
        file.SaveAs(server.mappath("uploads/" & file.FileName))
if CStr(intCount) = "0" then 
        streng = streng & "'" & "uploads/" & file.FileName & "', "
else
streng = streng & "'" & "uploads/" & file.FileName & "'"
end if
        intCount = intCount + 0
      End If
  Next

----->


kategori = Replace(mySmartUpload.form("kategori"),"'","''") ' notat
titel = Replace(mySmartUpload.form("titel"),"'","''") ' notat
indsendt = Replace(mySmartUpload.form("indsendt"),"'","''") ' notat
dato = Replace(mySmartUpload.form("dato"),"'","''") ' notat
klokke = Replace(mySmartUpload.form("klokke"),"'","''") ' notat
fangstplads = Replace(mySmartUpload.form("fangstplads"),"'","''") ' notat
art = Replace(mySmartUpload.form("art"),"'","''") ' tekst
vagt = Replace(mySmartUpload.form("vagt"),"'","") ' notat
langde = Replace(mySmartUpload.form("langde"),"'","") ' notat
kondi = Replace(mySmartUpload.form("kondi"),"'","") ' notat
agn = Replace(mySmartUpload.form("agn"),"'","") ' notat
farve = Replace(mySmartUpload.form("farve"),"'","") ' notat
bemarkning = Replace(mySmartUpload.form("bemarkning"),"'","") ' notat
bemarkning = Replace(bemarkning,vbCrLf,"<br>")
billede = streng ' notat
%>




<%

if kategori=""  or titel="" or indsendt=""  then
  Response.Write "Fejl i indtastningen."
  Response.End
else
  'kolonne typerne : navn :tekst, dato :date/time, karakter :tal, beskrivelse :notat/tekst
  sql = "insert into tekst (kategori, titel, indsendt, dato, klokke, fangstplads, art, langde, vagt, kondi, agn, farve, bemarkning, billede  ) values ("
  sql = sql & "'" & kategori & "', "
  sql = sql & "'" & titel & "', "
  sql = sql & "'" & indsendt & "', "
  sql = sql & "'" & dato & "', "
  sql = sql & "'" & klokke & "', "
  sql = sql & "'" & fangstplads & "', "
  sql = sql & "'" & art & "', "
  sql = sql & "'" & langde & "', "
  sql = sql & "'" & vagt & "', "
  sql = sql & "'" & kondi & "', "
  sql = sql & "'" & agn & "', "
  sql = sql & "'" & farve & "', "
  sql = sql & "'" & bemarkning & "', "
  sql = sql & "" & billede & ""
  sql = sql & ")"

det er en mulig position i hvert fald - der er mange måder at gøre det på. Personligt ville jeg nok foretrække først at lægge data i databasen, derefter uploade for til sidste at behandle billedet - på denne måde kan jeg nemlig bruge et eventuelt database-id til billederne.

Uanset hvor du sætter det kræver det dog nok lidt tilretning af måske både det ene og det andet script. Sådan som du har sat upload-delen op (med loop) ser det ud som om du ikke ved præcist hvor mange billeder det er og så skulle man måske integrere aspimage-delen inde i loopet.

Keysersoze -> Uploadings delen er et jeg har fundet ude i rummet og det har jeg så "bare" tilføjet min form og det virker. Så derfor har jeg ikke "rørt" det ret meget!!! Det er meningen at man kun skal upload et billede pr. indtastning - næsten uanset størrelse. Ud fra det upload billede skal script lave to billeder eks. 600x459 + 125x100!

Det er vel ikke nødvendig at fortælle, at jeg er rimelig grøn til ASP ;o))

Jeg kan godt følge din ide med dataen først og derefter uploading

Det her er jeg vist en klovn til :o((

Er det her sæt rigtig op.....

<%
'Her kan man så sætte noget ASPImage ind.
filnavn = "d:/web/web-byggeren.dk/www/upload/uploads" & "/" & saet.jpg
filnavnThumb100 = "d:/web/web-byggeren.dk/www/upload/thumbnails" & "/t100_" & saet.jpg
filnavnThumb550 = "d:/web/web-byggeren.dk/www/upload/thumbnails" & "/t550_" & saet.jpg

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (Server.Mappath(filnavn))
'Find billede højde og brede
Width = Image.MaxX
Height = Image.MaxY

'lave 100xXXX billedet:
newSize = 100
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

'Gem billedet
Image.ImageFormat = 1
Image.FileName = Server.Mappath(filnavnThumb100)
Image.SaveImage

'Lav næste fil
Image.LoadImage (Server.Mappath(filnavn))
'lave 550xXXX billedet:
newSize = 550
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

'Gem billedet
Image.ImageFormat = 1
Image.FileName = Server.Mappath(filnavnThumb550)
Image.SaveImage

Set Image = Nothing


%>

keysersoze -> Vil du ha alle point eller hvordan ligger landet??

sry - har slet ikke set dine sidste kommentarer.

Det er rigtigt sat op hvis det virker - så kan man altid optimere det når man får mere overskud til det :)

Hvordan point skal fordeles kan du vurdere bedre :)

Jo det virker sådan set meget godt, men "det" kan desværre ikke se forskel på 800 X 600 eller 600 X 800 og derfor forvrænge det billedet!!!
Jeg syntes bare jeg har set sådan en kodestumpt et eller andet sted????

det kan du jo selv let lave;

IMGHEIGHT = Image.MaxY
IMGWIDTH = Image.MaxX
If IMGHEIGHT > IMGWIDTH Then
  'noget
Else
  'noget andet
End If

Noget går galt

Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage (Server.Mappath(filnavn))
'Find billede højde og brede
Width = Image.MaxX
Height = Image.MaxY

IMGHEIGHT = Image.MaxY
IMGWIDTH = Image.MaxX
If IMGHEIGHT > IMGWIDTH Then
 
newSize = 75
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight
 
Else

newSize = 125
NewWidth  = newSize
NewHeight = (newSize / Width) * Height
Image.Resize newSize,NewHeight

End If

så bliver billedet 100x100???

det lyder nu usandsynligt.

Ja det ville jeg også mene og efter aftenmaden virkede det..... mystisk?????

Skal vi ikke dele i porten!