001  <!--#include virtual="/~include/callfunctions.asp"-->
002  <%
003  Response.Write "<html>" & VbCrLf
004  Response.Write "<head>" & VbCrLf
005  Response.Write "<link rel=""stylesheet"" href=""/~include/aspintranet.css"">" & VbCrLf
006  Response.Write " <title></title>" & VbCrLf
007  Response.Write "</head>" & VbCrLf
008  Response.Write "<body bgcolor=""threedface"">" & VbCrLf
009  Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">" & VbCrLf
010  Response.Write "<tr>" & VbCrLf
011  Response.Write " <td><img src=""images/setup_assi.png"" width=""162"" height=""314"" border=""0"" alt=""""></td>" & VbCrLf
012  Response.Write " <td width=""100%"" valign=""top"" bgcolor=""#FFFFFF"">" & VbCrLf
013  Response.Write " <table>" & VbCrLf
014  Response.Write "<tr>" & VbCrLf
015  Response.Write " <td class=""assistentheadline"">Willkommen zum Setup von ASPIntranet</td>" & VbCrLf
016  If Check_Setup = False Then
017   Response.Write "</tr>" & VbCrLf
018   Response.Write "<tr>" & VbCrLf
019   Response.Write " <td class=""assistent""><br>Dieser Assistent unterstützt Sie bei der Konfiguration von ASPIntranet.</td>" & VbCrLf
020   Response.Write "</tr>" & VbCrLf
021   Response.Write "<tr>" & VbCrLf
022   Response.Write " <td class=""assistent""><br>Zur Installation und Konfiguration sind folgende Schritte notwendig:</td>" & VbCrLf
023   Response.Write "</tr>" & VbCrLf
024   Response.Write "<tr>" & VbCrLf
025   Response.Write "<td class=""assistent""><br><ul>" & VbCrLf
026   Response.Write "<li>Eingabe der Betriebsdaten" & VbCrLf
027   Response.Write "<li>Anlegen eines Benutzers, der Mitarbeiter anlegen darf" & VbCrLf
028   Response.Write "</td>" & VbCrLf
029   Response.Write "</tr>" & VbCrLf
030   Response.Write "<tr><form action=""step1.asp"" method=""post"">" & VbCrLf
031   Response.Write " <td>" & VbCrLf
032   Response.Write " </td>" & VbCrLf
033   Response.Write "</tr>" & VbCrLf
034   Response.Write "<tr>" & VbCrLf
035   Response.Write " <td class=""assistent""><br>Falls Sie den Assistenten verlassen möchten, ohne ASPIntranet zu konfigurieren, klicken Sie auf Abbrechen. ASPIntranet kann dann nicht ausgeführt werden.</td>" & VbCrLf
036   Response.Write "</tr>" & VbCrLf
037   Response.Write "</table>" & VbCrLf
038   Response.Write " </td>" & VbCrLf
039   Response.Write "</tr>" & VbCrLf
040   Response.Write "<tr>" & VbCrLf
041   Response.Write " <td class=""assistent""><br></td>" & VbCrLf
042   Response.Write "</tr>" & VbCrLf
043   Response.Write "<tr>" & VbCrLf
044   Response.Write " <td colspan=""2"" align=""right"">" & VbCrLf
045   Response.Write " <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & VbCrLf
046   Response.Write "<tr>" & VbCrLf
047   Response.Write " <td>" & VbCrLf
048   Response.Write " <input type=""button"" value=""Abbrechen"" width=""82"" height=""24"" style=""width: 82px; height: 24px; font-family: Tahoma; font-size: 8pt;"" onFocus=""blur()"" onClick=""top.close()"">          "
049   Response.Write " </td>" & VbCrLf
050   Response.Write " <td>" & VbCrLf
051   Response.Write " <input type=""button"" value=""<< Zurück"" width=""82"" height=""24"" disabled style=""width: 82px; height: 24px; font-family: Tahoma; font-size: 8pt;"" onFocus=""blur()""> "
052   Response.Write " </td>" & VbCrLf
053   Response.Write " <td>" & VbCrLf
054   Response.Write " <input type=""submit"" value=""Weiter >>"" width=""82"" height=""24"" style=""width: 82px; height: 24px; font-family: Tahoma; font-size: 8pt;"" onFocus=""blur()"">  "
055   Response.Write "</td></form>" & VbCrLf
056   Response.Write "</tr>" & VbCrLf
057   Response.Write "</table>" & VbCrLf
058   Response.Write " </td>" & VbCrLf
059   Response.Write "</tr>" & VbCrLf
060   Response.Write "</table>" & VbCrLf
061   Response.Write "</body>"& VbCrLf
062   Response.Write "</html>"& VbCrLf
063  Else
064   Response.Write "</tr>" & VbCrLf
065   Response.Write "<tr>" & VbCrLf
066   Response.Write " <td class=""assistent""><br>Das Setup wurde bereits durchgeführt.</td>" & VbCrLf
067   Response.Write "</tr>" & VbCrLf
068   Response.Write "<tr>" & VbCrLf
069   Response.Write " <td class=""assistent""><br>Klicken Sie auf Beenden, um den Assistenten zu verlassen:</td>" & VbCrLf
070   Response.Write "</tr>" & VbCrLf
071   Response.Write "</table>" & VbCrLf
072   Response.Write " </td>" & VbCrLf
073   Response.Write "</tr>" & VbCrLf
074   Response.Write "<tr>" & VbCrLf
075   Response.Write " <td class=""assistent""><br></td>" & VbCrLf
076   Response.Write "</tr>" & VbCrLf
077   Response.Write "<tr>" & VbCrLf
078   Response.Write " <td colspan=""2"" align=""right"">" & VbCrLf
079   Response.Write " <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & VbCrLf
080   Response.Write "<tr>" & VbCrLf
081   Response.Write " <td>" & VbCrLf
082   Response.Write " <input type=""button"" value=""Abbrechen"" width=""82"" height=""24"" style=""width: 82px; height: 24px; font-family: Tahoma; font-size: 8pt;"" onFocus=""blur()"" onClick=""top.close()"">          "
083   Response.Write " </td>" & VbCrLf
084   Response.Write " <td>" & VbCrLf
085   Response.Write " <input type=""button"" value=""<< Zurück"" width=""82"" height=""24"" disabled style=""width: 82px; height: 24px; font-family: Tahoma; font-size: 8pt;"" onFocus=""blur()""> "
086   Response.Write " </td>" & VbCrLf
087   Response.Write " <td>" & VbCrLf
088   Response.Write " <input type=""button"" value=""Beenden"" width=""82"" height=""24"" style=""width: 82px; height: 24px; font-family: Tahoma; font-size: 8pt;"" onFocus=""blur()"" onclick=""top.close()"">  "
089   Response.Write "</td></form>" & VbCrLf
090   Response.Write "</tr>" & VbCrLf
091   Response.Write "</table>" & VbCrLf
092   Response.Write " </td>" & VbCrLf
093   Response.Write "</tr>" & VbCrLf
094   Response.Write "</table>" & VbCrLf
095   Response.Write "</body>"& VbCrLf
096   Response.Write "</html>"& VbCrLf
097  End If
098  %>