<% Dim wistar Dim mitarb Dim SQL Set wistar = Server.CreateObject("ADODB.Connection") wistar.ConnectionString = "DSN=WISTAR;UID=admin;PWD=lakota;" wistar.Open SQL = "SELECT Mitarbeiter.* FROM Mitarbeiter WHERE mit_ProfilNr LIKE '512_166-1' OR mit_ProfilNr LIKE '510_465-3' OR mit_ProfilNr LIKE '504_472-3' OR mit_ProfilNr LIKE '311_841-3' OR mit_ProfilNr LIKE '209_158-1' ORDER BY mit_ProfilNr DESC;" Set mitarb = wistar.Execute(SQL) %> Wistar Informatik - Mitarbeiter
Mitarbeiter

Gerne erstellen wir Ihnen eine attraktive Offerte für einen individuellen Einsatz und würden uns freuen, gemeinsam mit Ihnen und einem der aufgeführten Mitarbeiter einen Termin für ein persönliches Gespräch zu vereinbaren.

 
<%If Not mitarb.BOF And Not mitarb.EOF Then mitarb.MoveFirst%> <%Do While Not mitarb.EOF%>
<%If (Len(Trim(mitarb("mit_Erfahrung"))) > 0) OR (Len(Trim(mitarb("mit_Kenntnisse"))) > 0) OR (Len(Trim(mitarb("mit_Empfehlung"))) > 0) Then%> "><%=mitarb("mit_ProfilNr")%> <%Else%> <%=mitarb("mit_ProfilNr")%> <%End If%>

<%=mitarb("mit_Titel1")%>
<%=mitarb("mit_Titel2")%>

Sprachen: <%=mitarb("mit_Sprache")%>
Alter: <%=mitarb("mit_Alter")%>
<%mitarb.MoveNext Loop%> <%Else%>

Im Moment sind leider keine Mitarbeiter verfügbar !
<%End If%>

 
zur Wistar-Homepage

<% mitarb.Close wistar.Close Set mitarb = Nothing Set wistar = Nothing %>