---
title: "Upload, fält och sånt..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83933-upload-fält-och-sånt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "k0ffe"
published: "2003-08-10T16:52:38.000Z"
updated: "2003-08-11T09:47:56.000Z"
replies: 12
views: 404
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/83933-upload-fält-och-sånt"
---

# Upload, fält och sånt...

## #1 — k0ffe, 2003-08-10T16:52Z

Hej på er, har upptäckt ett litet fel.

Jag har en sida med ett par fält, "rubrik", " bild" och "inlägg".

Då man inte väljer någon bild i "bild"-fältet får jag felmeddelande.

Använder denna kod:

\<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
rubrik = UploadRequest.Item("rubrik").Item("Value")
inlagg = UploadRequest.Item("inlagg").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&filename)
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath("upload/"&filename)) 

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

MyFile.Close

%\>

\<%

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; "&\_
"Data Source="&Server.MapPath("/")

SQLStmt = "INSERT INTO nyheter_u (nyh_bild, rubrik, inlagg, forfattare) "
SQLStmt = SQLStmt & "VALUES('" & filename & "', '" & rubrik & "', '" & inlagg & "', '" & Session("Namn") & "') "

Set RS = Connection.Execute(SQLStmt)

response.Redirect("u.asp")

Connection.Close
Set Connection = Nothing

	
%\>

\<!--#include file="upload.asp"--\>

Permalänk: https://www.webforum.nu/p/83933

## #2 — @nders, 2003-08-10T16:53Z

Snälla, använd \[kod\]-taggar, så man kan läsa koden utan att ens ögon imploderar.

Mvh

Permalänk: https://www.webforum.nu/p/1132986

## #3 — k0ffe, 2003-08-10T16:56Z

Okay, inte för jag vet hur man går tillväga, men men ;)

Permalänk: https://www.webforum.nu/p/1132992

## #4 — @nders, 2003-08-10T16:56Z

<http://www.webforum.nu/misc.php?s=&action=bbcode>

Permalänk: https://www.webforum.nu/p/1132993

## #5 — k0ffe, 2003-08-10T17:06Z

Men DOH! Måste ha varit jobbigt att bara skriva: 

```
 din kod
```

... haha :D

Permalänk: https://www.webforum.nu/p/1133008

## #6 — solbulle, 2003-08-10T17:47Z

Och ditt felmeddelande lyder? :OO

Permalänk: https://www.webforum.nu/p/1133028

## #7 — @nders, 2003-08-10T18:56Z

> **k0ffe skrev:**
>
> Men DOH! Måste ha varit jobbigt att bara skriva: 
>
> ```
>  din kod
> ```
>
> ... haha :D

Nu när du lärt dig hur man gör skulle det uppskattas om du redigerade in kod-taggarna i inlägget som har koden i sig. ;)

Permalänk: https://www.webforum.nu/p/1133084

## #8 — solbulle, 2003-08-10T19:13Z

Hur man nu skulle kunna lära sig av att bara se dom utskrivna? Som fallet blev:

> **k0ffe skrev:**
>
> Men DOH! Måste ha varit jobbigt att bara skriva: 
>
> ```
>  din kod
> ```
>
> ... haha :D

 ;)

Permalänk: https://www.webforum.nu/p/1133095

## #9 — k0ffe, 2003-08-10T23:57Z

solbullen -\>

Felmeddelandet blir följande:

Microsoft VBScript runtime error '800a0046' 

Permission denied 

nyhet_u/outputfile.asp, line 44

Permalänk: https://www.webforum.nu/p/1133283

## #10 — solbulle, 2003-08-11T00:10Z

Rättighetsproblem, antagligen har inte iusr rättigheter att skriva till den mapp du vill komma åt.
(Alt Norton antivirus.)

<http://www.webforum.nu/search.php?s=&action=showresults&searchid=312260&sortby=lastpost&sortorder=descending>

Permalänk: https://www.webforum.nu/p/1133288

## #11 — k0ffe, 2003-08-11T00:19Z

Nejdå, det kan inte vara det.
Det blir bara såhär ifall man inte väljer att ladda upp någon bild tillsammans med artikeln. Skriver man bara in rubrik och inlägget så får man felmeddelandet. Väljer man däremot en bild också så fungerar det utmärkt. Skulle vara bra om det gick att skriva en artikel utan att ta med en bild ifall man inte behöver det...

Permalänk: https://www.webforum.nu/p/1133292

## #12 — solbulle, 2003-08-11T00:26Z

Ah, just ja, så var det.

Lägg till en koll att det verkligen är en fil med.

typ:

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

If value \<\> "" then

'koden som skriver filen till disk.

End if

typ...

Permalänk: https://www.webforum.nu/p/1133293

## #13 — k0ffe, 2003-08-11T09:47Z

Okay, fungerar fint fint. 
Åter tack!

Permalänk: https://www.webforum.nu/p/1133397

---

Tråden på webben: https://www.webforum.nu/amne/asp/83933-upload-fält-och-sånt