---
title: "Hjälp med asp upload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61732-hjälp-med-asp-upload"
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: 1
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 1 av 3._

## #1 — Tik, 2002-12-09T19:38Z

2 filer:

nr1 heter lagg_till_annons10.asp

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

\<th align=right valign=top\>\<font size="2" face="Verdana"\>Ladda upp bild:\</font\>\</th\>
\<td\>\<input type="file" name="laddaupp" size=35\>

nr2 heter lagg_till_annons_nu10.asp

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
    End If

connect.close
set connect = nothing

Det funkar inte att ladda upp bild.FEL ?

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

## #2 — Tik, 2002-12-09T19:41Z

Felmeddelande :

ADODB.Recordset error '800a0cc1' 

Item cannot be found in the collection corresponding to the requested name or ordinal. 

/lagg_till_annons_nu10.asp, line 91

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

## #3 — solbulle, 2002-12-09T19:42Z

Vad använder du för komponent?

var öppnar du ditt rs?

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

## #4 — Tik, 2002-12-09T19:43Z

jag har loopia hotel,jag tror det är aspsmart

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

## #5 — LarsG, 2002-12-09T19:46Z

Denna rad alltså?

```
recset("Bild") = recset("AnnonsID")&"_0" &  _
recset("AnnonsID") & _
Replace(fix(recset("datum")),"-","")+696969 &"." & _
right(strFilename,3)
```

Bild, AnnonsID eller datum finns inte med i recset. Hur skapar du recset?

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

## #6 — Tik, 2002-12-09T19:49Z

Förstår inte.Hur då skapar recset ?

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

## #7 — Tik, 2002-12-09T20:11Z

Hela koden i nr2 heter lagg_till_annons_nu10.asp :

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

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

## #8 — solbulle, 2002-12-09T20:17Z

RED. Glöm det, för jobbigt...

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

## #9 — Tik, 2002-12-09T20:21Z

men det med alla annonsID. Är det OK ? Själva recset ?

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

## #10 — Tik, 2002-12-09T20:32Z

använder ASPUpload  version 2.1.0.1

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

## #11 — LarsG, 2002-12-09T20:32Z

Vilken kodrad är det du får fel på?

Hur är tabellen Annonser definierad?

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

## #12 — Tik, 2002-12-09T20:41Z

Här får ni adressen:

<http://www.gratisannons.nu/lagg_till_annons10.asp>

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

## #13 — Tik, 2002-12-09T20:43Z

Här nedan får ni HELA koden lagg_till_annons_nu10.asp:

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

   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

%\>

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

## #14 — LarsG, 2002-12-09T21:04Z

Du skrev i början att du fick fel på rad 91. Det finns inte 91 rader i den koden du postade. 

Vilken rad får du fel på?

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

## #15 — Tik, 2002-12-09T21:09Z

ADODB.Recordset error '800a0cc1' 

Item cannot be found in the collection corresponding to the requested name or ordinal. 

/lagg_till_annons_nu10.asp, line 92 

Så står det nu.

och jag har detta i koden också (men jag trodde/tror att det är obetydligt)

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\* 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")
%\>

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

## #16 — Tik, 2002-12-09T21:29Z

Nu öppnas tom (Vit) sidan.Inget meddelande.Men annonsen är inte inlagd.

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

## #17 — Jesper T, 2002-12-09T22:10Z

1\. Var vänlig och använd \[ kod \]- taggarna.
2\. Du har inte så många rader. (Jag får det till 73 -"line 92")
3\. Felmeddelandet betyder antagligen(gissning) att du har stavat fel på ett kolumnnamn.

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

## #18 — solbulle, 2002-12-09T22:29Z

Vi vet fortfarande inte vilken rad nr 91-92 är...

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

## #19 — solbulle, 2002-12-09T22:35Z

if request.querystring("laddaupp") = "ja" then 

Jag ser inte att du har den querystringen i din action-adress på formuläret!?!

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

## #20 — Tik, 2002-12-10T13:47Z

Här är hela koden fil nr1. 

\<form method="POST" action="lagg_till_annons_nu10.asp" name="annons" onSubmit="return kontrollera()" enctype="multipart/form-data"\>
                  \<tr\>
                    \<td\>&nbsp;\</td\>
                    \<td class="verdana2"\>
                    \<font size="2" color="firebrick" face="Verdana"\>\*\</font\>\<font face="Verdana" size="2"\>&nbsp;\<input type="radio" value="Säljes" name="annonstyp" checked\>Säljes&nbsp;&nbsp;\<input type="radio" value="Köpes" name="annonstyp"\>Köpes
                    \<input type="radio" value="Bytes" name="annonstyp"\>Bytes\<br\>
                    \<font color="#B22222"\>
\</font\>\</font\>\</td\>
                  \</tr\>
                   \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>Kategori: \</font\>
                    \<font size="2" color="firebrick"\>\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>\<font face="Verdana" size="2"\>\<select name="kategori"\>
                    \<option value="0" selected\>Välj Kategori\</option\>
                    \<option value="Antikt och Samlarprylar"\>Antikt och Samlarprylar\</option\>
                    \<option value="Bilar"\>Bilar\</option\>
                    \<option value="Bildelar och Biltillbehör"\>Bildelar och Biltillbehör\</option\>
                    \<option value="Biljetter och Resor"\>Biljetter och Resor\</option\>
                    \<option value="Bilstereo"\>Bilstereo\</option\>
                    \<option value="Båtar"\>Båtar\</option\>
                    \<option value="Cyklar"\>Cyklar\</option\>
                    \<option value="Datatillbehör och Delar"\>Datatillbehör och Delar\</option\>
                    \<option value="Datorer"\>Datorer\</option\>
                    \<option value="Djur och Djurartiklar"\>Djur och Djurartiklar\</option\>
                    \<option value="Fiske"\>Fiske\</option\>
                    \<option value="Foto"\>Foto\</option\>
                    \<option value="För Hus och Trädgård"\>För Hus och Trädgård\</option\>
                    \<option value="Golf"\>Golf\</option\>
                    \<option value="Hobby"\>Hobby\</option\>
                    \<option value="Hus och Lägenheter"\>Hus och Lägenheter\</option\>
                    \<option value="Hushållsmaskiner"\>Hushållsmaskiner\</option\>
                    \<option value="Husvagnar och Husbilar"\>Husvagnar och Husbilar\</option\>
                    \<option value="Hästar och Hästsport"\>Hästar och Hästsport\</option\>
                    \<option value="Jakt"\>Jakt\</option\>
                    \<option value="Kläder"\>Kläder\</option\>
                    \<option value="Leksaker och Barnartiklar"\>Leksaker och Barnartiklar\</option\>
                    \<option value="Litteratur"\>Litteratur\</option\>
                    \<option value="Mopeder"\>Mopeder\</option\>
                    \<option value="Motorcyklar"\>Motorcyklar\</option\>
                    \<option value="Musikinstrument"\>Musikinstrument\</option\>
                    \<option value="Möbler och Heminredning"\>Möbler och Heminredning\</option\>
                    \<option value="Snöskotrar"\>Snöskotrar\</option\>
                    \<option value="Sport och Fritid"\>Sport och Fritid\</option\>
                    \<option value="Telefoner"\>Telefoner\</option\>
                    \<option value="TV/Radio/Video/Stereo"\>TV/Radio/Video/Stereo\</option\>
                    \<option value="TV-Spel"\>TV-Spel\</option\>
                    \<option value="Verktyg och Maskiner"\>Verktyg och Maskiner\</option\>
                    \<option value="Övrigt"\>Övrigt\</option\>
                    \</select\> \<br\>
\<font color="#B22222"\>\</font\>\</font\>\</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>Rubrik: \</font\>
                    \<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="1"\>
                    \<input maxLength="90" size="30" name="rubrik"\>\<br\>
&nbsp;\<font color="#B22222"\>\</font\>\</font\>\</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" vAlign="top" align="right"\>
                    \<font face="Verdana"\>\<font size="2"\>Annonstext: \</font\>
                    \<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="2"\>
                    \<textarea name="annonstext" rows="7" cols="43" style="font-size: 8pt; font-family: Tahoma"\>\</textarea\>\</font\>\</td\>
                  \</tr\>
    
\<tr\>
\<th align=right valign=top\>\<font size="2" face="Verdana"\>Ladda upp bild:\</font\>\</th\>
\<td\>\<input type="file" name="laddaupp" size=35\>  (ej obligatoriskt)\<br\>
Bilden f&aring;r vara max 640 pixlar bred, 480 pixlar hög och inte\<br\>
&ouml;verskrida 70 kB, samt m&aring;ste vara i GIF-, PNG- eller JPEG-format
\</td\>
\</tr\>

\<tr\>
                    \<td class="verdana2" align="right"\>
                    \<font size="2" face="Verdana"\>Pris:\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="2"\>
                    \<input maxLength="10" size="5" name="pris"\> &nbsp;&nbsp;\<i\>Endast 
                    siffror\</i\> \</font\> 
                                        \<font face="Verdana" size="1"\>
\<font face="Verdana" size="1"\>
\</font\>\</font\>\</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>Förnamn: \</font\>
                    \<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="1"\>
                    \<input maxLength="15" size="10" name="Fornamn"\> \</font\> 
                    \<font color="#B22222"\>
\</font\>\</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>Efternamn: \</font\>
                    \<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="1"\>
                    \<input maxLength="20" size="10" name="Efternamn"\> \</font\> \</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>Län: \</font\>\<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\> \<select name="region"\>
          \<option value="0" selected\>Välj ett län\</option\>
          \<option value="Blekinge"\>Blekinge\</option\>
          \<option value="Dalarna"\>Dalarna\</option\>
          \<option value="Gotland"\>Gotland\</option\>
          \<option value="Gävleborg"\>Gävleborg\</option\>
          \<option value="Göteborg"\>Göteborg\</option\>
          \<option value="Halland"\>Halland\</option\>
          \<option value="Jämtland"\>Jämtland\</option\>
          \<option value="Jönköping"\>Jönköping\</option\>
          \<option value="Kalmar"\>Kalmar\</option\>
          \<option value="Kronoberg"\>Kronoberg\</option\>
          \<option value="Norrbotten"\>Norrbotten\</option\>
          \<option value="Skaraborg"\>Skaraborg\</option\>
          \<option value="Skåne"\>Skåne\</option\>
          \<option value="Stockholm"\>Stockholm\</option\>
          \<option value="Södermanland"\>Södermanland\</option\>
          \<option value="Uppsala"\>Uppsala\</option\>
          \<option value="Värmland"\>Värmland\</option\>
          \<option value="Västerbotten"\>Västerbotten\</option\>
          \<option value="Västernorrland"\>Västernorrland\</option\>
          \<option value="Västmanland"\>Västmanland\</option\>
          \<option value="Älvsborg"\>Älvsborg\</option\>
          \<option value="Örebro"\>Örebro\</option\>
          \<option value="Östergötland"\>Östergötland\</option\>
          \</select\>\<font face="Verdana" size="1"\> \</font\> \</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>
                    \<font size="2" face="Verdana"\>Telefon:\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="2"\>
                    \<input maxLength="15" size="9" name="Telefon"\> &nbsp;&nbsp;\<i\>Inkl. 
                    riktnr\<br\>
                    \<input type="checkbox" name="Telefongomd" value="true"\> 
                    Visa in telefonnumret\</i\> \</font\> \</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>E-post: \</font\>
                    \<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="2"\>
                    \<input maxLength="50" name="epost1" size="20"\> \</font\> \</td\>
                  \</tr\>
                  \<tr\>
                    \<td class="verdana2" align="right"\>\<font face="Verdana"\>
                    \<font size="2"\>Verifiera e-post: \</font\>
                    \<font size="2" color="firebrick"\>&nbsp;&nbsp;\*\</font\>\</font\>\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="2"\>
                    \<input maxLength="50" name="epost2" size="20"\> \</font\> \</td\>
                  \</tr\>
                  

\<tr\>
                    \<td class="verdana2" align="right"\>&nbsp;\</td\>
                    \<td class="verdana2"\>
                    \<font face="Verdana" size="1"\>
                    \<input type="submit" value="Lägg till annons" name="submit"\>

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

---

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