nicht angemeldet
Hallo,
mittlerweile kann ich die Datei sogr öffnen, jetzt müsste ich sie nur noch ein wenig formatieren... Irgendwie muss das gehen, denn ich habe schon bei uns im Intranet gesehen, dass die funktioniert.
Ich schick mal den Quellcode mit. Danke schon mal.
<%
Response.Buffer = True
anlage = Request.Querystring("anlage")
daten = Request.Querystring("daten")
select_dat = Request.Form("select_dat")
anzahl = Request.Form("anzahl")
comets_nr = Request.Form("comets")
IF select_dat = "25" THEN select_dat = "Top 25"
IF select_dat = "50" THEN select_dat = "Top 50"
IF select_dat = "100" THEN select_dat = "Top 100"
IF select_dat = "500" THEN select_dat = "Top 500"
IF select_dat = "1000" THEN select_dat = "Top 1000"
IF select_dat = "5000" THEN select_dat = "Top 5000"
IF select_dat = "alle" THEN select_dat = ""
IF select_dat = "----------" THEN select_dat = "Top 25"
IF id = "ON" THEN id = "id, " ELSE id = ""
IF anzahl = "ON" THEN anzahl = "anzahl, " ELSE anzahl = ""
IF comets_nr = "ON" THEN comets_nr = "comets_nr, " ELSE comets_nr = ""
' --- Zusammenstellen der Datenbankverbindungsinformationen
Dim strProvider
strProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
Dim strDatabase
strDatabase = "DATA SOURCE=" & Server.MapPath ("../") & "/test.mdb;"
Dim strComplete
strComplete = strProvider & strDatabase
' --- Öffnen der Datenbankverbindung
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strComplete
Tag = day(Date)
Monat = month(Date)
Jahr = year(Date)
Sekunden = Second(Time)
Minuten = Minute(Time)
Stunden = hour(Time)
datum = Tag&"_"&Monat&"_"&Jahr&"__"&Stunden&"_"&Minuten&"_"&Sekunden
' --- Angeben des Dateinamens des Excelsheets inkl. Pfadangabe.
Dim xls_path
xls_path = Server.MapPath("../excel") & "\test_"&datum&".xls"
' --- Das sieht zwar etwas konfus aus, funktioniert aber einwandfrei.
SQL = "SELECT "&select_dat&" anlage, "&anzahl&comets_nr&id&" los_nr INTO [Tabelle1] IN """ & xls_path & """ ""EXCEL 5.0;"" FROM test_anlagenbuch WHERE anlage='"&anlage&"'"
'Response.Write(SQL)
' --- Ausführen des SQL-Statements
objConn.Execute SQL
' --- Schliessen und terminieren der Datenbankverbindung.
objConn.Close
Set objConn = Nothing
%>
<p align="center">
<p align="center">
<button type="button" accesskey="E" runat="server" type="button" onClick="top.location='../excel/test_<%=datum%>.xls'"><u>E</u>xcel Datei öffnen</button>
</p>
<p align="center">
<button type="button" accesskey="X" runat="server" type="button" onClick="self.location='excel3.asp?anlage=<%=anlage%>&daten=<%=daten%>&datei=test_<%=datum%>.xls'">E<u>x</u>cel Datei auf dem Server löschen<br>und zurück zum Anlagenbuch</button></p>