case fejl "syntax error"
Nogle der kan sige mig hvad der er galt med denne case kode, nårJeg får denne fejl:
Syntax error
/upload/folder_file.asp, line 42
Case "creating_folder"
Linje 42 = Case "creating_folder"
Kode er:
<%@ Language=VBScript %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
Dim SiteName
SiteName = LCase(Request.Servervariables("SCRIPT_NAME"))
Response.Buffer = True
Session.LCID = 1030
%>
<head>
<title>Upload-Script</title>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1" />
<meta http-equiv="content-language" content="dan" />
<link rel="stylesheet" type="text/css" href="include/style.css" title="style" />
<style type="text/css">td img {display: block;}</style>
</head>
<body bgcolor="#ffffff">
<form action="<%=SiteName%>?fsostatus=creating_folder" method="Get">
<input type="text" name="Foldername">
<button type="submit">Create</button>
</form>
<%
Select Case fsostatus
Dim ServerMappath
ServerMappath = "./images/upload"
fsostatus = Request("fsostatus")
Dim Folder, objFSO
Folder = Server.Mappath(""&ServerMappath&"") &"/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Folder_List
Dim objFolder, Folders, Fold, strTemp
Set objFolder = objFSO.GetFolder(Folder)
Set Folders = objFolder.subfolders
For Each Fold In Folders
strTemp = Fold.name
Response.Write(strTemp & "<br>")'" <a href="&SiteName&"?fsostatus=deleting_folder&del="&strTemp&">[ Delete ]</a><br>")
Next
Case "creating_folder"
'Creat_Folder
Dim FolderName, NewFolder, add
FolderName = request("Foldername")
NewFolder = Folder + FolderName
Set add = objFSO.CreateFolder(NewFolder)
Set objFSO = Nothing
Case "deleting_folder"
'Delete_Folder
Dim FolderNameDel, FolderDel, del
FolderNameDel = request("del")
FolderDel = Folder + FolderNameDel
Set del = objFSO.DeleteFolder(DeleteFolder)
Set objFSO = Nothing
End Select
%>
