Information form

• Homepage
• Company
• Purchasing
• Partnership
• Requirements
• Locations
•  

<% if not senden = "ja" then %>

Material selection:
Which material groups would you like to receive enquiries for? (Use the "Ctrl" key to select more than one)	>Steel & stainless steel >Steel and stainless steel enclosure panels >Steel & stainless steel sections >Processed steel & stainless steel parts >Steel & stainless steel assemblies >Non-ferrous metal parts >Cast parts >Packaging & printing >Connection parts >Plastic parts, glass & surface treatment >Climate control components >Electrical, electronics >Maintenance, repairs & office equipment >Other
What products do you offer? (Use the "Ctrl" key to select more than one)	<% if instr(matgrp," 1,") then %> Plates Split strip Stainless steel plates Stainless steel split strip <% end if %> <% if instr(matgrp," 2,") then %> Mounting and gland plates Perforated plates Doors and covers Side parts Base frames Base plates / cable plates Component shelves Depth stays Miscellaneous steel and stainless steel enclosure panels <% end if %> <% if instr(matgrp," 3,") then %> Rails Tubes Chassis Telescopic slides Miscellaneous steel and stainless steel sections <% end if %> <% if instr(matgrp," 4,") then %> Stampings Stamped nibble parts Pressed parts Bent parts Drawn parts Laser parts Milled parts Locking rails / locking rods Clamps Joints Corner pieces Miscellaneous steel and stainless steel parts Levelling feet Turned parts <% end if %> <% if instr(matgrp," 5,") then %> Swing frame Roofs / roof plates Shelves / bases and plinths / sockets Printer racks Splicing boxes Racks / enclosures Cable chambers / cable management ducts Miscellaneous modules / special parts <% end if %> <% if instr(matgrp," 6,") then %> Aluminium products (parts, assemblies and sections) Copper parts & assemblies RiPac, RiLab, Ri Card, EL Contact parts Miscellaneous non-ferrous metal parts Profiled aluminium plates and blanks <% end if %> <% if instr(matgrp," 7,") then %> Zinc die cast items Chill cast aluminium Chill cast brass Cast steel: GA enclosures, Ergo-S handles, comfort handles Lock systems Miscellaneous cast parts <% end if %> <% if instr(matgrp," 8,") then %> Cardboard packaging Pallets Printing, labels Miscellaneous packaging <% end if %> <% if instr(matgrp," 9,") then %> Screws, nuts, washers Bolts Turned parts Shipping & accessory bags Miscellaneous connection parts <% end if %> <% if instr(matgrp," 10,") then %> Plastic injection moulded parts Seals (sealing foam, EMC, ...) Plastic washers & connection parts Wheels, castors Extruded sections Primers/paints Labels / identification Glass Brush strips & inserts Rubber materials Surface treatment <% end if %> <% if instr(matgrp," 11,") then %> Compressors, condensers Fans Heat exchangers Heaters Copper tubes for climate control units Transformers Electric climate controllers Pumps Miscellaneous climate control components <% end if %> <% if instr(matgrp," 12,") then %> CMC (monitoring electronics and software) UPS (uninterrupted power supplies) SSC (Server Switch Control) Lights Socket strips, PDUs Cables Couplings, connectors TFT monitors Sensors Miscellaneous electrical components <% end if %> <% if instr(matgrp," 13,") then %> Adhesives Automotive accessories Chemicals Gases (cylinder/tank) Grinding and welding materials Investment projects (machines ...) IT accessories Maintenance & repairs Promotional materials Miscellaneous Office materials and accessories Power, gas, water Seminars and training Tools Telecommunications & accessories Disposal Protective clothing & accessories Forklift trucks Oil <% end if %> <% if instr(matgrp," 14,") then %> Other <% end if %>
General data:
Company name:
Legal form of company:
Street / No.:
Postal code / Town:
Country:
Contact:
Telephone:
Fax:
E-mail:
In which of the listed countries do you have offices? (Use the "Ctrl" key to select more than one):	Brazil China Germany England France India Canada Russia USA
Company data:
Established (year):
Managing Director:
Turnover last year:	Thousand Euros
Turnover previous year:	Thousand Euros
Permanent staff:
Other employees:
Quality certificates:
Machinery relevant for the selected products: (Manufacturer, type, number, year of construction)
Reference customers:
Logistics competence:
KanBan:	Yes No
JIT (Just In Time):	Yes No
Own fleet:	Yes No Size and number of own trucks:
IT equipment: IT accessories
Do you use SAP?	SAP R/2 SAP R/3
Do you use an alternative ERP system?
Reset	Submit

<% else On Error Resume Next '---- CursorTypeEnum-Werte ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum-Werte ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Dim db_con Dim db_path Dim rs Dim strSql Dim name Dim nummer Dim strConInfo Dim kanban Dim jit Set db_con = Server.CreateObject("ADODB.Connection") Set datensatz = Server.CreateObject("ADODB.RecordSet") db_con.Open "SQL_Lieferanten","InternetNutzer","rittal" ' ein RecordSet-Objekt zum einfügen der neuen Daten in die DB erstellen und öffnen Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "Lieferanten", db_con,1,3 Adresse = request.form("strasse") &chr(13) & request.form("plzort") ansprech = request.form("ansprechpartner") &chr(13)& "Tel.: " &request.form("telefon") &chr(13)& "Fax: " & request.form("fax") &chr(13)&request.form("email") ' die neuen Daten einfügen rs.AddNew if instr(matgrp," 1,") then rs("m01") = 1 if instr(matgrp," 2,") then rs("m02") = 1 if instr(matgrp," 3,") then rs("m03") = 1 if instr(matgrp," 4,") then rs("m04") = 1 if instr(matgrp," 5,") then rs("m05") = 1 if instr(matgrp," 6,") then rs("m06") = 1 if instr(matgrp," 7,") then rs("m07") = 1 if instr(matgrp," 8,") then rs("m08") = 1 if instr(matgrp," 9,") then rs("m09") = 1 if instr(matgrp," 10,") then rs("m10") = 1 if instr(matgrp," 11,") then rs("m11") = 1 if instr(matgrp," 12,") then rs("m12") = 1 if instr(matgrp," 13,") then rs("m13") = 1 if instr(matgrp," 14,") then rs("m14") = 1 rs("Lieferprogramm") = request.form("prod") rs("Firmen_Adresse") = Adresse rs("Firmen_Land") = request.form("Land ") rs("tgs") = request.form("vertretung") rs("AP1") = ansprech rs("Firmen_Name") = request.form("Firma") rs("gesellschaftsform") = request.form("Gesellschaftsform") rs("gruendungsjahr") = request.form("Gruendungsjahr ") rs("gesch_fuehrer") = request.form("Gesch-fuehrer ") rs("ums_vorjahr") = request.form("Umsatz Vorjahr ") rs("ums_vorvorjahr") = request.form("Umsatz Vorvorjahr") rs("kundenref") = request.form("Kundenreferenz ") rs("angestellte") = request.form("Angestellte ") rs("arbeiter") = request.form("Arbeiter ") rs("zertifikate") = request.form("Zertifikate ") rs("maschinenpark") = request.form("Maschinenpark ") rs("internet") = "ja" rs("lkw") = request.form("LKW ") rs("angelegt") = now kanban = request.form("KanBan ") if kanban = "ja" then rs("kanban") = true else rs("kanban") = false end if jit = request.form("JIT " ) if jit = "ja" then rs("jit") = true else rs("jit") = false end if fuhrpark = request.form("fuhrpark " ) if fuhrpark = "ja" then rs("fuhrpark") = true else rs("fuhrpark") = false end if rs("sap") = request.form("SAP ") rs("alt_warenwirtsch_prg") = request.form("Alternatives Warenwirtschafts-System") rs.update ' Verbindungen schließen rs.Close db_con.Close Set rs = Nothing Set db_con = Nothing 'Materialgruppe = request.form("Materialgruppe ") prod = request.form("prod") Firma = request.form("Firma") 'Adresse = request.form("Adresse") Strasse = request.form("Strasse") PLZPostfach = request.form("PLZ/Postfach ") Postfach = request.form("Postfach ") PLZOrt = request.form("PLZ/Ort ") Ort = request.form("Ort") Land = request.form("Land ") Telefon = request.form("Telefon") Fax = request.form("Fax") Internet = request.form("Internet ") NameAnspr = request.form("NameAnspr") VornameAnspr = request.form("VornameAnspr") 'AdresseAnspr = request.form("AP_Adresse") TelefonAnspr = request.form("TelefonAnspr") FaxAnsprech = request.form("FaxAnsprech") eMailAnsprech = request.form("email") Sprache = request.form("Sprache ") Gesellschaftsform= request.form("Gesellschaftsform") Gruendungsjahr = request.form("Gruendungsjahr ") Geschfuehrer = request.form("Gesch-fuehrer ") UmsatzVorjahr = request.form("Umsatz Vorjahr ") UmsatzVorvorjahr = request.form("Umsatz Vorvorjahr") Kundenreferenz = request.form("Kundenreferenz ") Branche = request.form("Branche ") Angestellte = request.form("Angestellte ") Arbeiter = request.form("Arbeiter ") Zertifikate = request.form("Zertifikate ") Maschinenpark = request.form("Maschinenpark ") KanBan = request.form("KanBan ") JIT = request.form("JIT ") fuhrpark = request.form("fuhrpark ") lkw = request.form("LKW ") SAP = request.form("SAP ") AWS = request.form("Alternatives Warenwirtschafts-System") vertretungen = request.form("vertretung") body = "Materialgruppe: " &matgrp &chr(13) body = body & "Produkte: " &prod &chr(13) body = body & "Firma: " &Firma &chr(13)&chr(13) body = body & "Adresse: " &chr(13)&Adresse &chr(13)&chr(13) body = body & "Land: " &Land &chr(13)&chr(13) body = body & "AdresseAnspr: " &chr(13)&ansprech &chr(13)&chr(13) body = body & "Vertretungen in: " &vertretungen &chr(13) body = body & "Gesellschaftsform: " &Gesellschaftsform &chr(13) body = body & "Gruendungsjahr: " &Gruendungsjahr &chr(13) body = body & "Geschaeftsfuehrer: " &Geschfuehrer &chr(13) body = body & "Umsatz Vorjahr: " &UmsatzVorjahr &chr(13) body = body & "Umsatz Vorvorjahr: " &UmsatzVorvorjahr &chr(13) body = body & "Kundenreferenz: " &Kundenreferenz &chr(13) body = body & "Angestellte: " &Angestellte &chr(13) body = body & "Arbeiter: " &Arbeiter &chr(13) body = body & "Zertifikate: " &Zertifikate &chr(13) body = body & "Maschinenpark: " &Maschinenpark &chr(13) body = body & "KanBan: " &KanBan &chr(13) body = body & "JIT: " &JIT &chr(13) body = body & "Eigener Fuhrpark: " &fuhrpark &chr(13) body = body & "Größe und Anzahl eigene LKW: " &lkw &chr(13) body = body & "SAP: " &SAP &chr(13) body = body & "Alternatives Warenwirtschafts-System: " &AWS Inhalt = "Hallo Herr Rink,"&chr(13)&chr(13) Inhalt = Inhalt & "anbei eine Lieferanten-Selbstauskunft:"&chr(13)&chr(13) Inhalt = Inhalt & body Inhalt = Inhalt &chr(13)&chr(13)&chr(13)& "--------------" &chr(13)&"Automatisch versendet über www.rittal.de" If instr(eMailAnsprech,"@") Then absender = eMailAnsprech Else absender = "Gast" End If %> <% Dim mySmartMail Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail") mySmartMail.Server = SMTP_IP mySmartMail.ServerTimeOut = 35 mySmartMail.SenderName = request.form("ansprechpartner") mySmartMail.SenderAddress = absender mySmartMail.Recipients.Add "rink.a@rittal.de" ' mySmartMail.Recipients.Add "funk.m@rittal.de" mySmartMail.Subject = "Selbstauskunft" mySmartMail.Priority = 3 mySmartMail.Body = Inhalt mySmartMail.SendMail set mySmartMail = nothing %> Thank you for your application.
We will review your details as soon as possible.

Back <% end if %>

• • More information
  • Any other questions? We will be happy to help:
  • einkauf@rittal.de

• • Downloads
  • General Conditions of Purchase
    English:    German: