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
%>