Hallo Leute
ich bin kein erfahrener Webmaster, habe aber die ehrenhafte Aufgabe erhalten unser Intranet aufzupeppen.
Ich bin nicht ganz doof im scripten und coden, aber von Talent fehlt jede Spur.
Ich habe folgendes Problem, und bekomme es einfach nicht gelöst. Ein großes Hindernis ist auch, dass unser Unternehmensserver lediglich "Fehler 500" schmeisst, sobald ein Fehler im Code steckt. Keinerlei Hinweis auf die eigentliche Fehlermeldung.
Wir betreiben eine Datenbank (MsAccess) mit Aufträgen. Im Laufe der Jahre ist diese bereits ziemlich gewachsen.
Die Datenbank wird über eine Tabelle im Web angezeigt.
Schleife
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
Beispielszeile
<td><%=(Recordset1.Fields.Item("Kurzbezeichnung").Value)%></td>
Felder wie Kurzbezeichnung gibt es insg. 10 Stück.
Bei diesen Aufträgen handelt es sich um öffentliche Aufträge, bei denen auch Flyer eine Rolle spielen. Diese sollen zukünftig verlinkt werden können.
Aus diesem Grund habe ich einen weiteren Datensatz in die Tabelle eingefügt, der auf den zukünftigen Ort des Kursbezogenen Ordners weisen soll. Sieht so aus :
`<td><a href="file:///C:\TEST\<%=(Recordset1.Fields.Item("Kurzbezeichnung").Value)%>.<%=(Recordset1.Fields.Item("Ort").Value)%>\" target="_blank"><center><img border="0" src="../images/Folder.png" valign="center" width="20" height="30"></a> </center>`
Man sieht hier dass ich einen Ordner angeben möchte, der aus der Kurzbezeichnung sowie dem Ort bestehen soll. (Kurs.Ort).
Das funktioniert auch problemlos. Erstelle ich den betreffenden Ordner händisch funktioniert die Verlinkung einwandfrei. Soweit so gut.
Das Problem ist, dass wir über 1000 solcher "Kurse" haben, und diese auch stets neu zukommen.
Daher versuchte ich ein CreateObject mit in die Schleife zu bauen.
Ein sehr großes Problem scheint zu sein, dass ich den Namen aus 2 Datenbankeinträgen erstellen lassen möchte.
Jedes mal wenn
> <%=(Recordset1.Fields.Item("Kurzbezeichnung").Value)%>.<%=(Recordset1.Fields.Item("Ort").Value)%>
dazu kommt, kommt Fehler 500, und Notepad ++ zeigt auch optisch das Ende des Codes nicht mehr an.
Das war der letzte Versuch mit FSO
</tr> <--- Ende der Kurstabelle
<%
Dim strFolder = "C:\TEST\<%=(Recordset1.Fields.Item("Kurzbezeichnung").Value)%>.<%=(Recordset1.Fields.Item("Ort").Value)%>"
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FolderExists(strFolder) Then
oFSO.CreateFolder strFolder
End If
%>
ServerMapPath und sonstige Googleleien habe ich auch schon probiert, aber ich lande immer wieder beim Fehler 500
Könnt ihr mir sagen, ob mein vorhaben machbar ist? Und wenn ja, wie man da hingelangen könnte?
ich danke euch vielmals
Mfg
Lutz