America in all its good and bad angles in one shot.

741 Tage zuvor

Unglaublich – http://www.flickr.com/photos/guyr/382481723/

Just - Ads! (2)

741 Tage zuvor

Eine sehr beeindruckende Werbekompanie: God hates flags

Just - Ads!

741 Tage zuvor

Unter dieser Überschrift werde ich heute und auch in der Zukunft über die für mich interessantesten Werbeplatz-Ideen der Welt bloggen.

Damit ich rechtlich keine Probleme kriege werde ich nur Links zu den Quellen posten. Wenn ich sicherstellen kann, dass die Bilder mit der CC-Lizenz veröffentlicht sind, werde ich diese bei mir im Blog INLINE einbinden.

Heutiges Thema: Friseursalon

Mit der folgenden Werbekompanie wirbt ein Friseursalon auf einer Rolltreppe eines Einkaufszentrums. Die Idee dabei ist, die Vielfalt des Angebotes zu zeigen und gleichzeitig die Werbung als Wegweiser zum Salon zu benutzen. Der Ort der Kompanie ist dem menschlichen Instinkt nach ausgewählt. Wer geht auf eine Rolltreppe zu und schaut nicht runter?

Put Your Food All Over The Steps of a Busy Escalator…

wtfs/Minute

763 Tage zuvor

wtfm

so ging es mir auch als ich folgenden Code hier gesehen habe:

Sub CategoryOnChange()
    categoryValue = window.event.srcElement.value
    document.all(“aBehavior”).length = 0


    ‘ Add ‘Select a Behavior’ option
    Dim noneOpt  
    Set noneOpt = document.createElement(“OPTION”)
    noneOpt.value = 0
    noneOpt.text = “Select a Behavior”
    noneOpt.setAttribute “DetailLine”, “0”, 0
    document.all(“aBehavior”).add noneOpt 
    Set noneOpt = Nothing

    set dbconn = CreateObject(“ADODB.Connection”)
    set dbRS = CreateObject(“ADODB.Recordset”)
    dbconn.Open “Driver={REMOVED};server=FREAKING;uid=PLAINTEXT;Password=CONNECTION;Database=STRING;dsn=;”

    ‘SQL = “SELECT Key, Category, Desc FROM KSB WHERE Category = “ & categoryValue & “ ORDER BY KSBDesc”
    SQL = “select ksb., cardversion., carddetail.* , categories.* “
    SQL = SQL & “ from ksb, cardversion, carddetail , categories “
    SQL = SQL & “ WHERE CARDVERSION.CARDACTIVE = 1 “
    SQL = SQL & “ AND Cardversion.cardid = carddetail.detailcard “
    SQL = SQL & “ and carddetail.detailksb = ksb.ksbkey “
    SQL = SQL & “ and ksb.ksbcategory = categories.categoryKey “
    SQL = SQL & “ and ksb.ksbcategory = “ & categoryValue
    SQL = SQL & “ order by carddetail.detailline “

    dbRS.open SQL, dbconn, 1  
    Do while not dbRS.eof

      Dim opt  
      Set Opt = document.createElement(“OPTION”)
      Opt.value = dbRS.fields(“KSBKey”)
      Opt.text = dbRS.fields(“KSBDesc”)
      Opt.setAttribute “DetailLine”, CStr(dbRS.fields(“DetailLine”)), 0
      document.all(“aBehavior”).add Opt 
      Set Opt = Nothing 

      dbRS.MoveNext
    Loop
    dbRS.Close

	
End Sub

“That’s right, it was all done client-side by firing off a VBScript when the user picked a category. It connects straight to the database, dynamically constructs an SQL statement, and executes it. Who needs XML web services when you can just go straight to the database? Why have that extra layer when it just slows things down? Brilliant!”

Danke an The Daily WTF