helvita bilder i ASPImage

Laddar upp en bild skriver du...

Om du i anslutning till den där koden även laddat upp en bild, du är då helt hundra på att den är där och är ok?

Är sökvägen helt 100% rätt?

solbulle skrev:

Laddar upp en bild skriver du...

Om du i anslutning till den där koden även laddat upp en bild, du är då helt hundra på att den är där och är ok?

Är sökvägen helt 100% rätt?

bilden blir kritvit när den sparas på servern

Ursäkta om det låter som om jag tvivlar, men du har alltså en bild i din mapp, sen kör du detta script och bilden har blivit kritvit?

ne, en bild ladda upp från hårddisken....ex från webkamera
bilden sparas på servern och skalas och sen sparas info i db om bilden

när bilden sparas på servern gör ASPImage på nåt sätt bilden kritvit, det enda jajg ser är texten som jag präntar in på varje bild

solbulle skrev:

Ursäkta om det låter som om jag tvivlar, men du har alltså en bild i din mapp, sen kör du detta script och bilden har blivit kritvit?

gå till http://kort.webbisen.com/vykort och ladda upp en bild, invänta mailet och kolla bilden

Okelidoki. Men då är det ju knappast den kod du visar som ställer till det?
Den kodsnutten laddar ju inte upp någon bild.
Kolla först om den bild du laddar upp blir ok. (Genom att utkommentera den kod du postat här.)

Här är hela koden

<%
varID=request.form("id")
varPic=request.form("bild")
varMessage=request.form("Meddelande")
varDatum=request.form("Datum")
varFran=request.form("Fran")
varFranMail=request.form("FranMail")
varTill=request.form("Till")
varTillMail=request.form("TillMail")

sID = varID
sTill = varTillMail
sFran = varFranMail
sMeddelande = meddelande
sBild = varPic

Set objMail = Server.CreateObject("CDO.Message")
objMail.From = sFran  
objMail.To = sTill
objMail.Subject="Du har fått ett E-vykort"
objMail.TextBody = "Du har fått ett E-vykort från " & sFran &vbcrlf &vbcrlf _
&"Du kan hämta det på [url]http://kort.webbisen.com/vykort/viewCard.asp?id=[/url]"&sID _
& vbcrlf & vbcrlf & "Om du tycker att det var lätt att skicka ditt kort och du gärna återkommer"_
& vbcrlf & "så ser jag gärna att du tipsar dina vänner om min E-vykortstjänst."_
& vbcrlf & "Mvh /Admin."_
& vbcrlf & vbcrlf & "E-vykortstjänsten på WebbisNet"_
& vbcrlf & "Http://www.webbisen.com , [url]Http://kort.webbisen.com/vykort.[/url]"
objMail.Send 
Set objMail = Nothing%>

<!-- #include virtual="/vykort/dbconn.asp" -->
<%
strBild=varPic
strBild=Right(strBild,Len(strBild)-3)

strDatum=varDatum
strDatum=replace(strDatum,"-"," ")

Set Image = Server.CreateObject("AspImage.Image")
Image.FileName = (Server.MapPath("/upload/images/cards/vykort/00"&strBild))
Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 400,250
Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false

'Image.ImageFormat = 3 'Stöd bara .png
'Image.CreateButton 1, true
Image.SaveImage

Dim objConn
	SET objConn = connect()
	picture = "INSERT INTO tblPostcard "
	picture = picture & "(id,fran,franMail,till,tillMail,bild,meddelande,inlagd,unread) "
	picture = picture & "VALUES('" & varID & "','" & varFran & "','" & varFranMail & "','" & varTill & "','" & varTillMail & "','" & strBild & "','"& varMessage &"','"& strDatum &"','1')"
	response.write picture
	'response.end
	objConn.Execute picture
Set Image = Nothing
%>

Jag ser aldrig att du laddar upp bilden till: /upload/images/cards/vykort/

Du måste ladda upp bilden innan du kan låta aspimage göra något med den.

bilden får ju rätt filnamn på servern så visst laddas den upp, den blir bara helt vit....det är där problemet ligger

solbulle skrev:

Jag ser aldrig att du laddar upp bilden till: /upload/images/cards/vykort/

Du måste ladda upp bilden innan du kan låta aspimage göra något med den.

och du kan inte ladda upp bilden från mina dokument, den måste ligga under c, d eller var du har den

Jag kan sätta en mindre peng på att bilden aldrig laddas upp till servern i den där koden.
Har du ingen (bild-)uppladdningskomponent du kan använda dig av också?

använder jag

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards/vykort"))
For Each file In Upload.Files
  Next
For Each file In Upload.Files
Next
Set File = Upload.Files
filnamn = Upload.form("bild")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("bild").ExtractFileName  
END IF

så måste jag ha enctype="multipart/form-data" och då får jag inte med mina variabler

har jag inte med den så måste jag vara utan enctype och då får jag med variablerna men ingen bild uppladdad

Hur ska jag göra?

använd persits.uploads formulär hantering. blir väl i detta fall typ: Upload.form("namn på fältet")

om jag inte är och springer på autobahn här.. :)

Med denna lilla kod

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards/vykort"))
Set File = Upload.Files
filnamn = Upload.form("bild")

får jag
Persits.Upload.1 error '800a003d'

Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.

/vykort/resize.asp, line 23
och får inte med några variabelvärden om jag använder ENCTYPE="multipart/form-data" i min form

ehumm... *mummel*

använd ENCTYPE="multipart/form-data" i formuläret!

Fånga upp värden med, nu i detta fall:
Upload.Form("namn på fälten") (om jag nu tänker rätt) :)

Istället för:
Request.Form("namn på fälten")

Nu verkar allt funka fin fint förutom att bilden inte skalas och märks med en text, nån som vet hur jag ordnar om ASPImage i den här koden för att få det att bli så

Set Upload = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards/vykort"))
For Each file In Upload.Files
  'If File.ImageType = "UNKNOWN" Then
  'Response.Redirect "/pictureupload/outputfile.asp?error=fel_filformat"
  'File.Delete 
 ' End If
  Next
For Each file In Upload.Files

'If file.Size = 100000 Then
        'This means the file was truncated
'        Response.Redirect "fel.asp"
'    File.Delete 
'    End If
Next
Set File = Upload.Files
filnamn = Upload.form("blob")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF

Set Image = Server.CreateObject("AspImage.Image")
LoadImage = (Server.MapPath("/upload/images/cards/vykort/"&strFileName))
Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 400,250
Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false
Image.SaveImage
Set Image = Nothing

Använd dig av precis samma kod som du hade först men sätt strBild till namnet på den bild du just laddat upp.

Det blir väl:

strBild = strFileName

(PS. Vilka tider folk sitter och knackar kod på egentligen. :) )

solbulle skrev:

(PS. Vilka tider folk sitter och knackar kod på egentligen. :) )

He he.. de tider då hjärnan arbetar som bäst! :OO

solbulle skrev:

Använd dig av precis samma kod som du hade först men sätt strBild till namnet på den bild du just laddat upp.

Det blir väl:

strBild = strFileName

(PS. Vilka tider folk sitter och knackar kod på egentligen. :) )

om jag har strBild=strFileName
och lägger in den så här
LoadImage = (Server.MapPath("/upload/images/cards/vykort/"&strBild))
så gör det väl ingen direkt skillnad