<% 'Chache ausschalten (abgeschwächt) Response.Expires = 1 ' Region regionid = request("Regionid") if isnull(regionid) or regionid="" or regionid="3" then regionid = int(3) ssqlRegion = "" reg_where = "" reg_from = "" else regionid = int(regionid) 'ssqlRegion = " and Internet.Region_ID= " & regionid & " " ssqlRegion = " " reg_where = " KRZ.Eintrag_ID=Eintrag.ID and KRZ.Region_ID=" & regionid & " and" reg_from = ", Kost_Reg_Zuord KRZ" end if if IsNull(request("AnzMsg")) or request("AnzMsg")="" then lanzmsg=0 else lanzmsg=clng(request("AnzMsg")) end if 'init vars br_anz = -1 pg_size = 40 set admin = Server.CreateObject("ADODB.Connection") set drive = Server.CreateObject("ADODB.Connection") set rs_a = Server.CreateObject("ADODB.RecordSet") set rs_d = Server.CreateObject("ADODB.RecordSet") sql_reg = "Select Region, R_Text_Neu, R_Titel from Region where ID=" & regionid admin.open("admin") drive.open("fahrzeug") ' -------------------------------------------------------------------------------------------------- self = request("Self") fzd = request("Fzd") if fzd="True" and Len(request.Form("Fzd"))=0 then sort = request("Sort") sdir = request("Sdir") akt_pg = request("Page") bereich = request("Bereich") art = request("Art") ez_jahr = request("Ez_jahr") preis = request("Preis") marke = request("Marke") erg = request("Erg") bereich_ns = request("Bereich") art_ns = request("Art") ez_jahr_ns = request("Ez_jahr") preis_ns = request("Preis") marke_ns = request("Marke") anzdriveold = request("AnzDriveOld") elseif self = "True" then sort = request.Form("Sort") sdir = request.Form("Sdir") akt_pg = request.Form("Page") if request.Form("New_search")="False" and request.Form("Erg")="True" then bereich = request.Form("Bereich_ns") art = request.Form("Art_ns") ez_jahr = request.Form("Ez_jahr_ns") preis = request.Form("Preis_ns") marke = request.Form("Marke_ns") else bereich = request.Form("Bereich") art = request.Form("Art") ez_jahr = request.Form("Ez_jahr") preis = request.Form("Preis") marke = request.Form("Marke") end if erg = request.Form("Erg") bereich_ns = request.Form("Bereich_ns") art_ns = request.Form("Art_ns") ez_jahr_ns = request.Form("Ez_jahr_ns") preis_ns = request.Form("Preis_ns") marke_ns = request.Form("Marke_ns") anzdriveold = request.Form("AnzDriveOld") else sort = request("Sort") sdir = request("Sdir") akt_pg = request("Page") if request("New_search")="False" and request("Erg")="True" then bereich = request("Bereich_ns") art = request("Art_ns") ez_jahr = request("Ez_jahr_ns") preis = request("Preis_ns") marke = request("Marke_ns") else bereich = request("Bereich") art = request("Art") ez_jahr = request("Ez_jahr") preis = request("Preis") marke = request("Marke") end if erg = request("Erg") bereich_ns = request("Bereich_ns") art_ns = request("Art_ns") ez_jahr_ns = request("Ez_jahr_ns") preis_ns = request("Preis_ns") marke_ns = request("Marke_ns") anzdriveold = request("AnzDriveOld") end if if isNull(anzdriveold) or anzdriveold="" then lanzdriveold=-1 else lanzdriveold=clng(anzdriveold) end if if isnull(akt_pg) or akt_pg="" then akt_pg = 1 else akt_pg = int(akt_pg) end if if suche = "" or isnull(suche) then ssqlLike = "" sSuche = "" else suche = replace(suche,"'"," ") suche = replace(suche,chr(34)," ") ssqlLike = " and (Marke.Marke like '%" & suche & "%' or Fahrzeug.Modell like '%" & suche & "%')" sSuche = "Suchergebnis: " end if ' -------------------------------------------------------------------------------------------------- ' Bereich if bereich = "-1" or bereich = "0" or bereich = "" or isnull(bereich) then bereich = -1 else bereich = clng(bereich) end if if not (bereich=-1) then ssqlBereich = " and Fahrzeug.Bereich_ID=" & bereich & " " else ssqlBereich = "" end if ' -------------------------------------------------------------------------------------------------- ' -------------------------------------------------------------------------------------------------- ' Art if art = "-1" or art = "0" or art = "" or isnull(art) then art = -1 else art = clng(art) end if if not (art=-1) then ssqlArt = " and Fahrzeug.Art_ID=" & art & " " else ssqlArt = "" end if ' -------------------------------------------------------------------------------------------------- ' -------------------------------------------------------------------------------------------------- ' EZ Jahr if ez_jahr = "-1" or ez_jahr = "0" or ez_jahr = "" or isnull(ez_jahr) then ez_jahr = -1 else ez_jahr = clng(ez_jahr) end if if not (ez_jahr=-1) then ssqlEZ = " and Fahrzeug.EZ_Jahr =" & ez_jahr & " " else ssqlEZ = "" end if ' -------------------------------------------------------------------------------------------------- ' -------------------------------------------------------------------------------------------------- ' Preis if preis = "-1" or preis = "0" or preis = "" or isnull(preis) then preis = -1 end if if not (preis = -1) then ssqlPreis = " and Fahrzeug.Preis " & preis & " " else ssqlPreis = "" end if ' -------------------------------------------------------------------------------------------------- ' -------------------------------------------------------------------------------------------------- ' Marke if marke = "-1"or marke = "0" or marke = "" or isnull(marke) then marke = -1 else marke = clng(marke) end if if not (marke = -1) then ssqlMarke = " and Fahrzeug.Marke_ID=" & marke & " " else ssqlMarke = "" end if ' -------------------------------------------------------------------------------------------------- ' -------------------------------------------------------------------------------------------------- ' Sortierung der Fahrzeugliste festlegen if sort = "" or isnull(sort) then str_sort = "order by Marke.Marke , Fahrzeug.Modell " & " " & sdir else str_sort = " order by " & sort & " "& sdir end if if currentpg="" or isnull(currentpg) then currentpg = 1 else currentpg = int(currentpg) end if if not (gid="all" or gid="" or isnull(gid) or gid = "notJoined") then ssqlWhere = " and Fahrzeug.Gruppe_ID=" & clng(gid) & " " elseif (gid = "notJoined") then ssqlWhere = " and (Fahrzeug.Gruppe_ID Is Null or Fahrzeug.Gruppe_ID=0) " else ssqlWhere = "" end if if regionid = 3 then rs_d.open "SELECT Count(Fahrzeug.ID) AS AnzDrive from Gruppe INNER JOIN Fahrzeug ON Gruppe.ID = Fahrzeug.Gruppe_ID where Gruppe.Online=-1",drive,3 sInDieserRegion = " " else rs_d.open "SELECT Count(Fahrzeug.ID) AS AnzDrive FROM Gruppe INNER JOIN (Fahrzeug INNER JOIN Internet ON Fahrzeug.Kunden_ID = Internet.ID) ON Gruppe.ID = Fahrzeug.Gruppe_ID WHERE Internet.Region_ID="®ionid&" AND Gruppe.Online=-1",drive,3 sInDieserRegion = " (in dieser Region) " end if lAnzDrive = rs_d("AnzDrive") rs_d.close ssql = "" ssql = ssql & "Select ID, Bereich_Ausgabe,(Select Count(ID) from Fahrzeug where Bereich_ID=Bereich.ID) as AnzDrive from Bereich order by ID" rs_d.open ssql, drive, 3 if not rs_d.EOF then abereich = rs_d.getRows() labereich = ubound(abereich,2) else labereich = -1 end if rs_d.close ssql = "" ssql = ssql & "SELECT Art.ID, Art.Art, Count(Fahrzeug.Art_ID) AS AnzDrive FROM Art LEFT JOIN Fahrzeug ON Art.ID = Fahrzeug.Art_ID GROUP BY Art.ID, Art.Art" rs_d.open ssql ,drive,3 if not rs_d.EOF then aart = rs_d.getRows() laart = ubound(aart,2) else laart = -1 end if rs_d.close ssql = "" ssql = ssql & "SELECT Marke.ID, Marke.Marke, Count(Fahrzeug.Marke_ID) AS AnzDrive FROM Marke LEFT JOIN Fahrzeug on Marke.ID = Fahrzeug.Marke_ID group by Marke.ID, Marke.Marke" rs_d.open ssql ,drive,3 if not rs_d.EOF then amarke = rs_d.getRows() lamarke = ubound(amarke,2) else lamarke = -1 end if rs_d.close rs_d.open "Select distinct EZ_Jahr from Fahrzeug where EZ_Jahr>1900 ORDER BY EZ_Jahr desc" if not rs_d.EOF then ajahr = rs_d.getRows() lajahr = ubound(ajahr,2) else dim ajahr(0,4) lajahr = ubound(ajahr,2) ajahr(0,0) = Year(Date()) ajahr(0,1) = Year(Date())-1 ajahr(0,2) = Year(Date())-2 ajahr(0,3) = Year(Date())-3 ajahr(0,4) = Year(Date())-4 end if rs_d.close ssql = "" ssql = ssql & "Select " ssql = ssql & "Fahrzeug.ID as Fahrzeug_ID, Art.Art, Marke.Marke, Fahrzeug.Modell, " ssql = ssql & "[BJ_Monat] & '/' & [BJ_Jahr] AS BJ, Fahrzeug.Kilometer, " ssql = ssql & "[EZ_Monat] & '/' & [EZ_Jahr] AS EZ, Fahrzeug.Preis, Fahrzeug.Bereich_ID,Internet.Domain,Internet.Region_ID,Internet.Title " ssql = ssql & "FROM Fahrzeug,Marke,Internet,Gruppe,Art " ssql = ssql & "where (0=0) " ssql = ssql & "AND (Internet.ID=Fahrzeug.Kunden_ID) " ssql = ssql & "AND (Marke.ID=Fahrzeug.Marke_ID) " ssql = ssql & "AND (Gruppe.ID=Fahrzeug.Gruppe_ID) " ssql = ssql & "AND (Art.ID=Fahrzeug.Art_ID) " ssql = ssql & "AND (Internet.Vorschau=0) " ssql = ssql & "AND (Internet.Aktiv=-1) " ssql = ssql & "AND (Gruppe.Online=-1) " ssql = ssql & ssqlRegion ssql = ssql & ssqlWhere ssql = ssql & ssqlLike ssql = ssql & ssqlBereich ssql = ssql & ssqlArt ssql = ssql & ssqlEZ ssql = ssql & ssqlPreis ssql = ssql & ssqlMarke ssql = ssql & str_sort rs_d.open ssql, drive, 3 if not rs_d.EOF then lAnzDriveSearch = rs_d.RecordCount if not lanzdriveold=lAnzDriveSearch then akt_pg=1 rs_d.move (akt_pg-1)*pg_size bookm = rs_d.Bookmark ang_array = rs_d.getRows(pg_size,bookm) pg_anz = get_Pageanz(lAnzDriveSearch,pg_size) list_anz = ubound(ang_array,2) sAnzahlAusgabe = "Suchergebnis: " & lAnzDriveSearch & " Fahrzeug" if lAnzDriveSearch > 0 then sAnzahlAusgabe = sAnzahlAusgabe & "e" else sAnzahlAusgabe = "Suchergebnis: Keine Fahrzeuge gefunden" lAnzDriveSearch = 0 pg_anz = 0 list_anz = -1 end if rs_d.close ssql_art = "" ssql_art = ssql_art & "Select First(Art.ID) as Art_ID, Art.Art, Count(Fahrzeug.ID) AS AnzDrive from Fahrzeugglobal, Fahrzeug,Gruppe,Internet,Art where " ssql_art = ssql_art & "Internet.Region_ID=1 " ssql_art = ssql_art & "and Gruppe.Online=-1 " ssql_art = ssql_art & "and Internet.Aktiv=-1 " ssql_art = ssql_art & "and Internet.Vorschau=0 " ssql_art = ssql_art & "and Fahrzeug.Gruppe_ID = Gruppe.ID " ssql_art = ssql_art & "and Fahrzeug.Kunden_ID = Internet.ID " ssql_art = ssql_art & "and Art.ID = Fahrzeug.Art_ID " ssql_art = ssql_art & "and Fahrzeugglobal.Kunden_ID = Fahrzeug.Kunden_ID " ssql_art = ssql_art & ssqlLike ssql_art = ssql_art & ssqlBereich ssql_art = ssql_art & ssqlArt ssql_art = ssql_art & ssqlEZ ssql_art = ssql_art & ssqlPreis ssql_art = ssql_art & ssqlMarke ssql_art = ssql_art & "group by Art.Art order by Count(Fahrzeug.ID) DESC" rs_d.open ssql_art, drive, 3 if not rs_d.EOF then adrivegroup = rs_d.getRows ladrivegroup = rs_d.RecordCount else ladrivegroup = -1 end if rs_d.close ssql_tt = "" ssql_tt = ssql_tt & "Select top 20 Fahrzeug.ID, Fahrzeug.Kunden_ID, Art.Art, Marke.Marke, Fahrzeug.Modell, Fahrzeug.EZ_Monat, Fahrzeug.EZ_Jahr, Fahrzeug.Kilometer, Fahrzeug.Leistung, Fahrzeug.Preis, Waehrung.Output, Fahrzeug.Upd_Date, Fahrzeug.Bild, Internet.Title, Internet.Domain, Internet.Verzeichnis " ssql_tt = ssql_tt & "from Fahrzeug,Internet,Marke,Fahrzeugglobal,Waehrung,Art,Gruppe " ssql_tt = ssql_tt & "where " ssql_tt = ssql_tt & "Fahrzeug.Gruppe_ID = Gruppe.ID " ssql_tt = ssql_tt & "and Fahrzeug.Kunden_ID = Internet.ID " ssql_tt = ssql_tt & "and Fahrzeug.Marke_ID = Marke.ID " ssql_tt = ssql_tt & "and Fahrzeug.Kunden_ID = Fahrzeugglobal.Kunden_ID " ssql_tt = ssql_tt & "and Fahrzeugglobal.Waehrung_ID = Waehrung.ID " ssql_tt = ssql_tt & "and Fahrzeug.Art_ID = Art.ID " ssql_tt = ssql_tt & "and Internet.Region_ID=1 " ssql_tt = ssql_tt & "and Gruppe.Online=-1 " ssql_tt = ssql_tt & "and Internet.Aktiv=-1 " ssql_tt = ssql_tt & "and Internet.Vorschau=0 " ssql_tt = ssql_tt & "order by Fahrzeug.ID desc" rs_d.open ssql_tt, drive, 3 if not rs_d.EOF then adrive_tt = rs_d.getRows ladrive_tt = rs_d.RecordCount dtipp = get_RND_Index(0,ladrive_tt) else ladrive_tt = -1 end if rs_d.close ' Fahrzeuge fuer das rechte Drittel ermitteln und in das Array 'adrive_det()' schreiben ssql_art_det = "" ssql_art_det = ssql_art_det & "Select Fahrzeug.Art_ID, Fahrzeug.ID, Fahrzeug.Kunden_ID, Marke.Marke, Fahrzeug.Modell, Fahrzeug.EZ_Monat, Fahrzeug.EZ_Jahr, Fahrzeug.Kilometer, Fahrzeug.Leistung, Fahrzeug.Preis, Waehrung.Output, Fahrzeug.Upd_Date, Fahrzeug.Bild, Internet.Title, Internet.Domain, Internet.Verzeichnis, Internet.Region_ID " ssql_art_det = ssql_art_det & "from Fahrzeug,Gruppe,Internet,Fahrzeugglobal,Waehrung,Marke " ssql_art_det = ssql_art_det & "where " ssql_art_det = ssql_art_det & "Fahrzeug.Gruppe_ID=Gruppe.ID " ssql_art_det = ssql_art_det & "and Fahrzeug.Kunden_ID=Internet.ID " ssql_art_det = ssql_art_det & "and Fahrzeug.Kunden_ID=Fahrzeugglobal.Kunden_ID " ssql_art_det = ssql_art_det & "and Fahrzeugglobal.Waehrung_ID=Waehrung.ID " ssql_art_det = ssql_art_det & "and Fahrzeug.Marke_ID=Marke.ID " ssql_art_det = ssql_art_det & "and Gruppe.Online=-1 " ssql_art_det = ssql_art_det & "and Internet.Aktiv=-1 " ssql_art_det = ssql_art_det & "and Internet.Vorschau=0 " ssql_art_det = ssql_art_det & ssqlLike ssql_art_det = ssql_art_det & ssqlBereich ssql_art_det = ssql_art_det & ssqlArt ssql_art_det = ssql_art_det & ssqlEZ ssql_art_det = ssql_art_det & ssqlPreis ssql_art_det = ssql_art_det & ssqlMarke if not ladrive_tt=-1 then ssql_art_det = ssql_art_det & "and not Fahrzeug.ID=" & clng(dtipp) & " " ssql_art_det = ssql_art_det & "order by Fahrzeug.Art_ID " rs_d.open ssql_art_det, drive, 3 if not rs_d.EOF then adrive_det = rs_d.getRows ladrive_det = rs_d.RecordCount else ladrive_det = -1 end if rs_d.close drive.close ' -------------------------------------------------------------------------------------------------- rs_a.open sql_reg, admin, 3 if not rs_a.EOF then region = rs_a("Region") r_text = rs_a("R_Text_Neu") r_titel = rs_a("R_Titel") end if rs_a.close admin.close set rs_a = nothing set rs_d = nothing set admin = nothing set drive = nothing %> cco.de - Ihr regionaler Marktplatz
Marktplatzwechsel <%=r_titel%>
  go!
  Branchenfinder
  Regiofinder
  Schnäppchen
  Highlights
  Profi-Tipps
  Online-Shopping
  Reisewelt
  Kostenlos
  Gewinnspiele
  Branchen-News
  XXL-Power-Anfrage
  Profisuche
  Newsletter Abo
  cco.de and more
  Profi Homepages
  Promotion in cco.de
  Company
  Karriere bei cco.de
  Kontakt
  Fahrzeug des Tages (alle Marktplätze)
  <% if ladrive_tt>-1 then response.write "" & chr(13) hp_bild = not(adrive_tt(12,dtipp) = "" or isnull(adrive_tt(12,dtipp)) or adrive_tt(12,dtipp)="blind.gif") len_txt = 170 hp_bild=False if hp_bild then response.write "" response.write "" & chr(13) len_txt = 100 end if response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) else response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) end if %>
" & adrive_tt(13,dtipp) & " präsentiert:
" & konv_Text(adrive_tt(2,dtipp) & ": " & adrive_tt(3,dtipp) & " " & adrive_tt(4,dtipp),"Titel",40,false) & "
" & sGetDetailsTT(dtipp) & "
" & sFormatPreis(adrive_tt(9,dtipp),adrive_tt(10,dtipp)) & "
Mehr Fahrzeuge  hier...
Hier könnte Ihre Werbung stehen!
Nehmen Sie mit uns Kontakt auf! Fließtext, Fließtext, Fließtext, Fließtext, Fließtext !!!
nur 799,- DM mtl.
  Fahrzeug-Navigator (alle Marktplätze)
 
W ä h l e n    S i e    b i t t e    I h r    F a h r z e u g    a u s
Bereich
Art
Marke
EZ
Preis
Suche starten  XXL-Power-Anfrage starten  Neue Suche
  alle Marktplätze > Autodatenbank: <%=sAnzahlAusgabe%>
  Einträge: <% for page=1 to pg_anz pg_first = (page-1) * pg_size + 1 pg_last = pg_first + pg_size - 1 if pg_last > lAnzDriveSearch then pg_last = lAnzDriveSearch strout = "[" & pg_first & "-" & pg_last & "]" if page=akt_pg then response.write " " & strout & " " else response.write " " & strout & " " end if next %>
  <% for i=0 to list_anz response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) next %>
Art:   Marke: Modell/Typ: Preis: 
" & ang_array(1,i) & "" & konv_Text(ang_array(2,i),"Titel",30,false) & "" & konv_Text(ang_array(3,i),"Titel",27,false) & "" & sFormatPreis(ang_array(7,i),"€") & "
<% if ladrivegroup=-1 then response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) end if lIndexBasis = 0 for i=0 to ladrivegroup-1 if adrivegroup(0,i)=art or art=-1 then index_fzart = lIndexBasis + get_RND_Index(0,adrivegroup(2,i)) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) lIndexBasis = lIndexBasis+adrivegroup(2,i) end if next %>
 Empfehlungen
Für die von Ihnen vorgegebenen Suchkriterien wurden keine Empfehlungen gefunden!
 
 " & adrivegroup(1,i) & " (" & adrivegroup(2,i) & ")
" & adrive_det(3,index_fzart) & " " & adrive_det(4,index_fzart) & "
 " & sGetDetailsArt(index_fzart) & "
 " & sFormatPreis(adrive_det(9,index_fzart),adrive_det(10,index_fzart)) & "
 
<% function get_RND_Index(byVal min,byVal margin) randomize(time) get_RND_Index = min + int(margin*rnd()) end function function get_Pageanz(byVal records,byVal div) rest = records mod div get_Pageanz = int(records/div)+abs(rest>0) end function function get_ArrayIndex(byVal typeid) retidx = -1 for i=0 to type_anz if aus_array(0,i)=typeid then retidx = i exit for end if next get_ArrayIndex = retidx end function function konv_Text(newstext,feld,length,leer) if len(newstext)>0 then newstext = replace(newstext,"
"," ") newstext = replace(newstext,"&squot;","'") newstext = trim(newstext) end if newstext = eliminate_all_HTML(newstext) if len(newstext) > length then newstext = left(newstext,instrrev(newstext," ",length+1)) & "..." end if if not leer and (newstext = "..." or newstext = "" or len(newstext)=0) then newstext = "Kein " & feld konv_Text = newstext end function function eliminate_all_HTML(ByVal parastr) nlength = len(parastr) out_buffer = "" for chridx=1 to nlength zeichen = mid(parastr,chridx,1) if not zeichen = "<" then 'append to result-String out_buffer = out_buffer & zeichen else 'jump to the end of html-Tag or to the end of String chridx = instr(chridx+1,parastr,">") if chridx = 0 then chridx = nlength end if next eliminate_all_HTML = out_buffer end function function sFormatPreis(ByVal sPreis, ByVal sWaehrung) if IsNull(sPreis) or sPreis="" or sPreis="0" then sFormatPreis = "k.A." else sFormatPreis = formatNumber(sPreis,2,,,-1) & " " & sWaehrung & " " end if end function function sGetDetailsTT(ByVal dtipp) sReturn = "" if not (IsNull(adrive_tt(5,dtipp)) or adrive_tt(5,dtipp)="" or IsNull(adrive_tt(6,dtipp))="" or adrive_tt(6,dtipp)="") then sReturn = sReturn & "EZ " & adrive_tt(5,dtipp) & "/" & adrive_tt(6,dtipp) if not (IsNull(adrive_tt(7,dtipp)) or adrive_tt(7,dtipp)="") then sReturn = sReturn & ", " & adrive_tt(7,dtipp) & "km" if not (IsNull(adrive_tt(8,dtipp)) or adrive_tt(8,dtipp)="") then sReturn = sReturn & ", " & adrive_tt(8,dtipp) & "kW" if not (IsNull(adrive_tt(11,dtipp)) or adrive_tt(11,dtipp)="") then sReturn = sReturn & ", Stand: " & adrive_tt(11,dtipp) sGetDetailsTT = sReturn end function function sGetDetailsArt(ByVal lIndex) sReturn = "" if not (IsNull(adrive_det(5,lIndex)) or adrive_det(5,lIndex)="" or IsNull(adrive_det(6,lIndex))="" or adrive_det(6,lIndex)="") then sReturn = sReturn & "EZ " & adrive_det(5,lIndex) & "/" & adrive_det(6,lIndex) if not (IsNull(adrive_det(7,lIndex)) or adrive_det(7,lIndex)="") then sReturn = sReturn & ", " & adrive_det(7,lIndex) & "km" if not (IsNull(adrive_det(8,lIndex)) or adrive_det(8,lIndex)="") then sReturn = sReturn & ", " & adrive_det(8,lIndex) & "kW" if not (IsNull(adrive_det(11,lIndex)) or adrive_det(11,lIndex)="") then sReturn = sReturn & ", Stand: " & adrive_det(11,lIndex) sGetDetailsArt = sReturn end function %>