---
title: "Uploadscript utan komponent"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page14"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "OveRRidE"
published: "2002-06-18T07:09:05.000Z"
updated: "2007-09-04T23:17:00.000Z"
replies: 307
views: 16870
page: 14
pages: 16
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/46131-uploadscript-utan-komponent"
---

# Uploadscript utan komponent

_Sida 14 av 16._

## #261 — k0ffe, 2005-01-18T19:52Z

Ja, men hittade ingenting... Tack för att du gjorde det istället! :)
Jag antar att det måste vara felet...

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

## #262 — Dashi, 2005-07-18T09:47Z

Hej! va längesen någon skrev här hehe iallafall, jag har världens dummaste fråga, hur får man igång scriptet? :) jag ladda ner scriptet, packa upp de i en mapp, la upp de på servern och skulle testa det, men när jag trycker på ladda upp så står den bara och laddar och inget händer.. vad gör jag?

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

## #263 — @nders, 2005-07-18T09:57Z

Kör servern Norton Antivirus?

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

## #264 — Dashi, 2005-07-18T10:02Z

> **@nders skrev:**
>
> Kör servern Norton Antivirus?

jag testar localt från min dator och där är NA ja :) vadå då? :P

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

## #265 — @nders, 2005-07-18T10:03Z

Då får du slå av Script Blocking.
Välkänt symptom, om man säger så.

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

## #266 — Dashi, 2005-07-18T10:08Z

> **@nders skrev:**
>
> Då får du slå av Script Blocking.
> Välkänt symptom, om man säger så.

okaj, lägger över det till den riktiga servern istället och testar där då..

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

## #267 — Dashi, 2005-07-18T10:15Z

nu fick jag ett felmeddelande iallafall

Feltyp:
Körningsfel i Microsoft VBScript (0x800A004C)
Det går inte att hitta angiven sökväg.
/test/outputfile.asp, line 38

rootmappen där filerna ligger heter test, i den ligger filerna och mappen images i mappen images ligger mappen prod, så jag förstår inte..

```
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/images/prod/" & filename))
```

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

## #268 — @nders, 2005-07-18T10:18Z

Om inte /test är rootmappen för webben, utan en undermapp till webroten, då får du ta bort den först slashen, som ju betyder rot.

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

## #269 — Dashi, 2005-07-18T10:21Z

> **@nders skrev:**
>
> Om inte /test är rootmappen för webben, utan en undermapp till webroten, då får du ta bort den först slashen, som ju betyder rot.

ja just de :) hehe e för trött :P när man laddat upp bilden står det information, typ sökväg till bilden och bild typ o.s.v hur får man bort det så de inte visas efter man laddat upp bilden?

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

## #270 — @nders, 2005-07-18T10:22Z

Lokalisera koden som gör utskriften, och ta bort / kommentera bort.

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

## #271 — Dashi, 2005-07-18T10:23Z

> **@nders skrev:**
>
> Lokalisera koden som gör utskriften, och ta bort / kommentera bort.

okej tackar :)

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

## #272 — Dashi, 2005-07-18T10:31Z

En sista fråga sen funkar allt fin fint :)

hur får jag in denna raden i min kod här nedan använder ju redan en form:
\<form method="post" action="outputfile.asp" enctype="multipart/form-data"\>

```
<% If Request.Querystring("add") = "" Then %>
    <form action="produkteradd.asp?add=ny" method="post">
	  
    <table border="0" cellspacing="0" cellpadding="0" width="90%">
      <tr align="center" valign="top"> 
        <td colspan="2" height="35"><b><font face="Geneva, Arial, Helvetica, san-serif" size="3">L&auml;gg 
          till Produkter</font></b>
          <hr>
        </td>
      </tr>
      <tr> 
        <td width="200"><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Grupp</font></b></td>
        <td> 
          <input type="text" name="nygrupp" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Undergrupp</font></b></td>
        <td> 
          <input type="text" name="nyundergrupp" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Tredjegrupp</font></b></td>
        <td> 
          <input type="text" name="nytredjegrupp" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Artikel 
          nr</font></b></td>
        <td> 
          <input type="text" name="nyartnr" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Produktnamn</font></b></td>
        <td> 
          <input type="text" name="nyprodukt" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Kort 
          beskrivning</font></b></td>
        <td> 
          <input type="text" name="nytext" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Pris</font></b></td>
        <td> 
          <input type="text" name="nypris" size="40">
        </td>
      </tr>
      <tr> 
        <td><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Bild</font></b></td>
        <td> 
          <input type="file" name="blob" size="40">
        </td>
      </tr>
      <tr> 
        <td align="left" valign="top"><b><font face="Geneva, Arial, Helvetica, san-serif" size="2">Specificerad 
          beskrivning</font></b></td>
        <td> 
          <p> 
            <textarea name="nyspec" cols="30" rows="6"></textarea>
          </p>
        </td>
      </tr>
      <tr align="center" valign="top"> 
        <td colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
          </font>
          <hr>
          <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
          <input type=submit  name=Submit value="<%=txt_submit%>" class="button">
          <input type=reset  value="<%=txt_rensa%>" class="button" name="reset">
          </font> </td>
      </tr>
    </table>
	</form>
	
  <% End If %>
  <% If Request.Querystring("add") = "ny" Then
		
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(masterdata_databas)

add = "Select * From produkter"
RS.Open add, conn, adOpenStatic, adLockOptimistic

RS.AddNew

		RS("grupp") = Replace(Request.Form("nygrupp"), "'", "''")
		RS("undergrupp") = Replace(Request.Form("nyundergrupp"), "'", "''")
		RS("tredjegrupp") = Replace(Request.Form("nytredjegrupp"), "'", "''")
		RS("art_nr") = Replace(Request.Form("nyartnr"), "'", "''")
		RS("produkt") = Replace(Request.Form("nyprodukt"), "'", "''")
		RS("text") = Replace(Request.Form("nytext"), "'", "''")
		RS("pris") = Replace(Request.Form("nypris"), "'", "''")
		RS("bild") = Replace(Request.Form("nybild"), "'", "''")
		RS("spec") = Replace(Request.Form("nyspec"), "'", "''")
RS.Update
	RS.Close

conn.Close
	Set RS = nothing
	Set conn = nothing

Response.Redirect "produkteradd.asp?add=klar"
End If %>
  <% If Request.Querystring("add") = "klar" Then %>
  <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><br>
  <script>parent.frames['meny'].location.reload(true);</script>
  Produkten &auml;r nu inlagd i databasen!</b></font> 
  <% End If %>
```

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

## #273 — Dashi, 2005-07-18T12:15Z

ingen som vet? :)

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

## #274 — sin_adec, 2006-07-05T07:46Z

Någon som har lust att hjälpa mig?.  jag försöker göra så att på en sida så fyller man i ett formulär sedan har man möjlighet att lägga upp bild, nu till problemet, man kan endast lägga upp bilden samt ingen annan information registreras i databasen förutom självaste filen och datumet bilden placerades på servern.

så här ser koden ut:

```

<html>
<head>
	<title>Upload</title>
</head>

<body>
<!-- #include virtual="produkter/adovbs.inc" --> 

<%
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
'email = UploadRequest.Item("email").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(filename))

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

MyFile.Close

Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\Bill\Mina dokument\databas.mdb"

Set recset = Server.CreateObject("adodb.recordset")
Addera = "Select * From produkter" '//SQL
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'//Sparar filnamn i databasen

	RecSet.AddNew	
	
	
	RecSet("typ") = request.form("typ")
	Recset("information") = request.form("information")
	RecSet("datum") = Now()	
	Recset("bild1") = filename
	   
 	RecSet.Update
	RecSet.close
	
    Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"
%>
<!--#include file="upload.asp"-->

</body>
</html>
```

så frågan hur gör jag för att request.form("typ") och request.form("information") även registeras i databasen.

tack i förväg.

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

## #275 — @nders, 2006-07-05T08:08Z

Står det inte i dokumentationen, alternativt i den kodsnutt du precis postat, hur man gör för att ta in formulärelement?

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

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

## #276 — sin_adec, 2006-07-05T08:19Z

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

används inte det endast om man vill kunna lägga upp fler bilder?.

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

## #277 — @nders, 2006-07-05T08:20Z

Nej, det ska du använda för att 'plocka ner' andra formulärelement.
Man kan inte använda request.form när man laddar upp en bild, så man gör på det sättet istället.

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

## #278 — sin_adec, 2006-07-05T08:26Z

@nders.  tack för hjälpen.   ( varm applåd för dig )

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

## #279 — @nders, 2006-07-05T08:28Z

\*bugar\* :bire

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

## #280 — sin_adec, 2006-07-10T06:44Z

Upload fungerar, men inte att visa bilderna

Hej!

jo jag har tittat på det här, när jag använder scriptet så fungerar det att ladda upp bilder, bildernas namn registreras i databasen, fast jag vet inte vad för galet jag har gjort men jag kan endast se 1 bild när jag hämtar information från databasen, om jag har tur så visas två bilder.  någon som vet.

```

<html>
<head>
	<title>Upload</title>
</head>

<body>
<!-- #include virtual="adovbs.inc" --> 

<%
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
'email = UploadRequest.Item("email").Item("Value")

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

contentType = UploadRequest.Item("bildtva").Item("ContentType")
filepathname = UploadRequest.Item("bildtva").Item("FileName")
filename2 = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

contentType = UploadRequest.Item("bildtre").Item("ContentType")
filepathname = UploadRequest.Item("bildtre").Item("FileName")
filename3 = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

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

epost = UploadRequest.Item("epost").Item("Value")
information = UploadRequest.Item("information").Item("Value")
url = UploadRequest.Item("url").Item("Value")
onskemal = UploadRequest.Item("onskemal").Item("Value")

bildtva = UploadRequest.Item("bildtva").Item("Value")
bildtre = UploadRequest.Item("bildtre").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(filename))

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

Next

MyFile.Close

Set connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\FSC\Mina dokument\web\databas.mdb"

Set recset = Server.CreateObject("adodb.recordset")
addera = "Select * from onskningar"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Recset.addnew

Recset("epost") = epost
Recset("information")= information
Recset("url") = url
Recset("datum") = date
Recset("onskemal") = onskemal

Recset("huvudbild") = filename
Recset("bildtva") = filename2
Recset("bildtre") = filename3

RecSet.Update
RecSet.Close
Connect.Close

Response.redirect ("main.asp")

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

</body>
</html>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page14  
Föregående sida: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page13.md  
Nästa sida: https://www.webforum.nu/amne/asp/46131-uploadscript-utan-komponent/page15.md