ASP - VBSCRIPT - CreateFolder in Loop aus Datenbankeinträgen

[kettenschutz]

ich habs jetzt wie folgt in einer test.asp eingebaut

<% ON ERROR RESUME NEXT %>
<% Dim strFolder = "C:\TEST\"
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject") 
%>
<%
If Not oFSO.FolderExists(strFolder) Then %>
<%  oFSO.CreateFolder strFolder %>
 
<% End If %>

<% IF Err.Number > 0
   Response.Write "Something went horribly wrong: "
   Response.Write Err.Number
   Response.Write "<br>"
   Response.Write Err.Description
   Response.End
   %>
<% END IF %>

Ergebnis ist Fehler 500 Ich bin aber auch nicht sicher, ob das mit den VBS tags <% immer so hin haut