請各位幫幫我！
我想用Response.write輸出一個Select,但寫出的代碼不知道問題出在哪，你各位幫幫看看！謝謝！
response.Write   " <select   name= "list1 " '> "

運行後提示：
錯誤類型：
Microsoft   VBScript   編譯階段錯誤   (0x800A0401)
必須是陳述式的結尾
/PictureShow.asp,   line   76,   column   31
response.Write   " <select   name= ' "list1 " '> "
------------------------------^
請各位高手看看！謝謝！

------解决方案--------------------
你要制定 'list1 '的内容,不能为空,也就是path 的路径
'object.GetFolder(folderspec) folderspec指的是路径


Sub AddNewFolder(path, folderName)
Dim fso, f, fc, nf
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFolder(path)
Set fc = f.SubFolders
If folderName <> " " Then
Set nf = fc.Add(folderName)
Else
Set nf = fc.Add( "New Folder ")
End If
End Sub