<%@LANGUAGE="VBSCRIPT"%> <% Dim rsRothKontakt__MMColParam rsRothKontakt__MMColParam = "64" If (Request.QueryString("HerstellerID") <> "") Then rsRothKontakt__MMColParam = Request.QueryString("HerstellerID") End If %> <% Dim rsRothKontakt Dim rsRothKontakt_numRows Set rsRothKontakt = Server.CreateObject("ADODB.Recordset") rsRothKontakt.ActiveConnection = MM_conn_messe_STRING rsRothKontakt.Source = "SELECT * FROM Hersteller WHERE Hersteller.HerstellerID='" + Replace(rsRothKontakt__MMColParam, "'", "''") + "' ORDER BY Hersteller" rsRothKontakt.CursorType = 0 rsRothKontakt.CursorLocation = 2 rsRothKontakt.LockType = 1 rsRothKontakt.Open() rsRothKontakt_numRows = 0 %> Die Virtuelle Messe - Komfortable Produkte für alle Generationen > Aussteller > Roth Werke Sanitärsysteme > Kontaktinformationen
 
 Aussteller
  Produkte
  Ausstellerinfos
  Wir über uns
 
Sie befinden sich hier: Startseite > Aussteller > Roth Werke Sanitärsysteme > Kontaktinformationen <% heute = now() response.write day(heute) & "." & month(heute) & "." & year(heute) %>
 
HAUPTSEITE
Roth Laguna® Maxi
Technische Daten
KONTAKT
Komfort Glasdusche Roth Laguna® Maxi Bodengleich eingebaut weit aufgefalteten Türen bequem begehbar elegant Design in jedem Lebensalter

So erreichen Sie Roth Werke!


Roth Werke Sanitärsysteme Firmengebäudeansicht    
  Aussteller:  <%=(rsRothKontakt.Fields.Item("Hersteller").Value)%>
 [<%=(rsRothKontakt.Fields.Item("Zusatz").Value)%>]
  Adresse:  <%=(rsRothKontakt.Fields.Item("Strasse").Value)%> <%=(rsRothKontakt.Fields.Item("Hausnummer").Value)%>
 <%=(rsRothKontakt.Fields.Item("PLZ").Value)%>  <%=(rsRothKontakt.Fields.Item("Ort").Value)%>
  Telefon:  <%=(rsRothKontakt.Fields.Item("Vorwahl").Value)%>/ <%=(rsRothKontakt.Fields.Item("Telefon").Value)%>
  Website:  " target="_blank" class="head"><%=(rsRothKontakt.Fields.Item("Web_Link").Value)%>
  Email:  " class="head"><%=(rsRothKontakt.Fields.Item("E-Mail").Value)%>


  [ Startseite | Impressum | Kontakt für Aussteller ]  

 

© GGT - Deutsche Gesellschaft für Gerontotechnik® 1997 - 2002 

<% rsRothKontakt.Close() Set rsRothKontakt = Nothing %>