% ' Cache löschen, Ländercode Response.Expires= 0 Session.LCID=1031 ' Userspezifische Daten, die aus dem ggf. vorher von Anfrageformular gesetzten Cookie ausgelesen werden DIM UserAnrede ' Anrede DIM UserTitel ' Titel (kein Pflichtfeld) DIM UserVorname ' Vorname DIM UserNachname ' Nachname DIM UserStrasse ' Strasse (kein Pflichtfeld) DIM UserPLZ ' Postleitzahl DIM UserOrt ' Ort DIM UserLand ' Land DIM UserTelefonnummer ' Telefonnummer (kein Pflichtfeld) DIM UserFaxnummer ' Faxnummer (kein Pflichtfeld) DIM UserEmail ' UserE-Mail ' Referer und Datum wurde ggf. aus dem Anfrageformular per hidden Field mit uebertragen ' bezieht sich auf Werbemaßnhame, über die der User Aktion-10% aufgerufen hatte DIM UserRef ' UserRef aus dem vorhergegangenen Formular DIM UserDatum ' wann hat User Aktion getaetigt DIM UserOrder ' falls User von Produktseite bestellt, was hat er bestellt? ' Woher kommt User, falls er von Produktseite hierher kommt? (Nicht dasselbe wie ref) UserOrder = Request.QueryString("order") ' Dazu noch zu tun, Link mit Parameter (order=) bei entsprechenden Produktseiten setzen ' siehe hier auf der Seite nach Parameter, wie Dateiname ohne A4 vorne. ' Daten aus Cookie auslesen, falls vorhanden IF Request.Cookies("gutschein") <> "" THEN UserAnrede = Request.Cookies("gutschein")("Anrede") UserTitel = Request.Cookies("gutschein")("Titel") UserVorname = Request.Cookies("gutschein")("Vorname") UserNachname = Request.Cookies("gutschein")("Nachname") UserStrasse = Request.Cookies("gutschein")("Strasse") UserPLZ = Request.Cookies("gutschein")("PLZ") UserOrt = Request.Cookies("gutschein")("Ort") UserLand = Request.Cookies("gutschein")("Land") UserTelefonnummer = Request.Cookies("gutschein")("Telefonnummer") UserFaxnummer = Request.Cookies("gutschein")("Faxnummer") UserEmail = Request.Cookies("gutschein")("Email") ' Referrer UserRef = Request.Cookies("gutschein")("Ref") ' Datum UserDatum = Request.Cookies("gutschein")("Datum") ' IDGesamt wird aus ID zusammengesetzt UserIDGesamt = Request.Cookies("gutschein")("IDGesamt") ELSE UserRef = Request.QueryString("ref") UserDatum = NOW () Response.Cookies("gutschein")("Anrede") = "" Response.Cookies("gutschein")("Titel") = "" Response.Cookies("gutschein")("Vorname") = "" Response.Cookies("gutschein")("Nachname") = "" Response.Cookies("gutschein")("Strasse") = "" Response.Cookies("gutschein")("PLZ") = "" Response.Cookies("gutschein")("Ort") = "" Response.Cookies("gutschein")("Land") = "" Response.Cookies("gutschein")("Telefonnummer") = "" Response.Cookies("gutschein")("Faxnummer") = "" Response.Cookies("gutschein")("Email") = "" Response.Cookies("gutschein")("Ref") = UserRef Response.Cookies("gutschein").expires = DateAdd("d",120,Now()) Response.Cookies("gutschein")("Datum") = UserDatum Response.Cookies("gutschein")("IDGesamt") = "" END IF %>