---
title: "Skapa mapp, vill inte fungera."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/116100-skapa-mapp-vill-inte-fungera"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nedde"
published: "2004-11-17T13:10:14.000Z"
updated: "2004-11-17T13:55:57.000Z"
replies: 6
views: 269
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/116100-skapa-mapp-vill-inte-fungera"
---

# Skapa mapp, vill inte fungera.

## #1 — nedde, 2004-11-17T13:10Z

Har en databas och jag vill att den ska skapa en mapp åt alla användare som har statusen "2" i fältet activation.
Den ska loopa runt och skapa en mapp åt alla som inte redan har det. Men jag får inte till det. Vad är felet?

Jag anropar det genom http:/sasadsad.com/fil.asp?skapa

```
<!--#include file="../Connections/usr.asp" -->
<%
If Request("skapa") <> "" Then
	Set conn = Server.CreateObject("ADODB.Connection")
	set rs = Server.CreateObject("ADODB.recordset")
	sql="SELECT * FROM users WHERE activation = '2' "
	conn.open dsn
	rs.Open sql, conn

	do until rs.EOF
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	IF Not objFSO.FolderExists(" & AfUsername & ") then
				objFSO.CreateFolder(Server.MapPath(" & AfUsername & "))
	End If
	Response.Write " & AfUsername & "
	rs.MoveNext
	loop
	Set objFSO = Nothing
	rs.close
	conn.close
	end if	
%>
```

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

## #2 — @nders, 2004-11-17T13:11Z

Till att börja med:

På vilket sätt fungerar det inte? Felmeddelande?

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

## #3 — nedde, 2004-11-17T13:12Z

Jag får inte något felmeddelande överhuvudtaget. Det är bara en helt blank sida och inget i källkoden heller.

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

## #4 — yohpops, 2004-11-17T13:17Z

Du måste sätta "skapa" till något.
Om du anropar med http:/sasadsad.com/fil.asp?skapa så är skapa tomt.

http:/sasadsad.com/fil.asp?skapa=true

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

## #5 — nedde, 2004-11-17T13:38Z

Nu har jag det på följande sätt men saken är den att den inte tar ut  informationen ur fältet "afusername" utan skapar mappen afusername. Vart är mitt fel nu? Jag har suttit för länge med detta nu.. börjar bli hjärntvättad.

```
<% 
dsn = "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 
%>

<%
If Request("skapa") = "true" Then
	Set conn = Server.CreateObject("ADODB.Connection")
	set rs = Server.CreateObject("ADODB.recordset")
	sql= " SELECT * FROM users WHERE activation = '2' "
	conn.open dsn
	rs.Open sql, conn

	do until rs.EOF
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	IF Not objFSO.FolderExists("AfUsername") then
		objFSO.CreateFolder(Server.MapPath("AfUsername"))
	End If
	rs.MoveNext
	loop
	Set objFSO = Nothing
	rs.close
	conn.close
	
	end if	
%>
```

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

## #6 — yohpops, 2004-11-17T13:47Z

Du måste skriva rs("AfUsername") för att hämta datat från databasen.

```
<% 
dsn = "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" 
%>

<%
If Request("skapa") = "true" Then
	Set conn = Server.CreateObject("ADODB.Connection")
	set rs = Server.CreateObject("ADODB.recordset")
	sql= " SELECT * FROM users WHERE activation = '2' "
	conn.open dsn
	rs.Open sql, conn

	do until rs.EOF
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	IF Not objFSO.FolderExists(Server.MapPath(rs("AfUsername"))) then
		objFSO.CreateFolder(Server.MapPath(rs("AfUsername")))
	End If
	rs.MoveNext
	loop
	Set objFSO = Nothing
	rs.close
	conn.close
	
end if	
%>
```

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

## #7 — nedde, 2004-11-17T13:55Z

Märkte det i samma stund som jag läste din kod. Tack. Fungerar finnemang nu. Tack för hjälpen. ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/116100-skapa-mapp-vill-inte-fungera