<% strCN = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=C:\Inetpub\vhosts\blasius.com\database\db_blasius.mdb" Set Verbindung = Server.CreateObject("ADODB.Connection") Verbindung.Open strCN strSQL = "Select * from produkte Where kategorie Like '6' And ausblenden = 0 order by idProdukte ASC" Set rs = Verbindung.Execute(strSQL) %>

l Impressum / Datenschutz l Startseite l Automatische Schiebetüren Drehtürantriebe Obentürschließer Bodentürschließer Feststellanlagen Elektrospindelantriebe Kettenantriebe Elektrische Oberlichtöffner Rauchmelder <%select case rs("kategorie")%> <% case "1"%> <% =("Produktübersicht: Automatische Schiebetüren")%> <% case "2"%> <% =("Produktübersicht: Drehtürantriebe")%> <% case "3"%> <% =("Produktübersicht: Obentürschließer")%> <% case "4"%> <% =("Produktübersicht: Bodentürschließer")%> <% case "5"%> <% =("Produktübersicht: Feststellanlagen")%> <% case "6"%> <% =("Produktübersicht: Elektrospindelantriebe")%> <% case "7"%> <% =("Produktübersicht: Kettenantriebe")%> <% case "8"%> <% =("Produktübersicht: Elektrische Oberlichtöffner")%> <% case "9"%> <% =("Produktübersicht: Rauchmelder")%> <%end select%> <% Do While Not rs.EOF%> <% rs.MoveNext Loop %> <% Verbindung.Close %> <%If rs("Produktname") <> " " Then%> <%=rs("Produktname")%> <%End If%> <%If rs("img_kl") <> "" Then%> " title="<%=rs("Produktname")%>"> <%Else%> <%End If%> <%=rs("kurzinfo")%> I " onfocus="this.blur()" target="_top" title="Dateils: <%=rs("Produktname")%>">Details I " onfocus="this.blur()" title="Produktanfrage: <%=rs("Produktname")%>"> Anfrage I <%If rs("img_kl") <> "" And rs("img_gr") <> "" Then%> ','Fenster','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=370px,height=300px,top=20px,left=20px')" onfocus="this.blur()">Foto vergrößern I <%End If%>