<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% '--LOGO BEGIN------------------------------------------- Dim rst0, cnn0, curDir0, logo curDir0 = Server.MapPath("database/logos.mdb") Set cnn0 = Server.CreateObject("ADODB.Connection") cnn0.Open "DBQ="& curDir0 &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" Set rst0 = Server.CreateObject("ADODB.Recordset") Set rst0.ActiveConnection = cnn0 rst0.Source = "SELECT * FROM Logos WHERE (Ende >= date() AND Start <= date())" rst0.CursorType = adOpenStatic rst0.LockType = adLockOptimistic rst0.Open '--LOGO END------------------------------------------- %> <% Dim cnn, rst, curDir, strSQL, strMode curDir = Server.MapPath("database/fachinfos/database/fachinfos.mdb") Set cnn = Server.CreateObject("ADODB.Connection") cnn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;" Set rst = Server.CreateObject("ADODB.Recordset") Set rst.ActiveConnection = cnn strSQL = "SELECT Artikel.Wichtig, Artikel.ArtikelID, Artikel.Zielgruppe, Artikel.Zeitschrift, Artikel.Verfasser, Artikel.Titel, Artikel.Kurztext, Artikel.Langtext, Artikel.Datum, Artikel.Autor, Artikel.Zugriffe, Kategorien.KategorieID, Kategorien.Kategorie" strSQL = strSQL & " FROM Kategorien INNER JOIN Artikel ON Kategorien.KategorieID = Artikel.KategorieID" strSQL = strSQL & " WHERE Artikel.KategorieID = 2 " strSQL = strSQL & " AND Zielgruppe <> 2 " strSQL = strSQL & " AND Artikel.Datum > (Date() - 45) " strSQL = strSQL & " ORDER BY Datum DESC, Titel" If Request("ID") > "" Then strSQL = "SELECT Artikel.ArtikelID, Artikel.Zielgruppe, Artikel.Zeitschrift, Artikel.Verfasser, Artikel.Titel, Artikel.Kurztext, Artikel.Langtext, Artikel.Datum, Artikel.Autor, Artikel.Zugriffe, Kategorien.KategorieID, Kategorien.Kategorie" strSQL = strSQL & " FROM Kategorien INNER JOIN Artikel ON Kategorien.KategorieID = Artikel.KategorieID" strSQL = strSQL & " WHERE ArtikelID = " & Request("ID") & " " End If rst.Source = strSQL rst.CursorType = adOpenStatic rst.LockType = adLockOptimistic rst.Open '--------------------------------------------- %> Intropage Lippedent

Herzlich Willkommen
 hier finden Sie Informationen für...

Hier finden Sie Informationen rund um Gesundheit und Zahnpflege. Dieser Bereich wird ständig ausgebaut.
Hier finden Sie Informationen rund um Ihren Beruf, eine Jobbörse, Fortbildungsangebote und vieles mehr.

Wenn Sie als Zahnarzt zur Präsentation Ihrer Praxis auf das Medium Internet nicht verzichten möchten, sollten Sie einen Blick auf unsere Web-Services werfen. Zu günstigen Konditionen können auch Sie sich, auf unkomplizierte Weise und ohne Werbung zu betreiben, eine angemessene Repräsentanz im Web zulegen.


 Informationen über die PROFESSIONELLE ZAHNREINIGUNG
Zahnärztlicher
 Notfalldienst
 in Westfalen Lippe
Clown "Mausini"
 in Lippstadt
 

<% If rst0.RecordCount > 0 Then %> " name="<% =rst0.Fields("LinkText") %>"> " border=0> <% End If %>
<% If rst.RecordCount > 0 Then %> <% rst.MoveFirst %> <% Do While not rst.EOF %> <% rst.MoveNext If rst.EOF = False Then %> <% rst.MoveNext End If %> <% Loop %> <% End If %>


 
Häufig gestellte Patientenfragen
Für Sie gelesen
"><% =rst.Fields("Titel") %>
"><% =rst.Fields("Titel") %>
Zum Archiv


In unseren Diskussionsforen können Patienten, Zahnärzte und Zahnärztliches Fachpersonal diskutieren.

NEU: Bei LIPPEDENT können Sie als Zahnarzt, Online Ihre Standard-Homepage oder Ihre Komfort-Homepage bestellen.

<% rst0.Close cnn0.Close rst.Close Set rst = Nothing cnn.Close Set cnn = Nothing %>