---
title: "Hjälp med upload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/85375-hjälp-med-upload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "huskyboy"
published: "2003-09-05T18:25:26.000Z"
updated: "2003-09-06T10:33:02.000Z"
replies: 1
views: 226
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/85375-hjälp-med-upload"
---

# Hjälp med upload

## #1 — huskyboy, 2003-09-05T18:25Z

Finns det någon vänlig själ som gratis eller mot en billig peng skulle kunna hjälpa mig att ändra detta script från aspupload till smartupload? Jag har försökt men lyckas inte. 
Jag tror att det räcker med denna filen, annars får jag väl skicka hela scriptet. 

kod:--------------------------------------------------------------------------------\<%
If not session("login") = True then
Response.redirect "Admin.asp"
end if

 if Request.QueryString("add")="ja" then

Set Upload = Server.CreateObject("Persits.Upload")

Upload.Save

' markerades en fil?
Set File = Upload.Files("file")
If Not File Is Nothing Then
   ' filnamnet
   filename = file.Filename

   ' kollar om filen finns i samma katalog (Ändra sökvägen här)
   If Upload.FileExists("bilder/uppskickade\\" & filename ) Then

if filename="ingen" then

      ' spara (Ändra sökvägen här)
      File.SaveAsVirtual "bilder/uppskickade/" & File.Filename
      Session("medelande")= "Filen sparades i " & File.Path

else

      Session("medelande")= "Det finns redan en fil med det namnet"
Response.Redirect("add_ok.asp?fel=2")

end if

   Else
      ' annars spara (Ändra sökvägen här)
      File.SaveAsVirtual "bilder/uppskickade/" & File.Filename
      Session("medelande")= "Filen sparades i " & File.Path
   End If
Else ' ingen fil markerad
   Session("medelande")= "Ingen fil markerades"
Response.Redirect("add_ok.asp?fel=3")
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("db/bilder.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL="SELECT\*From bilder ORDER BY ID asc"
RecSet.Open SQL, Conn, 3, 3

RecSet.AddNew

RecSet("info")=Upload.Form("info")
Recset("kategori") =Upload.Form("kat")

RecSet("sokvag")=filename

RecSet.Update

RecSet.Close
Set RecSet=nothing
Conn.Close
Set Conn=nothing

Response.Redirect("changebild.asp")

end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath ("db/bilder.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RecSet1 = Server.CreateObject("ADODB.Recordset")
SQL1="SELECT\*From kat ORDER BY ID asc"
SQL="SELECT\*From bilder ORDER BY ID asc"
RecSet.Open SQL, Conn, 3, 3
RecSet1.Open SQL1, Conn, 3, 3

%\>

\<html\>
\<head\>
\</head\>
\<body bgcolor="#C2C287" text="#000000" id="all" leftmargin="10" topmargin="10" marginwidth="10" marginheight="10" link="#660000" vlink="#660000" alink="#660000"\>
\<!-- #include file="settings.asp" --\>
\<font size="2"\>\<a href="login.asp"\>Adminstrations-startsida\</a\>\|\<a href="bildarkiv.asp"\>Startsida\</a\>\</font\>
\<h3\>Ladda upp bild\</h3\>
\<table\>\<tr\>\<td\>
\<form name="MyForm" action="bildupload.asp?add=ja&ID=\<%=Request.QueryString("ID")%\>" method="post" enctype="multipart/form-data"\>
Kategori\</td\>\<td\>

\<SELECT name="kat"\>
\<%
'loopar runt datan i databasen
Do While Not RecSet1.EOF
%\>\<OPTION value="\<%=RecSet1("kategori")%\>"\>\<%=RecSet1("kategori")%\>\</OPTION\>
\<%
Recset1.movenext
Loop
%\>

\</SELECT\>\</td\>\</tr\>\<tr\>\<td\>

Kort information om bilden.\</td\>\<td\>\<input type="text" name="Info"\>\</td\>\</tr\>\<tr\>\<td\>
Ladda upp bild\</td\>\<td\>\<input type="file" name="file"\>\</td\>\</tr\>\<tr\>\<td\>
\<tr\>\<td colspan="2" align="center"\>
\<input type="submit" value="Lägg till"\>
\</td\>\</tr\>

\</table\>
\<br\>\<%=copynotis%\>

\</body\>
\</html\>

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

## #2 — Jesper T, 2003-09-06T10:33Z

Börja själv i en ände, eller flytta inlägget till [denna](http://www.webforum.nu/forumdisplay.php?s=&forumid=26) avdelning.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/85375-hjälp-med-upload