001  <!--#include virtual="/~include/callfunctions.asp"-->
002  <%
003  Dim StrSQL
004  Dim rs
005  If Request.Form("Firmenname") <> "" Then Session("Setup_Firmenname") = Request.Form("Firmenname")
006  If Request.Form("Zusatz") <> "" Then Session("Setup_Zusatz") = Request.Form("Zusatz")
007  If Request.Form("Strasse") <> "" Then Session("Setup_Strasse") = Request.Form("Strasse")
008  If Request.Form("Land") <> "" Then Session("Setup_Land") = Request.Form("Land")
009  If Request.Form("PLZ") <> "" Then Session("Setup_PLZ") = Request.Form("PLZ")
010  If Request.Form ("Ort") <> "" Then Session("Setup_Ort") = Request.Form("Ort")
011  Response.Write "<html>" & VbCrLf
012  Response.Write "<head>" & VbCrLf
013  Response.Write "<link rel=""stylesheet"" href=""/~include/aspintranet.css"">" & VbCrLf
014  Response.Write " <title></title>" & VbCrLf
015  Response.Write "<script language=""JavaScript"">"
016  Response.Write "<!--"
017  Response.Write ""
018  Response.Write "function Check_Telefon()"
019  Response.Write "{"
020  Response.Write "if (document.setupdaten.Setup_Telefon.value==0)"
021  Response.Write "{"
022  Response.Write " document.setupdaten.action=""optionneu.asp"";"
023  Response.Write " document.setupdaten.option.value=""Telefon"";"
024  Response.Write " document.setupdaten.fieldnames.value=""Setup_Telefon,Setup_Telefax,Setup_EMail,Setup_WWW,Setup_UstID"";"
025  Response.Write " document.setupdaten.submit();"
026  Response.Write "}"
027  Response.Write "}"
028  Response.Write "//-->"
029  Response.Write "</script>"
030  Response.Write "<script language=""JavaScript"">"
031  Response.Write "<!--"
032  Response.Write ""
033  Response.Write "function Check_Telefax()"
034  Response.Write "{"
035  Response.Write "if (document.setupdaten.Setup_Telefax.value==0)"
036  Response.Write "{"
037  Response.Write " document.setupdaten.action=""optionneu.asp"";"
038  Response.Write " document.setupdaten.option.value=""Telefax"";"
039  Response.Write " document.setupdaten.fieldnames.value=""Setup_Telefon,Setup_Telefax,Setup_EMail,Setup_WWW,Setup_UstID"";"
040  Response.Write " document.setupdaten.submit();"
041  Response.Write "}"
042  Response.Write "}"
043  Response.Write "//-->"
044  Response.Write "</script>"
045  Response.Write "<script language=""JavaScript"">"
046  Response.Write "<!--"
047  Response.Write ""
048  Response.Write "function Check_EMail()"
049  Response.Write "{"
050  Response.Write "if (document.setupdaten.Setup_EMail.value==0)"
051  Response.Write "{"
052  Response.Write " document.setupdaten.action=""optionneu.asp"";"
053  Response.Write " document.setupdaten.option.value=""EMail"";"
054  Response.Write " document.setupdaten.fieldnames.value=""Setup_Telefon,Setup_Telefax,Setup_EMail,Setup_WWW,Setup_UstID"";"
055  Response.Write " document.setupdaten.submit();"
056  Response.Write "}"
057  Response.Write "}"
058  Response.Write "//-->"
059  Response.Write "</script>"
060  Response.Write "<script language=""JavaScript"">"
061  Response.Write "<!--"
062  Response.Write ""
063  Response.Write "function submit_setupdaten()"
064  Response.Write " { "
065  Response.Write " if (document.setupdaten.Setup_Telefon.selectedIndex==0)"
066  Response.Write " { "
067  Response.Write " alert(""Sie haben keine Telefonnummer eingegeben!"");"
068  Response.Write " } "
069  Response.Write " else "
070  Response.Write " { "
071  Response.Write " if(document.setupdaten.Setup_Telefax.selectedIndex==0) "
072  Response.Write " { "
073  Response.Write " alert(""Sie haben keine FAX-Nummer eingegeben!"");"
074  Response.Write " } "
075  Response.Write " else "
076  Response.Write " { "
077  Response.Write " if(document.setupdaten.Setup_EMail.value=="""") "
078  Response.Write " { "
079  Response.Write " alert(""Sie haben keine E-Mail-Adresse eingegeben!"");"
080  Response.Write " } "
081  Response.Write " else "
082  Response.Write " { "
083  Response.Write " if(document.setupdaten.Setup_WWW.value=="""") "
084  Response.Write " { "
085  Response.Write " alert(""Sie haben keine Homepage eingegeben!"");"
086  Response.Write " } "
087  Response.Write " else "
088  Response.Write " { "
089  Response.Write " document.setupdaten.submit(); "
090  Response.Write " }"
091  Response.Write " }"
092  Response.Write " }"
093  Response.Write " }"
094  Response.Write " }"
095  Response.Write "// end function submit_params"
096  Response.Write "// -->"
097  Response.Write ""
098  Response.Write "//-->"
099  Response.Write "</script> "
100  Response.Write "</head>" & VbCrLf
101  Response.Write "<body bgcolor=""threedface"">" & VbCrLf
102  Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"">" & VbCrLf
103  Response.Write "<tr>" & VbCrLf
104  Response.Write " <td><img src=""images/setup_assi.png"" width=""162"" height=""314"" border=""0"" alt=""""></td>" & VbCrLf
105  Response.Write " <td width=""100%"" valign=""top"" bgcolor=""#FFFFFF"">" & VbCrLf
106  Response.Write " <table>" & VbCrLf
107  Response.Write "<tr>" & VbCrLf
108  Response.Write " <td class=""assistentheadline"">Betriebsdaten</td>" & VbCrLf
109  Response.Write "</tr>" & VbCrLf
110  Response.Write "<tr>" & VbCrLf
111  Response.Write " <td class=""assistent""><br>Bitte geben Sie nachfolgende Betriebsdaten Ihres Unternehmens an.<br><br></td>" & VbCrLf
112  Response.Write "</tr>" & VbCrLf
113  Response.Write "<tr>" & VbCrLf
114  Response.Write "<form action=""step3.asp"" method=""post"" name=""setupdaten"">" & VbCrLf
115  Response.Write " <td align=""center"">" & VbCrLf
116  Response.Write " <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & VbCrLf
117  Response.Write " <tr>" & VbCrLf
118  Response.Write " <td colspan=2 class=""assistentform"">Telefon</td>" & VbCrLf
119  Response.Write " </tr>" & VbCrLf
120  Response.Write " <tr>" & VbCrLf
121  Response.Write " <td colspan=2><select name=""Setup_Telefon"" id=""Setup_Telefon"" class=""assistentformular"" onchange=""Check_Telefon()"">" & VbCrLf
122  Response.Write " <option value=""-1"">" & VbCrLf
123  Response.Write " <option value=""0"">--- neue Telefon-Nummer anlegen ---</option>" & VbCrLf
124  StrSQL = "SELECT * FROM telefonnummern ORDER BY telefonnummer"
125  Set rs = Conn.Execute(StrSQL)
126  Do While Not rs.Eof
127   Response.Write "<option value="""
128   Response.Write rs("id")
129   Response.Write """"
130   If Int(Session("Setup_Telefon")) = Int(rs("id")) Then
131   Response.Write " selected"
132   End If
133   Response.Write ">"
134   Response.Write rs("telefonnummer") & VbCrLf
135   rs.MoveNext
136  Loop
137  Response.Write " </select>" & VbCrLf
138  Response.Write " </td>" & VbCrLf
139  Response.Write " </tr>" & VbCrLf
140  'Response.Write " <tr>" & VbCrLf
141  'Response.Write " <td colspan=2><input type=""text"" name=""Telefon"" value="""
142  'Response.Write Session("Setup_Telefon")
143  'Response.Write """ class=#quoted0#assistentformular#quoted0#></td>"
144  'Response.Write " </tr>"
145  Response.Write " <tr>"
146  Response.Write " <td colspan=2 class=""assistentform"">Telefax</td>"
147  Response.Write " </tr>"
148  Response.Write " <tr>" & VbCrLf
149  Response.Write " <td colspan=2><select name=""Setup_Telefax"" id=""Setup_Telefax"" class=""assistentformular"" onchange=""Check_Telefax()"">" & VbCrLf
150  Response.Write " <option value=""-1"">" & VbCrLf
151  Response.Write " <option value=""0"">--- neue FAX-Nummer anlegen ---</option>" & VbCrLf
152  StrSQL = "SELECT * FROM faxnummern ORDER BY faxnummer"
153  Set rs = Conn.Execute(StrSQL)
154  Do While Not rs.Eof
155   Response.Write "<option value="""
156   Response.Write rs("id")
157   Response.Write """"
158   If Int(Session("Setup_Telefax")) = Int(rs("id")) Then
159   Response.Write " selected"
160   End If
161   Response.Write ">"
162   Response.Write rs("faxnummer") & VbCrLf
163   rs.MoveNext
164  Loop
165  Response.Write " </select>" & VbCrLf
166  Response.Write " </td>" & VbCrLf
167  Response.Write " </tr>" & VbCrLf
168  Response.Write " <tr>"
169  Response.Write " <td colspan=2 class=""assistentform"">E-Mail</td>"
170  Response.Write " </tr>"
171  Response.Write " <tr>" & VbCrLf
172  Response.Write " <td colspan=2><select name=""Setup_EMail"" id=""Setup_EMail"" class=""assistentformular"" onchange=""Check_EMail()"">" & VbCrLf
173  Response.Write " <option value=""-1"">" & VbCrLf
174  Response.Write " <option value=""0"">--- neue E-Mail-Adresse anlegen ---</option>" & VbCrLf
175  StrSQL = "SELECT * FROM EMailAdressen ORDER BY EMailAdresse"
176  Set rs = Conn.Execute(StrSQL)
177  Do While Not rs.Eof
178   Response.Write "<option value="""
179   Response.Write rs("id")
180   Response.Write """"
181   If Int(Session("Setup_EMail")) = Int(rs("id")) Then
182   Response.Write " selected"
183   End If
184   Response.Write ">"
185   Response.Write rs("EMailAdresse") & VbCrLf
186   rs.MoveNext
187  Loop
188  Response.Write " </select>" & VbCrLf
189  Response.Write " </td>" & VbCrLf
190  Response.Write " </tr>" & VbCrLf
191  Response.Write " <tr>"
192  Response.Write " <td colspan=2 class=""assistentform"">Homepage</td>"
193  Response.Write " </tr>"
194  Response.Write " <tr>"
195  Response.Write " <td colspan=2><input type=""text"" name=""Setup_WWW"" value="""
196  If Session("Setup_WWW") = "" Then
197   Response.Write "http://"
198  Else
199   Response.Write Session("Setup_WWW")
200  End If
201  Response.Write """ class=#quoted0#assistentformular#quoted0#></td>"
202  Response.Write " </tr>"
203  Response.Write " <tr>"
204  Response.Write " <td colspan=2 class=""assistentform"">USt.-ID</td>"
205  Response.Write " </tr>"
206  Response.Write " <tr>"
207  Response.Write " <td colspan=2><input type=""text"" name=""ustid"" value="""
208  Response.Write Session("Setup_ustid")
209  Response.Write """ class=#quoted0#assistentformular#quoted0#></td>"
210  Response.Write " </tr>"
211  Response.Write " </table>"
212  Response.Write " </td>"
213  Response.Write "</tr>"
214  Response.Write "</table>"
215  Response.Write " </td>"
216  Response.Write "</tr>"
217  Response.Write "<tr>"
218  Response.Write " <td class=""assistent""><br>"
219  Response.Write " </td>"
220  Response.Write "</tr>"
221  Response.Write "<tr>"
222  Response.Write " <td colspan=""2"" align=""right"">"
223  Response.Write " <table border=""0"" cellspacing=""0"" cellpadding=""0"">"
224  Response.Write "<tr>"
225  Response.Write " <td>"
226  Response.Write " <input type=""button"" value=""Abbrechen"" class=""assistentbutton"" onFocus=""blur()"" onClick=""top.close()"">          "
227  Response.Write " </td>"
228  Response.Write " <td>"
229  Response.Write " <input type=""button"" value=""<< Zurück"" class=""assistentbutton"" onFocus=""blur()"" onClick=""self.location.href='step1.asp'""> "
230  Response.Write " </td>"
231  Response.Write " <td>"
232  Response.Write " <input type=""button"" value=""Weiter >>"" class=""assistentbutton"" onFocus=""blur()"" OnClick=""submit_setupdaten()"">  "
233  Response.Write "</td>"
234  Response.Write "</tr>"
235  Response.Write "</table>"
236  Response.Write " </td>"
237  Response.Write "</tr>"
238  Response.Write "<input type=""hidden"" name=""option"" id=""option"" value="""">"
239  Response.Write "<input type=""hidden"" name=""fieldnames"" id=""fieldnames"" value="""">"
240  Response.Write "</form>"
241  Response.Write "</table>"
242  %>

243