---
title: "AspUpload-->AspSmartUpload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81133-aspupload-aspsmartupload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "huskyboy"
published: "2003-07-02T14:22:34.000Z"
updated: "2003-07-04T20:53:24.000Z"
replies: 3
views: 372
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/81133-aspupload-aspsmartupload"
---

# AspUpload-->AspSmartUpload

## #1 — huskyboy, 2003-07-02T14:22Z

Jag har ett bildarkiv med AspUpload men skulle vilja ha det som AspSmartUpload. Är det någon som kan hjälpa mig med det?
Här är koden i "bildupload". Tror att det är den enda som behövs.

\<%
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")= "En fil med samma namn finns redan i katalogen, döp om den."
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")= "Du glömde markera filen, försök igen."
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\>
\<!-- #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/81133

## #2 — Macce, 2003-07-04T12:32Z

Sök på AspSmartUpload här på forumet, så ser du hur du ska skriva om din kod...

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

## #3 — solbulle, 2003-07-04T17:34Z

<http://www.webforum.nu/newthread.php?s=&action=newthread&forumid=169> ;)

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

## #4 — huskyboy, 2003-07-04T20:53Z

Problemet är att jag inte kan något om asp.
Jag har försökt lösa det själv men det blir inte bra.
Ingen som har lust att ändra det som det ska vara?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/81133-aspupload-aspsmartupload