<%
'~~~ Session lesen
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If Session("InternetBasket.Anrede") <> "" Then Anrede = Session("InternetBasket.Anrede") End If
If Session("InternetBasket.Vorname") <> "" Then Vorname = Session("InternetBasket.Vorname") End If
If Session("InternetBasket.Nachname") <> "" Then Nachname = Session("InternetBasket.Nachname") End If
If Session("InternetBasket.Firma") <> "" Then Firma = Session("InternetBasket.Firma") End If
If Session("InternetBasket.Abtlg") <> "" Then Abtlg = Session("InternetBasket.Abtlg") End If
If Session("InternetBasket.Strasse") <> "" Then Strasse = Session("InternetBasket.Strasse") End If
If Session("InternetBasket.PLZ") <> "" Then PLZ = Session("InternetBasket.PLZ") End If
If Session("InternetBasket.Ort") <> "" Then Ort = Session("InternetBasket.Ort") End If
If Session("InternetBasket.KundenNr") <> "" Then KundenNr = Session("InternetBasket.KundenNr") End If
If Session("InternetBasket.Tel") <> "" Then Tel = Session("InternetBasket.Tel") End If
If Session("InternetBasket.Fax") <> "" Then Fax = Session("InternetBasket.Fax") End If
If Session("InternetBasket.eMail") <> "" Then eMail = Session("InternetBasket.eMail") End If
'~~~ Cookie lesen
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If Anrede = "" Then Anrede = Request.Cookies("InternetBasket")("Anrede") End If
If Titel = "" Then Titel = Request.Cookies("InternetBasket")("Titel") End If
If Vorname = "" Then Vorname = Request.Cookies("InternetBasket")("Vorname") End If
If Nachname = "" Then Nachname = Request.Cookies("InternetBasket")("Nachname") End If
If Firma = "" Then Firma = Request.Cookies("InternetBasket")("Firma") End If
If Abtlg = "" Then Abtlg = Request.Cookies("InternetBasket")("Abtlg") End If
If Strasse = "" Then Strasse = Request.Cookies("InternetBasket")("Strasse") End If
If PLZ = "" Then PLZ = Request.Cookies("InternetBasket")("PLZ") End If
If Ort = "" Then Ort = Request.Cookies("InternetBasket")("Ort") End If
If KundenNr = "" Then KundenNr = Request.Cookies("InternetBasket")("KundenNr") End If
If Tel = "" Then Tel = Request.Cookies("InternetBasket")("Tel") End If
If Fax = "" Then Fax = Request.Cookies("InternetBasket")("Fax") End If
If eMail = "" Then eMail = Request.Cookies("InternetBasket")("eMail") End If
'~~~ Werte formatieren von englischer Version
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If Anrede = "" Then Anrede = foa End If
If Titel = "" Then Titel = title End If
If Vorname = "" Then Vorname = fname End If
If Nachname = "" Then Nachname = lname End If
If Firma = "" Then Firma = comp End If
If Strasse = "" Then Strasse = street End If
If PLZ = "" Then PLZ = zip End If
If Ort = "" Then Ort = city End If
If eMail = "" Then eMail = email End If
If Teltel = "" Then Tel = tel End If
If Fax = "" Then Fax = fax End If
'~~~ Werte formatieren für englische Version
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If foa = "" Then foa = Anrede End If
If title = "" Then title = Titel End If
If fname = "" Then fname = Vorname End If
If lname = "" Then lname = Nachname End If
If comp = "" Then comp = Firma End If
If street = "" Then street = Strasse End If
If zip = "" Then zip = PLZ End If
If city = "" Then city = Ort End If
If email = "" Then email = eMail End If
If tel = "" Then tel = Tel End If
If fax = "" Then fax = Fax End If
'~~~ Session neu mit Cookiewerten belegen
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If Session("InternetBasket.Anrede") = "" Then Session("InternetBasket.Anrede") = Anrede End If
If Session("InternetBasket.Titel") = "" Then Session("InternetBasket.Titel") = Titel End If
If Session("InternetBasket.Vorname") = "" Then Session("InternetBasket.Vorname") = Vorname End If
If Session("InternetBasket.Nachname") = "" Then Session("InternetBasket.Nachname") = Nachname End If
If Session("InternetBasket.Firma") = "" Then Session("InternetBasket.Firma") = Firma End If
If Session("InternetBasket.Abtlg") = "" Then Session("InternetBasket.Abtlg") = Abtlg End If
If Session("InternetBasket.Strasse") = "" Then Session("InternetBasket.Strasse") = Strasse End If
If Session("InternetBasket.PLZ") = "" Then Session("InternetBasket.PLZ") = PLZ End If
If Session("InternetBasket.Ort") = "" Then Session("InternetBasket.Ort") = Ort End If
If Session("InternetBasket.KundenNr") = "" Then Session("InternetBasket.KundenNr") = KundenNr End If
If Session("InternetBasket.Tel") = "" Then Session("InternetBasket.Tel") = Tel End If
If Session("InternetBasket.Fax") = "" Then Session("InternetBasket.Fax") = Fax End If
If Session("InternetBasket.eMail") = "" Then Session("InternetBasket.eMail") = eMail End If
%>
Kontakt - Rittal TOP FIVE Beratung
Sie verwenden eine alte Version von www.rittal.de!
Shop
