---
title: "Byta namn på bild"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108698-byta-namn-på-bild"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "illusion"
published: "2004-08-06T19:26:34.000Z"
updated: "2004-08-08T00:56:34.000Z"
replies: 4
views: 264
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/108698-byta-namn-på-bild"
---

# Byta namn på bild

## #1 — illusion, 2004-08-06T19:26Z

Jag vill byta namn på bilden när jag laddar upp den till tex "\<Mappnamn\>\_2372198398" eller ngt liknande hur byter man namn på en bild som man laddar upp?

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

## #2 — M.Cheraghi, 2004-08-06T23:23Z

Hmmpf, hur laddar du upp bilden?
Någon upload komponent? t.ex ASPupload, AspSmartUpload?
Lite kod kring det hela?

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

## #3 — illusion, 2004-08-07T07:48Z

> **M.Cheraghi skrev:**
>
> Hmmpf, hur laddar du upp bilden?
> Någon upload komponent? t.ex ASPupload, AspSmartUpload?
> Lite kod kring det hela?

```
<%
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
     
			Set Upload	= get_upload_files()
			fcontent	= Upload("upload").Item("content")
			              
                extension = right(extract_filename(Upload("upload").Item("filename")),4)
                If objFSO.FileExists(Files_upload & "\" & extract_filename(Upload("upload").Item("filename"))) Then
                    Session("mess") = "Det finns redan en fil med det namnet, byt namn på filen !!!"
		    Response.Redirect strPageName
                Else
                     If instr(strAllow,extension) then
                     	Set Conn = Server.CreateObject("ADODB.Connection") 
						Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../Dbase/gallery_db.mdb")
						SQL = "Insert Into files(category,name) Values('" & Request.Cookies("5days") & "','" & Request.Form("url") & "')"
        				Conn.Execute(SQL)
                        Set File	= objFSO.CreateTextFile(Files_upload & "\" & extract_filename(Upload("upload").Item("filename")))
                     Else
                        Session("mess") = "Filen är ej godkänd. Endast <b>" & strAllow & "</b> är godkända."
                        Response.Redirect strPageName
                     End If
                End If                        
		For i = 1 to LenB(fcontent)
			File.Write chr(AscB(MidB(fcontent, i, 1)))
		Next
				
		File.Close: Set File = Nothing
		Session("mess") = "Du har gjort en lyckad uppladdning !!!"
		Response.Redirect strPageName
End If
%>
```

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

## #4 — illusion, 2004-08-07T07:51Z

Jag vill döpa bilden till "\<Mappnamn\>\_Now()\_102902"

Först mappen den ligger i sen det aktuella datumet och tid och sist random nummer.

Och till slut, går det inte att skicka upp alla filer i en mapp?

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

## #5 — M.Cheraghi, 2004-08-08T00:56Z

hmmmpf, Har du löst problemet?
Eller markerade du som 'accepterat' för skojjs skull?
Om du löste det själv, skriv *hur* du löste det, och acceptera det som svar istället!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/108698-byta-namn-på-bild