001
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
141
142
143
144
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