---
title: "Hjälp med asp upload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61732-hjälp-med-asp-upload/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Tik"
published: "2002-12-09T19:38:11.000Z"
updated: "2002-12-16T21:14:44.000Z"
replies: 41
views: 827
page: 2
pages: 3
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/61732-hjälp-med-asp-upload"
---

# Hjälp med asp upload

_Sida 2 av 3._

## #21 — solbulle, 2002-12-10T13:53Z

> **solbulle skrev:**
>
> if request.querystring("laddaupp") = "ja" then 
> 
> Jag ser inte att du har den querystringen i din action-adress på formuläret!?!

Som sagt...

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

## #22 — Tik, 2002-12-10T13:58Z

Men, vad skall jag ändra ? Vad och var skall jag skriva ?

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

## #23 — solbulle, 2002-12-10T14:06Z

För att komma runt just det problemet behöver du ju antingen bara ta bort den if-satsen i din aspsida som tar hand om datat du sänder, dock bör/måste du ju ha någon form av koll om man ska ladda upp något.
Annars ändrar du din action på ditt formulär i koden som du visar ovan till:

```
<form method="POST" action="lagg_till_annons_nu10.asp?laddaupp=ja" name="annons" onSubmit="return kontrollera()" enctype="multipart/form-data">
```

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

## #24 — solbulle, 2002-12-10T14:08Z

Jag tycker att du ska koncentrera dig på att få det hela att fungera till en början för att sen fixa till eventuella kontrollfunktioner samt i sista hand ta hand om det rent utseendemässiga på sidorna. (Så som du gör nu.)
Bara en tanke.

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

## #25 — Tik, 2002-12-10T14:33Z

Nu har jag ändrat det till det du skrev där uppe:

\<form method="POST" action="lagg_till_annons_nu10.asp?laddaupp=ja" name="annons" onSubmit="return kontrollera()" enctype="multipart/form-data"\> 

Men felmeddelande jag får är:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'FileUpload' 

/lagg_till_annons_nu10.asp, line 46

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

## #26 — Tik, 2002-12-10T14:38Z

Ang att få det hela att funfgera..

DEt fungerar,men bilden får man lägga till i efterhand.Och nu vill jag ändra det till så att man kan lägga upp bild direkt vid nyannonsering.

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

## #27 — Tik, 2002-12-10T16:10Z

Jag vet att många av er kan lätt fixa sånt.Nån som vill fixa mina 2 filer ?

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

## #28 — solbulle, 2002-12-10T16:23Z

Jag hjälper dig gärna, men jag förstår inte riktigt din kod.
Var har du funktionen FileUpload?

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

## #29 — Tik, 2002-12-10T16:28Z

Jag är helt.. Jag vet inte.kan du fixa något liknande så att det fungera.

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

## #30 — solbulle, 2002-12-10T16:32Z

Njao, vill gärna... men du bör ha fått kodraden, eller ett exempel någon stans ifrån, eller hur? 
Har du tillgång till någon form av dokumentation av komponenten?
Är det denna? <http://www.aspupload.com/manual_simple.html>

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

## #31 — Tik, 2002-12-10T16:34Z

ja,det är den.Fått den av en kompis.

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

## #32 — solbulle, 2002-12-10T16:39Z

Ok, mitt tips är att du då frågar honom efter resten av koden, som jag ser det saknas själva uppladningsfunktionen.
Alternativ 2 är att du kikar på sidan jag länkade till.
Det hela är egentligen inte speciellt krångligt. Det du måste observera är att du inte använder request.form utan deras "objekt" - står på sidan.

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

## #33 — Tik, 2002-12-10T18:45Z

Hmm.Nu har jag läst.Men jag får inte den att fungera,

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

## #34 — solbulle, 2002-12-10T19:37Z

Hur ser koden ut nu då?

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

## #35 — Tik, 2002-12-10T19:39Z

\<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
function mkPwd(IntAnt)
strCode= "abcdefghijklmnopqrstuvwxyz0123456789"
for a = 1 to IntAnt
randomize
intTest = rnd \* len(strCode)
strPwd= strPwd & mid(strCode,(intTest + 1),1)
next
mkPwd = strPwd
end function
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Annonser.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "select \* From Annonser"
RecSet.Open Addera, Connect, 1, 3
recset.addnew
Session("Losenordgenerator") = mkPwd(7)
recset("Losenord") = session("Losenordgenerator")
recset("Annonstyp") = request.form("annonstyp")
recset("kategori") = request.form("kategori")
recset("rubrik") = request.form("rubrik")
recset("annonstext") = request.form("annonstext")
if request.form("pris") = "" then
recset("pris") = recset("pris")
else
recset("pris") = request.form("pris")
end if
recset("bild") = request.form("bild")
recset("fornamn") = request.form("fornamn")
recset("efternamn") = request.form("efternamn")
recset("region") = request.form("region")
recset("telefon") = request.form("telefon")
if request.form("telefongomd") = "" then
recset("telefongomd") = false
else
recset("telefongomd") = request.form("telefongomd")
end if
recset("epost") = request.form("epost1")
recset("Datum") = now()
recset.update
session("AnnonsID") = recset("AnnonsID")
 if request.querystring("laddaupp") = "ja" then
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload("Bilder/", 200000, Array("image/gif", "image/jpeg", "image/pjpeg"), Array("gif", "jpg"), strContentType, strFilename, intFileTotalBytes)

        If intFileUpload = 0 Then
            Response.Write "Filen " & strFilename & " blev uppladat.\<BR\>"
            recset("Bild") = recset("AnnonsID")&"\_0"&recset("AnnonsID")& Replace(fix(recset("datum")),"-","")+696969&"."&right(strFilename,3)
   recset.update
   response.redirect "andra_ta_bort_bild.asp"
        Else  
            Response.Write "Det uppstod ett fel under uppladdningen!\<BR\>"
            Response.Write "Fel nummer: " & intFileUpload & "\<BR\>"
            Response.Write "Filnamn: " & strFilename & "\<BR\>"
            Response.Write "Filtyp: " & strContentType & "\<BR\>"
            Response.Write "Filstorlek: " & intFileTotalBytes & "\<BR\>"
        End If
connect.close
set connect = nothing
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* skickar mail \*\*\*\*\*\*\*\*\*\*\*\*
Set jmail = Server.CreateObject("JMail.Message")
jmail.AddRecipient request.form("epost1")
jmail.From = "kundtjanst@gratisannons.nu"
Jmail.Priority = 1
jmail.Subject = "Viktigt gällande din annons"
jmail.appendHTML "\<html\>\<body\>\<font face=verdana size=2\>\<b\>Hej!\</b\>\</font\>\<p\>"
jmail.appendHTML "\<font face=verdana size=1\>Gratisannons.nu tackar Dig för Din inlagda annons \<I\>("&request.form("rubrik")&")\</I\>\<p\>"
jmail.appendHTML "\<font face=verdana size=1\>AnnonsID: \<b\>"&recset("AnnonsID")&"\</font\>\</b\>\<br\>"
jmail.appendHTML "\<font face=verdana size=1\>Lösenord: \<b\>"&recset("Losenord")&"\</font\>\</b\>\<p\>"
jmail.appendHTML "\<font face=verdana size=1\>Mvh/Kundtjänst\</font\>\</body\>\</html\>"
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* smtp server till loopia \*\*\*\*\*\*\*
jmail.Send( "smtp.loopia.se")
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
response.redirect "lagg_till_annons_2.asp?AnnonsID="&session("AnnonsID")&"&Losenord="&session("Losenordgenerator")
end if
%\>

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

## #36 — solbulle, 2002-12-10T19:51Z

Ser ingen skillnad mot din tidigare kod?
Hur som helst, du kan testa detta:

```
<% 
Const adOpenKeyset = 1 
Const adLockOptimistic = 3 
function mkPwd(IntAnt) 
strCode= "abcdefghijklmnopqrstuvwxyz0123456789" 
for a = 1 to IntAnt 
randomize 
intTest = rnd * len(strCode) 
strPwd= strPwd & mid(strCode,(intTest + 1),1) 
next 
mkPwd = strPwd 
end function 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Annonser.mdb")&"" 
Set RecSet = Server.CreateObject("ADODB.Recordset") 
Addera = "select * From Annonser" 
RecSet.Open Addera, Connect, 1, 3 
recset.addnew 
Session("Losenordgenerator") = mkPwd(7) 
recset("Losenord") = session("Losenordgenerator") 
recset("Annonstyp") = upload.form("annonstyp") 
recset("kategori") = upload.form("kategori") 
recset("rubrik") = upload.form("rubrik") 
recset("annonstext") = upload.form("annonstext") 
if upload.form("pris") = "" then 
recset("pris") = recset("pris") 
else 
recset("pris") = upload.form("pris") 
end if 
recset("bild") = upload.form("bild") 
recset("fornamn") = upload.form("fornamn") 
recset("efternamn") = upload.form("efternamn") 
recset("region") = upload.form("region") 
recset("telefon") = upload.form("telefon") 
if upload.form("telefongomd") = "" then 
recset("telefongomd") = false 
else 
recset("telefongomd") = upload.form("telefongomd") 
end if 
recset("epost") = upload.form("epost1") 
recset("Datum") = now() 
recset.update 
session("AnnonsID") = recset("AnnonsID") 
if request.querystring("laddaupp") = "ja" then 
Dim intFileUpload, strContentType, strFilename, intFileTotalBytes 

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload" 'Ändra till din mapp där du ska ha filerna som laddas upp.

For Each File in Upload.Files
strFilename = File.Name
Next

If strFilename <> "" Then 
Response.Write "Filen " & strFilename & " blev uppladat.<BR>" 
recset("Bild") = recset("AnnonsID")&"_0"&recset("AnnonsID")& Replace(fix(recset("datum")),"-","")+696969&"."&right(strFilename,3) 
recset.update 
response.redirect "andra_ta_bort_bild.asp" 
Else 
Response.Write "Det uppstod ett fel under uppladdningen!<BR>" 
Response.Write "Fel nummer: " & intFileUpload & "<BR>" 
Response.Write "Filnamn: " & strFilename & "<BR>" 
Response.Write "Filtyp: " & strContentType & "<BR>" 
Response.Write "Filstorlek: " & intFileTotalBytes & "<BR>" 
End If 
connect.close 
set connect = nothing 
'******************* skickar mail ************ 
Set jmail = Server.CreateObject("JMail.Message") 
jmail.AddRecipient upload.form("epost1") 
jmail.From = "kundtjanst@gratisannons.nu" 
Jmail.Priority = 1 
jmail.Subject = "Viktigt gällande din annons" 
jmail.appendHTML "<html><body><font face=verdana size=2><b>Hej!</b></font><p>" 
jmail.appendHTML "<font face=verdana size=1>Gratisannons.nu tackar Dig för Din inlagda annons <I>("&upload.form("rubrik")&")</I><p>" 
jmail.appendHTML "<font face=verdana size=1>AnnonsID: <b>"&recset("AnnonsID")&"</font></b><br>" 
jmail.appendHTML "<font face=verdana size=1>Lösenord: <b>"&recset("Losenord")&"</font></b><p>" 
jmail.appendHTML "<font face=verdana size=1>Mvh/Kundtjänst</font></body></html>" 
'*************** smtp server till loopia ******* 
jmail.Send( "smtp.loopia.se") 
'********************************************* 
response.redirect "lagg_till_annons_2.asp?AnnonsID="&session("AnnonsID")&"&Losenord="&session("Losenordgenerator") 
end if 
%>
```

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

## #37 — Tik, 2002-12-10T19:55Z

testat.

fel igen.

Microsoft VBScript runtime error '800a01a8' 

Object required: 'upload' 

/lagg_till_annons_nu10.asp, line 21

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

## #38 — solbulle, 2002-12-10T21:17Z

Ah, sorry, mitt fel.
Denna bit måste ligga innan alla request.upload, förslagsvis högst upp i scriptet.
Flytta denna kodsnutt:

```
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "c:\upload" 'Ändra till din mapp där du ska ha filerna som laddas upp.
```

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

## #39 — Tik, 2002-12-11T10:13Z

Persits.Upload.1 error '800a0005' 

The system cannot find the path specified. 

/lagg_till_annons_nu10.asp, line 3

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

## #40 — solbulle, 2002-12-11T14:26Z

> **solbulle skrev:**
>
> ```
> ...
> Upload.Save "c:\upload" 'Ändra till din mapp där du ska ha filerna
> ```

Har du ändrat sökvägen till den mapp där du vill att filerna ska hamna?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/61732-hjälp-med-asp-upload/page2  
Föregående sida: https://www.webforum.nu/amne/asp/61732-hjälp-med-asp-upload.md  
Nästa sida: https://www.webforum.nu/amne/asp/61732-hjälp-med-asp-upload/page3.md