<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim DUAL, WERK DUAL = request.QueryString("DUAL") WERK = request.QueryString("WERK") if DUAL = "" and WERK = "" then Session("DUAL") = "aktuelles" Session("WERK") = "werke" else if DUAL <> "" then Session("DUAL") = DUAL end if if WERK <> "" then Session("WERK") = WERK end if end if %> <% if Session("DUAL") = "kontakt" then dim processMode, processID processMode = request.QueryString("processMode") processID = request.QueryString("processID") end if %> <% if Session("DUAL") = "kontakt" then Dim formBuilderElements Dim formBuilderElements_numRows Set formBuilderElements = Server.CreateObject("ADODB.Recordset") formBuilderElements.ActiveConnection = MM_wwwdualwerkatDB_STRING formBuilderElements.Source = "SELECT * FROM kontaktForm ORDER BY formInc ASC" formBuilderElements.CursorType = 0 formBuilderElements.CursorLocation = 2 formBuilderElements.LockType = 1 formBuilderElements.Open() formBuilderElements_numRows = 0 end if %> <% if Session("DUAL") = "kontakt" then Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 formBuilderElements_numRows = formBuilderElements_numRows + Repeat1__numRows end if %> <% if Session("DUAL") = "kontakt" then if processMode = "edit" then Dim formBuilderValues Dim formBuilderValues_numRows Set formBuilderValues = Server.CreateObject("ADODB.Recordset") formBuilderValues.ActiveConnection = MM_wwwdualwerkatDBCon_STRING formBuilderValues.Source = "SELECT * FROM test where testID=" & processID formBuilderValues.CursorType = 0 formBuilderValues.CursorLocation = 2 formBuilderValues.LockType = 1 formBuilderValues.Open() formBuilderValues_numRows = 0 Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 formBuilderValues_numRows = formBuilderValues_numRows + Repeat2__numRows dim formFieldValues While ((Repeat2__numRows <> 0) AND (NOT formBuilderValues.EOF)) for i = 0 to (formBuilderValues.Fields.Count) -1 formFieldValues = formFieldValues & (formBuilderValues.Fields.Item(i).Name) & "|||" & (formBuilderValues.Fields.Item(i).Value) & "|||" next Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 formBuilderValues.MoveNext() Wend formFieldValuesArray = split(formFieldValues, "|||") end if end if %> DUALWERK <% dim preloadStr dim DUALnaviStr, DUALnaviStrArray DUALnaviStr = "aktuelles,portrait,kontakt" DUALnaviStrArray = split(DUALnaviStr,",") for i = 0 to ubound(DUALnaviStrArray) preloadStr = preloadStr & "../Images/navigation/DUALnaviStrArray(i)_on.gif," next dim WERKnaviStr, WERKnaviStrArray WERKnaviStr = "werke,kunden,knowhow,methodik" WERKnaviStrArray = split(WERKnaviStr,",") for i = 0 to ubound(WERKnaviStrArray) preloadStr = preloadStr & "../Images/navigation/WERKnaviStrArray(i)_on.gif," next %>
<% select case Session("DUAL") case "portrait" %>

"DUAL" darum,
weil wir 2 sich ergänzende Persönlichkeiten sind, womit sich ein breites Spektrum an Kompetenzen bildet, welches wir für unsere Kunden bereitstellen.

"WERK" darum,
weil das die Auffassung ist, wie wir unsere Arbeit verstehen: Es sind Werke, die in unserer Werkstätte geschaffen werden, bis sie mit Feinschliff auslaufen.

Wir betreuen Kunden aus allen Richtungen und Branchen mit hochwertiger Qualität und in vielseitiger Art und Weise. Egal ob Erscheinungsbild, Messevideo oder Website - unser Spektrum ist multi medial!

Wir bewirken etwas und haben Spass daran. Diese Freude geben wir an unsere Kunden weiter.

Wir, das sind:

Johannes Hartmann,
Mag.(FH) für intermediale Kommunikationsgestaltung

Lukas Tschannett,
Mag.(FH) für intermediale Kommunikationsgestaltung

Partner & Freelancer
Unsere Partner sind Spezialisten in dem, was sie tun und runden unser Angebot ab.

<% case "jobs" %>

Vielen Dank für Ihr Interesse,
im DUALWERK zu arbeiten.
Derzeit ist unser Team voll besetzt. Ihre Bewerbungsunterlagen sind aber jederzeit willkommen!

<% case "kontakt" %>
<% dim validation dim formFieldValue While ((Repeat1__numRows <> 0) AND (NOT formBuilderElements.EOF)) if processMode="edit" then for i = 0 to ubound(formFieldValuesArray) step 2 if (formBuilderElements.Fields.Item("formName").Value) = formFieldValuesArray(i) then formFieldValue = formFieldValuesArray(i+1) end if next newForm = formBuild((formBuilderElements.Fields.Item("formName").Value), (formBuilderElements.Fields.Item("formTyp").Value), (formBuilderElements.Fields.Item("formFormat").Value), (formBuilderElements.Fields.Item("formBezeichnung").Value), (formBuilderElements.Fields.Item("formHilfe").Value), (formBuilderElements.Fields.Item("formFRM").Value), (formBuilderElements.Fields.Item("formSetValue").Value), (formBuilderElements.Fields.Item("formGetValue").Value), (formBuilderElements.Fields.Item("formSize").Value), (formBuilderElements.Fields.Item("formValidate").Value), formFieldValue) else newForm = formBuild((formBuilderElements.Fields.Item("formName").Value), (formBuilderElements.Fields.Item("formTyp").Value), (formBuilderElements.Fields.Item("formFormat").Value), (formBuilderElements.Fields.Item("formBezeichnung").Value), (formBuilderElements.Fields.Item("formHilfe").Value), (formBuilderElements.Fields.Item("formFRM").Value), (formBuilderElements.Fields.Item("formSetValue").Value), (formBuilderElements.Fields.Item("formGetValue").Value), (formBuilderElements.Fields.Item("formSize").Value), (formBuilderElements.Fields.Item("formValidate").Value), "") end if if len(trim((formBuilderElements.Fields.Item("formValidate").Value))) <> 0 then validationField = validationField & (formBuilderElements.Fields.Item("formName").Value) & ";" validationProcess = validationProcess & (formBuilderElements.Fields.Item("formValidate").Value) & ";" end if Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 formBuilderElements.MoveNext() Wend %>
Kontaktaufnahme
Mit diesem Formular können Sie uns eine Anfrage senden.
 
<%if request.QueryString("ERROR") = 1 then %>
Bitte achten Sie darauf alle Pflichtfelder auszufüllen und korrekte Angaben zu machen.
<%else%> <%end if%>
<%if request.QueryString("ERROR") = 1 then %>
Bitte achten Sie darauf alle Pflichtfelder auszufüllen und korrekte Angaben zu machen.
<%else%> <%end if%>
<% case "kontaktProcessed" %>
Vielen Dank für Ihre Kontaktaufnahme!
Ihre Anfrage wird umgehend bearbeitet.

 
<% case else %>

Wir kreieren klassische wie digitale Erscheinungsbilder für Unternehmen als
auch Privatpersonen und erstellen
integrative Kommunikationslösungen
im Bereich Multimedia, Software & Internet.

DUALWERK sagt Hallo! DUALWERK sagt Hallo!
Das Wichtigste in aller Kürze als PDF.

<% end select %>

Facebook Besuchen Sie uns auf Facebook


   DUALWERK Chat

<% select case Session("WERK") case "kunden" %>

Wir möchten Ihnen einen Überblick über unsere Kunden geben. Wählen Sie eine beliebige Gliederung.

<% dim kundenGliederung kundenGliederung = request.Form("kundenGliederung") %>
&werk=<%=Session("WERK")%>" method="post" name="gliederungForm">
 
<% select case kundenGliederung case "d" %>
(Mehrfachnennungen)
 
Animation
Karoline Zaufl Hair-Styling | Flash Animation
Lilianes Photo Art | Flash Animation
PAULmusic | Flash Animation
 
Beratung & Schulung
Bludance | Gestaltung Internet
Herba Chemosan AG | Fortbildung, Strategie
Lilianes Photo Art | Fortbildungskurse
Raiffeisenbank Bludenz | Software Schulung
SWISSINNO SOLUTIONS | Fortbildungskurse
TeleMax | Strategie
Zahnarzt Zentrum Ost | Präsentation
 
Bildschirmschoner
Lilianes Photo Art | Online Screensaver
 
Druckerzeugnisse
Chemodex | Brochure
Estermann | Jahresbericht
Gasthaus zum Gupf | Brochure
IO3S | Druck-Newsletter
Lilianes Photo Art | Fotoband, Postkarten,...
Power Events | Eintrittskarten
Raiffeisenbank Bludenz | Karten
Raiffeisen Bank im Montafon | Karten
Raiffeisenbank Walgau-Grosswalsertal | Karten
SWISSINNO SOLUTIONS | Verpackungsgestaltung
VISILAB | Werbemittel
Villa Falkenhorst | Werbemittel
 
Erscheinungsbild
AREA22 | Corporate Design
BAUCOMPANY, Ingenieur Thomas Heiß | Corporate Design
Bouquet & Partner | Corporate Design
Chemodex | Corporate Design
FBS Treuhand | Corporate Design
FIRMENBOERSE, Granville Establishment | Corporate Design
HOTELBOERSE, Granville Establishment | Corporate Design
Kdo Panzerbrigade 4 | Corporate Design
Leo Raschle Treuhand | Corporate Design
Lilianes Photo Art | Corporate Design
PAULmusic | Corporate Design
Rotmonten | Corporate Design
SOLIDARIS | Corporate Design
SONAR Events | Corporate Design
UNITAS-SOLIDARIS | Corporate Design
 
Event Marketing
Lilianes Photo Art | Eröffnung Atelier
VISILAB | Eröffnung Filiale
 
Fotografie & Video
James Cook Pub, Helfried Schwarz KEG | Foto-Shooting
PAULmusic | Foto-Shooting
SWISSINNO SOLUTIONS | Messevideo
 
Internet
Alpenregion Hoch Häderich | Website, Internet 2.0
AREA22 | Website & Datenanbindung
ASA Clan | Website & Datenanbindung
Bouquet & Partner | Website & Datenanbindung
Chemodex | Website & Datenanbindung
Corso Reisen | Website & Datenanbindung
FIRMENBOERSE, Granville Establishment | Website & CRM-Anbindung
Gasthaus zum Gupf | Website
HOTELBOERSE, Granville Establishment | Website & CRM-Anbindung
James Cook Pub, Helfried Schwarz KEG | Website & Datenanbindung
Karoline Zaufl Hair-Styling | Website
Lilianes Photo Art | Website & Datenanbindung
LOCKERSYSTEMS | Website
PAULmusic | Website & Datenanbindung
Power Events | Website
Praxis Larsen | Website
Recht-Freundlich | Website
STEURER Kies | Website, Internet 2.0
Sturm Haus | Website & Datenanbindung
SWISSINNO SOLUTIONS | Website & Datenanbindung
UNITAS-SOLIDARIS | Website & Datenanbindung
VeriEmti | Website
Veronikas-Chalet | Website
Walter Zimmermann GmbH | Website, Internet 2.0
 
Mobilanwendung
SONAR Events | FlashLite 1.1
 
Digitale Newsletter
Bouquet & Partner | Gestaltung & Versand
Corso Reisen | Gestaltung & Versand
FIRMENBOERSE, Granville Establishment | Gestaltung & autom. Versand
Gasthaus zum Gupf | Gestaltung & Versand
IO3S | Gestaltung & Versand
Lilianes Photo Art | Gestaltung & Versand
SWISSINNO SOLUTIONS | Gestaltung
 
<% case "s" %>
Deutschland
PAULmusic | Friedrichshafen, D
Sturm Haus | Herbrechtingen, D
 
Österreich
Alpenregion Hoch Häderich | Hittisau, A
AREA22 | Feldkirch, A
ASA Clan | Feldkirch, A
BAUCOMPANY, Ingenieur Thomas Heiß | Rankweil, A
Bludance | Bludenz, A
Corso Reisen | Mödling, A
Herba Chemosan AG | Dornbirn, A
James Cook Pub, Helfried Schwarz KEG | Feldkirch, A
Karoline Zaufl Hair-Styling | Bludenz, A
LOCKERSYSTEMS | Dornbirn, A
Praxis Larsen | Alberschwende, A
Raiffeisenbank Bludenz | Bludenz, A
Raiffeisen Bank im Montafon | Schruns, A
Raiffeisenbank Walgau-Grosswalsertal | Nenzing, A
SOLIDARIS | Wien, A
STEURER Kies | Hittisau, A
TeleMax | Lauterach, A
UNITAS-SOLIDARIS | Wien, A
VeriEmti | Wien, A
Veronikas-Chalet | St. Gallenkirch, A
Villa Falkenhorst | Thüringen, A
Walter Zimmermann GmbH | Nüziders, A
 
Liechtenstein
FIRMENBOERSE, Granville Establishment | Vaduz, LI
HOTELBOERSE, Granville Establishment | Vaduz, LI
Recht-Freundlich | Vaduz, LI
 
Schweiz
Bouquet & Partner | St. Gallen, CH
Chemodex | St. Gallen, CH
Estermann | Sursee, CH
FBS Treuhand | CH
Gasthaus zum Gupf | Rehetobel, CH
IO3S | Bern, CH
Leo Raschle Treuhand | CH
Lilianes Photo Art | Wald, CH
Kdo Panzerbrigade 4 | Kriens, CH
Power Events | Toggenburg, CH
Rotmonten | St. Gallen, CH
SONAR Events | Zürich, CH
SWISSINNO SOLUTION | St. Gallen, CH
VISILAB | Genf, CH
Zahnarzt Zentrum Ost | Rheineck, CH
 
<% case "z" %>
1998
FIRMENBOERSE, Granville Establishment | Vaduz, LI
Herba Chemosan AG | Dornbirn, A
 
2001
Karoline Zaufl Hair-Styling | Bludenz, A
Praxis Larsen | Alberschwende, A
Recht-Freundlich | Vaduz, LI
Walter Zimmermann GmbH | Nüziders, A
 
2002
Corso Reisen | Mödling, A
Bouquet & Partner | St. Gallen, CH
Power Events | Toggenburg, CH
UNITAS-SOLIDARIS | Wien, A
Veronikas-Chalet | St. Gallenkirch, A
 
2003
Bludance | Bludenz, A
Chemodex | St. Gallen, CH
Gasthaus zum Gupf | Rehetobel, CH
Lilianes Photo Art | Wald, CH
Rotmonten | St. Gallen, CH
SWISSINNO SOLUTION | St. Gallen, CH
 
2004
AREA22 | Feldkirch, A
Estermann | Sursee, CH
IO3S | Bern, CH
Kdo Panzerbrigade 4 | Kriens, CH
SOLIDARIS | Wien, A
SONAR Events | Zürich, CH
 
2005
Alpenregion Hoch Häderich | Hittisau, A
BAUCOMPANY, Ingenieur Thomas Heiß | Rankweil, A
HOTELBOERSE, Granville Establishment | Vaduz, LI
James Cook Pub, Helfried Schwarz KEG | Feldkirch, A
PAULmusic | Friedrichshafen, D
Sturm Haus | Herbrechtingen, D
TeleMax | Lauterach, A
VeriEmti | Wien, A
Villa Falkenhorst | Thüringen, A
VISILAB | Genf, CH
Zahnarzt Zentrum Ost | Rheineck, CH
 
2006
ASA Clan | Feldkirch, A
FBS Treuhand | CH
Leo Raschle Treuhand | CH
LOCKERSYSTEMS | Dornbirn, A
Raiffeisenbank Bludenz | Bludenz, A
Raiffeisen Bank im Montafon | Schruns, A
Raiffeisenbank Walgau-Grosswalsertal | Nenzing, A
STEURER Kies | Hittisau, A
 
<% case else %>
Baugewerbe
BAUCOMPANY, Ingenieur Thomas Heiß | Bauunternehmer
Estermann | Bauunternehmer
STEURER Kies | Bauunternehmer
Sturm Haus | Bauunternehmer
 
Pharma & Chemie
Chemodex | Molekül-Synthese
Herba Chemosan AG | Pharmagroßhandel
IO3S | Ozon-Engineering
 
Consulting  
Bouquet & Partner | Unternehmensführung
 
Dienstleistung
Karoline Zaufl Hair-Styling | Frisör
 
Event Marketing
Power Events | Partyveranstaltung
 
Finanzdienstleistung
FBS Treuhand | Treuhand
Leo Raschle Treuhand | Treuhand
Raiffeisenbank Bludenz | Bank
Raiffeisen Bank im Montafon | Bank
Raiffeisenbank Walgau-Grosswalsertal | Bank
Rotmonten | Treuhand
SOLIDARIS | Finanzberatung
UNITAS-SOLIDARIS | Treuhand
 
Gastgewerbe
Gasthaus zum Gupf | Gasthaus & Hotel
James Cook Pub, Helfried Schwarz KEG | Cafe & Bar
 
Gesundheit
Praxis Larsen | Physiotherapeut
VISILAB | Optikerkette
Zahnarzt Zentrum Ost | Zahnarzt Zentrum
 
Handel
FIRMENBOERSE, Granville Establishment | Handel mit Firmen
HOTELBOERSE, Granville Establishment | Handel mit Hotels
 
Internet
TeleMax | Provider
 
Kultur
Villa Falkenhorst | Kulturveranstalter
 
Kunst
Lilianes Photo Art | Fotografin
 
Maschinenbau
LOCKERSYSTEMS | Logistiklösungen
Walter Zimmermann GmbH | Maschinenhandel und -bau
 
Militär
Kdo Panzerbrigade 4 | Panzerbrigade
 
Mobile Kommunikation
SONAR Events | Handy Anwendung
 
Musik
PAULmusic | Musiker
 
Produzierendes Gewerbe
SWISSINNO SOLUTION | div. Produkte
 
Recht
Recht-Freundlich | Rechtsanwältin
 
Tourismus
Alpenregion Hoch Häderich | Bergregion
Corso Reisen | Reisebüro
Veronikas-Chalet | Ferienheim
 
Verein
AREA22 | E-Sports
ASA Clan | E-Sports
Bludance | Tanzverein
 
Video Produktion
VeriEmti | Konzeption & Produktion
 
<%end select%> <% case "werke" %>
 
<% dim curValue 'If DateDiff("h", Application("derStandardUpdated"), Now()) >= 1 Or Request.QueryString("force") <> "" Then Dim objXML Dim objItemList Dim objItem Dim strHTML Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") objXML.async = False objXML.setProperty "ServerHTTPRequest", True dim quelle quelle = "http://derstandard.at/?page=rss&ressort=Webstandard" objXML.Load(quelle) If objXML.parseError.errorCode <> 0 Then Response.Write("

Derzeit keine News vorhanden.

") 'Response.Write "
" & vbCrLf
       'Response.Write "Error: " & objXML.parseError.reason
       'Response.Write "Line:  " & objXML.parseError.line & vbCrLf
       'Response.Write "Text:  " _
       '   & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
       'Response.Write "
" & vbCrLf End If Set objItemList = objXML.getElementsByTagName("item") Set objXML = Nothing strHTML="" i=0 For Each objItem In objItemList i=i+1 if i < 4 then strHTML = strHTML & "

" 'strHTML = strHTML & " " curValue = Replace(objItem.childNodes(0).text, "[+] ", "") curValue = ""&curValue&"" & " | " & objItem.childNodes(2).text strHTML = strHTML & "" & curValue 'strHTML = strHTML & "" 'curValue = Replace(objItem.childNodes(2).text, "
", "
") 'strHTML = strHTML & curValue & vbCrLf strHTML = strHTML & " (Quelle: derStandard.at)

" end if 'strHTML = strHTML & "
" 'strHTML = strHTML & "
" Next Set objItemList = Nothing Application.Lock Application("derStandardContent") = strHTML Application("derStandardUpdated") = Now() Application.UnLock 'End If %> <%'= Application("derStandardContent") %> <% case "knowhow" %> <% case "methodik" %> <% case else %> <%end select%>
 

DUALWERK - Hartmann & Tschannett OG | Egetenweg 44 | 6800 Feldkirch | Österreich | T +43-(0)5522-21555-0 | E werk@dualwerk.at
 
Informationspflicht lt. § 5 Abs. 1 E-Commerce-Gesetz

<% if Session("DUAL") = "kontakt" then formBuilderElements.Close() Set formBuilderElements = Nothing end if %>