Overrides upload - crisse problem

Hej!

Orginaltraden blev det valdigt rorigt i sa jag kande att jag behovde skapa en ny trad for att ni ska kunna skilja problemen :)

Jag far alltsa "Permission Denied" nar jag anvander mitt skript, men kommer bara med den if-sats som kollar om objRS ar tomt eller inte och vilka varden de olika variablerna far.
[r]
Eftersom det ar a, a och o i koden och denna skoldator jag sitter pa inte kan lasa det sa blir det konstiga tecken, inget att bry sig om :)
[/r]

<%
Response.Buffer = TRUE
Randomize
Response.Expires=0
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Lite olika variabler

'Deklarerar variablen strMaxSize till 50000 bytes = 50 kb
strMaxSize = Request.TotalBytes

'strUsr &#3652;r sessionsID:et
strUsr = "_"&session("sessionsID")

'strRandom skapar ett slumpat nummer
strRandom = CiNT(1-9000 * Rnd + 9000)

'strDt plockar ner datum
strDt = 	DatePart("m", Now())&"_"&_
		DatePart("d", Now())&"_"&_
		DatePart("yyyy", Now())

'strFile deklareras till formularf&#3652;ltet p&#3653; default.asp
strFile = UploadRequest.Item("blob").Item("ContentType")

'I detta fall har vi bara .gif vi beh&#3670;ver oroa oss f&#3670;r och tar bara de 3 tecken fr&#3653;n h&#3670;ger
strForm = Right(strFile,3)

'strAll kopplar ihop allting

strSqlCheckPic = "Select * from t_users Where ID = "& session("sessionsID")
set objRS = objConn.Execute(strSqlCheckPic)

If objRS.eof then
strAll = strRandom&strDt&strUsr&"."&strForm
filename = Right(strAll,Len(strAll)-InstrRev(strAll,"\"))
else
strAll = objRS("avatar")
filename = objRS("avatar")
End IF

value = UploadRequest.Item("blob").Item("Value")

'Skapar objekt
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Kollar om det &#3652;r jpg eller gif fil om det st&#3652;mmer, g&#3653; vidare
If strFile="image/pjpeg" OR strFile="image/gif" THEN

'Kollar nu med strMaxSize om den &#3652;r st&#3670;rre &#3652;n 50kb, om inte, g&#3653; vidare
	If strMaxSize > 50000 then
		response.write "Bilden &#3652;r f&#3670;r stor, "& strMaxSize &" bytes. Den f&#3653;r max vara 50000 bytes (50kb)."
	else

'Skapa och skriv fil
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("usrPics/"&filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

response.write "<b>Filens s&#3670;kv&#3652;g:</b> " & Server.mappath("usrPics/"&filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""usrPics/" & filename & """>"

strSqlAddPic = "Update t_users set avatar = '"& filename &"' Where ID = "& session("sessionsID")
objConn.execute strSqlAddPic,,128

End IF
'Fr&#3653;n If-satsen ovan s&#3653; kommer h&#3652;r om det INTE &#3652;r jpg eller gif fil
Else
response.write "Bilden m&#3653;ste vara av formatet .gif eller jpg."
End IF
%>

Permission Denied betyder väl inget annat än att du saknar rättigheter till att skriva till den mappen, eller?

Länk till orginaltråd samt mer utförligt felmeddelande hade hjälpt.

Men det funkade ju att skriva innan jag la till if satsen om det finns bild redan eller ej?!

Jymdis, orginaltraden finns hogt uppe i asp forum "Uploadscript utan komponent" av Override... Utforligt felmeddelande? Kan tyvarr inte gora sa mycket mer, ar allt jag far.

Och om du lite kvickt klipper ur den koden, fungerar det då igen?

visst gor den det, kommenterade bort if satsen, da funkar det prima

Bilden laddas upp och placeras där den ska?
Även fast du byter namn på den?

Japp. Placeras korrekt.