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