Kompetenzen

<% dim i i=0 rsk.movefirst do while i<19 Response.Write ""&CHR(13) if i mod 2=1 then Response.Write("") else end if rsk.moveNext i=i+1 loop Response.Write(" Hardware "&rsk.Fields("Kompetenz")&"

") i=0 do while i<11 Response.Write ""&CHR(13) i=i+1 rsk.moveNext loop Response.Write(" Dienstleistungen "&rsk.Fields("Kompetenz")&"

") i=0 do while i<7 Response.Write ""&CHR(13) i=i+1 rsk.moveNext loop rsk.close set rsk=Nothing %> Software "&rsk.Fields("Kompetenz")&"

---

<% i=0 rsu.movefirst do while rsu.EOF=false Response.Write("") rsu.moveNext loop rsu.close set rsu=Nothing %>

") Response.Write(""&rsu.Fields("Firma")&" |"&rsu.Fields("Titel")&" "&rsu.Fields("Name")&" "&rsu.Fields("VName")&" |Adresse: "&rsu.Fields("Adresse")&", "&rsu.Fields("PLZ")&" "&rsu.Fields("Stadt")&" | Telefon: "&rsu.Fields("Telefon")&" Fax: "&rsu.Fields("Fax")&" |"&rsu.Fields("Mail")&" , "&rsu.Fields("Web")&" |