<% Option Explicit 'Aktuellen Pfad bestimmen und über die Kommandozeile weitergeben Dim Target : Target = "/_pgm/autocon.asp" Dim AktuellerPfad : AktuellerPfad = Request.ServerVariables("SCRIPT_NAME") 'Entfernen des Dateinamens AktuellerPfad = Mid(AktuellerPfad,1,InStrRev(AktuellerPfad,"/")) Target= Target+"?Pfad="+AktuellerPfad 'Die Art der Anwendung bestimmen 'Target= Target+"&TYP=FOTO" 'Was immer sonst noch über die Kommandozeile kam, ebenfalls weitergeben If Request.QueryString<>"" Then Target= Target+"&"+Request.QueryString End If %>