<% Set cn0 = Server.CreateObject("ADODB.Connection") Set rs0 = Server.CreateObject("ADODB.Recordset") Dim sServer0 Dim cn0 Dim rs0 sServer0 = "webserver\SQLExpress" cn0.ConnectionString = "DRIVER=SQL Server" & _ ";SERVER=" & sServer0 & _ ";DATABASE=Streeger" cn0.Open rs0.ActiveConnection = cn0 Set cn1 = Server.CreateObject("ADODB.Connection") Set rs1= Server.CreateObject("ADODB.Recordset") Dim sServer1 Dim cn1 Dim rs1 sServer1 = "webserver\SQLExpress" cn1.ConnectionString = "DRIVER=SQL Server" & _ ";SERVER=" & sServer1 & _ ";DATABASE=Streeger" cn1.Open rs1.ActiveConnection = cn1 if request("id") <> "" Then idval = Request("id") rs0.Open "select anfrager,tel,fax,email,ort,plz,strasse from anfragen where id = '" & Replace(idval, "'", "''") & "'" Do while not rs0.eof ValAnfrager= rs0(0) Valtel= rs0(1) Valfax= rs0(2) Valemail= rs0(3) Valort= rs0(4) Valplz= rs0(5) Valstrasse= rs0(6) rs0.moveNext Loop rs0.close end if %> Kostenloses Treppenangebot einholen bei STREGER® Treppen

Kostenloses Treppenangebot anfordern

<% if (Request.Form("action") <> "Save") then %>
Kunde:*
Hersteller:*
Treppentyp:*
Treppenname:*
Ausführung:*
Farbe (Holz):*
Farbe (Metall):*
Treppenbreite:*
Durchmesser:
(nur bei Spindeltreppe)

Steigung / Höhe:*
(Fußbodenantritt bis Fußbodenaustritt in mm)

Wendung:*
Anmerkungen:





Vorname, Name:*
Firma:
Straße:*
PLZ, Ort:*


Straße Baustelle:*
Ort Baustelle:*



Telefon:*
Telefax:
eMail:*

Wie sind Sie auf uns aufmerksam geworden?
Anzeige    Google-Anzeige    Suchmaschine/Portal
Empfehlung    sonstiges   

Ja, ich bin einverstanden, dass die Firma STREGER® und eingebundene Dienstleister meine Daten weiterverwenden können, um mich über Produkte und aktuelle Nachrichten rund um STREGER® Treppenprodukte zu informieren. Diese Einwilligung kann ich jederzeit schriftlich widerrufen.

Ansonsten werden wir Ihre Daten nur für die von Ihnen gewünschte Leistung verwenden. Wir behandeln die Daten vertraulich und machen sie Dritten nur insoweit zugänglich, als dies für die Umsetzung der vorgenannten Zwecke unbedingt erforderlich ist.

<% ELSE Name=Request.form("Name") Firma=Request.form("Firma") Strasse=Request.form("Strasse") PLZ=Request.form("PLZ") Wohnort=Request.form("Wohnort") BaustelleStrasse=Request.form("BaustelleStrasse") BaustellePLZ=Request.form("BaustellePLZ") BaustelleWohnort=Request.form("BaustelleWohnort") Telefon=Request.form("Telefon") Telefax=Request.form("Telefax") eMail=Request.form("eMail") InfoQuelle=Request.form("InfoQuelle") Datenschutz=Request.form("Checkbox") Farbe1=Request.form("FarbeHolz") Farbe2=Request.form("FarbeMetall") Treppentyp=Request.form("Treppentyp") & "/ " & Request.form("Hersteller") Bauart=Request.form("TreppenName") & "/ " & Request.form("Ausfuehrung") Durchmesser=Request.form("Durchmesser") TreppenBreite=Request.form("TreppenBreite") Durchmesser=Request.form("Durchmesser") Steigunghoehe=Request.form("Hoehe") Wendung=Request.form("Wendung") Anmerkungen=Request.form("Anmerkungen") Kunde=Request.form("Kunde") Katalog= "PDF-Katalog" ReqUpdate=Request.form("Update") if Instr(eMail,"@") = 0 Then eMail = "@" tag1 = Now() tagSoll = DateAdd("d",4,tag1) tagIst = tag1 Frage = "Farbe: " & Farbe & chr(13) & "Treppentyp: " & Treppentyp & chr(13) & "Bauart: " & Bauart & chr(13) & "Farbe: " & Farbe & chr(13) & "Durchmesser: " & Durchmesser & chr(13) & "TreppenBreite: " & TreppenBreite & chr(13) & "Steigunghoehe: " & Steigunghoehe & chr(13) & "Wendung: " & Wendung & chr(13) & "Anmerkungen: " & Anmerkungen & chr(13) & "Kunde: " & Kunde Status = "Offen" rs0.Open "select tischler from pleitzahlen where plz = '" & Replace(plz, "'", "''") & "'" Do while not rs0.eof TischlerID = rs0(0) rs0.moveNext Loop rs0.close If TischlerID <> "" Then rs0.Open "select plz from Tischler where id = '" & Replace(TischlerID, "'", "''") & "'" Do while not rs0.eof TischlerReal = rs0(0) rs0.moveNext Loop rs0.close Else TischlerReal = "39615" End IF if ReqUpdate = "" and Wohnort <> "NY" then rs0.Open "Set dateformat dmy insert into Anfragen (bort,bstrasse,bplz,Anfrager,strasse,ort, tel, fax, email,Betreff,datumk,Status,plz,tischler,Quelle,datumIst,datumSoll,name,vorname,katalog) values('" & Replace(BaustelleWohnort, "'", "''") & "','" & Replace(BaustelleStrasse, "'", "''") & "','" & Replace(BaustellePlz, "'", "''") & "','" & Replace(Name, "'", "''") & "','" & Replace(Strasse, "'", "''") & "','" & Replace(Wohnort, "'", "''") & "','" & Replace(telefon, "'", "''") & "','" & Replace(telefax, "'", "''") & "','" & Replace(email, "'", "''") & "','" & Replace(Frage, "'", "''") & "', '" & Replace(tag1, "'", "''") & "', '" & Replace(Status, "'", "''") & "','" & Replace(plz, "'", "''") & "','" & Replace(tischlerReal, "'", "''") & "','" & Replace(InfoQuelle, "'", "''") & "','" & Replace(tagist, "'", "''") & "','" & Replace(tagSoll, "'", "''") & "','" & Replace(Name, "'", "''") & "','" & Replace(Name, "'", "''") & "','" & Replace(Katalog, "'", "''") & "')" rs0.Open "Set dateformat dmy insert into Tischler (firma,plz,apartner,strasse,ort, telefon, fax, email,kw) values('" & Replace(Name, "'", "''") & "','" & Replace(plz, "'", "''") & "','" & Replace(Name, "'", "''") & "','" & Replace(Strasse, "'", "''") & "','" & Replace(Wohnort, "'", "''") & "','" & Replace(telefon, "'", "''") & "','" & Replace(telefax, "'", "''") & "','" & Replace(email, "'", "''") & "','" & Replace(email, "'", "''") & "')" %> <% Response.redirect "http://www.streger-treppen.de/formular-danke.htm" else rs0.Open "Set dateformat dmy update Anfragen set bort='" & Replace(BaustelleWohnort, "'", "''") & "' ,bstrasse='" & Replace(BaustelleStrasse, "'", "''") & "',bplz='" & Replace(BaustellePlz, "'", "''") & "',Anfrager='" & Replace(Name, "'", "''") & "',strasse='" & Replace(Strasse, "'", "''") & "',ort='" & Replace(Wohnort, "'", "''") & "', tel='" & Replace(telefon, "'", "''") & "', fax='" & Replace(telefax, "'", "''") & "', email='" & Replace(email, "'", "''") & "',Betreff='" & Replace(Frage, "'", "''") & "',datumk='" & Replace(tag1, "'", "''") & "',Status='" & Replace(Status, "'", "''") & "',plz='" & Replace(plz, "'", "''") & "' ,Quelle='HSUpdate',datumIst='" & Replace(tagist, "'", "''") & "',datumSoll='" & Replace(tagSoll, "'", "''") & "',name='" & Replace(Name, "'", "''") & "',vorname='" & Replace(Name, "'", "''") & "',katalog='" & Replace(Katalog, "'", "''") & "' where id = '" & Replace(ReqUpdate, "'", "''") & "' " Response.redirect "http://www.streger-treppen.de/formular-danke.htm" end if END IF %>

© 2015 by STREGER® Massivholztreppen GmbH, Hauptstraße 75 B, D-39615 Aland OT Krüden · www.streger.de · Geschäftsführer: Ingo Rudolph
Kostenlos anrufen: 0800 160 10 40 · ISO Zertifizierung · Datenschutz · Seitenübersicht