<% 'Chache ausschalten (abgeschwächt) Response.Expires = 1 regionid = request("Regionid") if isnull(regionid) or regionid="" or regionid="3" then regionid="3" reg_where = "" else reg_where = " and Region_ID=" & regionid end if if isnull(request("Brid")) or request("Brid")="" or request("Brid")="17" then brid = -1 else brid = clng(request("Brid")) end if akt_pg = request("Page") if isnull(akt_pg) or akt_pg = "" then akt_pg=1 else akt_pg=int(akt_pg) end if spid = request("Spid") intdat = get_neudat() sql_reg = "Select Region, R_Text_Neu, R_Titel from Region where ID=" & regionid sql_branchen = "Select Branche.ID, Branche, ABS(Branche.ID=17) from Branche order by Sort" 'Onlineshops Dummybranche if brid = -1 then sql_sparten = "Select Sparte.ID, Sparte, count(*) AS Ges_Anzahl, (Select count(*) from Internet, ZuordKundeSparte ZKS_1 where Internet.ID=ZKS_1.Kunden_ID and ZKS_1.Sparte_ID=Sparte.ID and Vorschau=0 and Aktiv=-1 and Onlineshop=-1 and Deldatum>=" & intdat & reg_where & ") AS Neu_Anzahl from Sparte, ZuordBrancheSparte AS ZBS, ZuordKundeSparte AS ZKS, Internet where ZBS.Sparte_ID=Sparte.ID and Sparte.ID=ZKS.Sparte_ID and ZKS.Kunden_ID=Internet.ID and Branche_ID=17 " & reg_where & " and Vorschau=0 and Aktiv=-1 and Onlineshop=-1 group by Sparte.ID, Sparte order by Sparte" sql_neu_kunden = "Select TOP 10 Sparte.ID, Sparte, Kunden_ID, Title, Domain, Deldatum, Eintrag from Internet, Sparte, ZuordBrancheSparte ZBS, ZuordKundeSparte ZKS where Sparte.ID=ZBS.Sparte_ID and ZBS.Sparte_ID=ZKS.Sparte_ID and ZKS.Kunden_ID=Internet.ID and Vorschau=0 and Aktiv=-1 and Onlineshop=-1 and ZBS.Branche_ID In(17," & brid &") " ®_where & " and Deldatum>=" & intdat & " order by Sparte, Deldatum desc, Title" else sql_sparten = "Select Sparte.ID, Sparte, count(*) AS Ges_Anzahl, (Select count(*) from Internet, ZuordKundeSparte ZKS_1 where Internet.ID=ZKS_1.Kunden_ID and ZKS_1.Sparte_ID=Sparte.ID and Vorschau=0 and Aktiv=-1 and Onlineshop=-1 and Deldatum>=" & intdat & reg_where & ") AS Neu_Anzahl from Sparte, ZuordBrancheSparte AS ZBS, ZuordKundeSparte AS ZKS, Internet where ZBS.Sparte_ID=Sparte.ID and Sparte.ID=ZKS.Sparte_ID and ZKS.Kunden_ID=Internet.ID and Branche_ID=" & brid & reg_where & " and Vorschau=0 and Aktiv=-1 and Onlineshop=-1 group by Sparte.ID, Sparte order by Sparte" sql_neu_kunden = "Select distinct top 10 Sparte.ID, Sparte, Kunden_ID, Title, Domain, Deldatum, Eintrag from Internet, Sparte, ZuordBrancheSparte ZBS, ZuordKundeSparte ZKS where Sparte.ID=ZBS.Sparte_ID and ZBS.Sparte_ID=ZKS.Sparte_ID and ZKS.Kunden_ID=Internet.ID and Vorschau=0 and Aktiv=-1 and Onlineshop=-1 and ZBS.Branche_ID=" & brid &" " ®_where & " and Deldatum>=" & intdat & " order by Sparte, Deldatum desc, Title" end if 'response.write sql_neu_kunden set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.RecordSet") conn.open("onlineshop") rs.open sql_reg, conn, 3 if not rs.EOF then region = rs("Region") r_text = rs("R_Text_Neu") r_titel = rs("R_Titel") end if rs.close rs.open sql_branchen, conn, 3 if not rs.EOF then br_array = rs.getRows() br_anz = rs.RecordCount-1 else br_anz = -1 end if rs.close 'Neu: Seitenweise Navigation im Array (analog Recordset...): 'Vorteil: Recordset un Connection können geschlossen werden rs.open sql_sparten, conn, 3 if not rs.EOF then sp_anz = rs.RecordCount-1 pg_size = (abs(sp_anz > 59)+1)*20 pg_anz = get_Pageanz(sp_anz+1,pg_size) first = (akt_pg - 1) * pg_size last = first + pg_size - 1 if last > sp_anz then last = sp_anz sp_array = rs.getRows() else sp_anz = -1 pg_anz = -1 first = 0 last = -1 end if rs.close rs.open sql_neu_kunden, conn, 3 if not rs.EOF then ku_array = rs.getRows() ku_anz = rs.RecordCount-1 else ku_anz = -1 end if rs.close ssql = "" ssql = ssql & "Select Shopglobal.Kunden_ID, Shopglobal.Waehrung_ID, Waehrung.Output, Shopglobal.Shop_Text, Internet.Domain, Internet.Verzeichnis, Internet.Title, Internet.Region_ID, Internet.Aktiv, Internet.Vorschau, (select count(*) from artikel where Kunden_ID=Internet.ID) AS AnzArtikel " ssql = ssql & "from Internet,Shopglobal,Waehrung " ssql = ssql & "where Internet.ID = Shopglobal.Kunden_ID " ssql = ssql & "and Internet.ID not in (961,1068,1076,1164) " ssql = ssql & "and Waehrung.ID=Shopglobal.Waehrung_ID " ssql = ssql & "and Internet.Aktiv=-1 " ssql = ssql & "and Internet.Vorschau=0 " ssql = ssql & "and (select count(*) from artikel where Kunden_ID=Internet.ID)>0 " ssql = ssql & "order by Shopglobal.Kunden_ID" rs.open ssql, conn, 3 if not rs.EOF then ashop_tt = rs.getRows lashop_tt = rs.RecordCount dtipp = get_RND_Index(0,lashop_tt) else lashop_tt = -1 end if rs.close if lashop_tt > -1 then ssql_tt = "" ssql_tt = ssql_tt & "SELECT Artikel.Kunden_ID, Artikel.ID, Artikel.ArtBez, Artikel.Info, Artikel.Preis, Artikel.Bild, Artikel.Upd_Datum, (select count(*) from HGAGArtZuord,Gruppenzuord,Hauptgruppe where Artikel_ID=Artikel.ID and Gruppenzuord_ID=Gruppenzuord.ID and Hauptgruppe_ID=Hauptgruppe.ID and Hauptgruppe.Online=-1) AS AnzGrp, Shopglobal.Waehrung_ID " ssql_tt = ssql_tt & "FROM Artikel, Internet, Shopglobal " ssql_tt = ssql_tt & "WHERE Artikel.Kunden_ID Not In (961,1068,1076,1164) " ssql_tt = ssql_tt & "and (select count(*) from HGAGArtZuord,Gruppenzuord,Hauptgruppe where Artikel_ID=Artikel.ID and Gruppenzuord_ID=Gruppenzuord.ID and Hauptgruppe_ID=Hauptgruppe.ID and Hauptgruppe.Online=-1) >0 " ssql_tt = ssql_tt & "and Internet.ID=" & ashop_tt(0,dtipp) & " " ssql_tt = ssql_tt & "AND Shopglobal.Kunden_ID=Internet.ID " ssql_tt = ssql_tt & "AND Internet.ID=Artikel.Kunden_ID " ssql_tt = ssql_tt & "AND Internet.Aktiv=-1 " ssql_tt = ssql_tt & "AND Internet.Vorschau=0 " ssql_tt = ssql_tt & "order by Artikel.Kunden_ID, Artikel.ID, Artikel.Upd_Datum DESC" rs.open ssql_tt, conn, 3 if not rs.EOF then aartikel_tt = rs.getRows laartikel_tt = rs.RecordCount idtipp = get_RND_Index(0,laartikel_tt) else laartikel_tt = -1 end if rs.close end if set rs = nothing conn.close set conn = nothing str_url = "einstieg.asp" str_query = "Regionid=" & regionid &"&Brid=" & brid & "&Spid=" & spid %> cco.de - Ihr regionaler Marktplatz
Marktplatzwechsel <%=r_titel%>
  go!
  Branchenfinder
  Regiofinder
  Schnäppchen
  Highlights
  Profi-Tipps
Online-Shopping
  Autobörse
  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
  Shoppingtipp des Tages (alle Marktplätze)
  <% if lashop_tt>-1 then response.write "" & chr(13) hp_bild = not(aartikel_tt(5,idtipp) = "" or isnull(aartikel_tt(5,idtipp)) or aartikel_tt(5,idtipp)="blind.gif") len_txt = 190 hp_bild=False if hp_bild then response.write "" response.write "" & chr(13) len_txt = 100 end if response.write "" & chr(13) if laartikel_tt >-1 then sInfo = "" & konv_Text(aartikel_tt(2,idtipp),"Produktbeschreibung",40,false) & "" response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" end if response.write "" & chr(13) response.write "" 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 %>
" & ashop_tt(6,dtipp) & " präsentiert:
" & sInfo & "
" & sGetDetailsTT(dtipp) & "
" & sFormatPreis(aartikel_tt(4,idtipp),ashop_tt(2,dtipp)) & "
" & "Mehr von unseren " & ashop_tt(10,dtipp) & " Produkten finden Sie 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.
  Shopping-Navigator (<%=r_text%>)
  <% if brid = "-1" then %> <% Else %> <% End If %> <% br_text = "Onlineshops aller Branchen (" & sp_anz+1 & ")" if sp_group then br_link = "einstieg.asp?Regionid=" & regionid & "&Brid=" else br_link = "einstieg.asp?Regionid=" & regionid & "&Spid=0&Brid=" end if for i=0 to 5 response.write "" & chr(13) for j=0 to 2 br_index = 3*i+j if brid = clng(br_array(0,br_index)) then br_text = br_array(1,br_index) & " (" & sp_anz+1 & ")" br_bgcolor = chr(34) & "#CC0000" & chr(34) br_class = chr(34) & "headwhite" & chr(34) sausgabe = "" & br_array(1,br_index) & "" elseif not clng(br_array(0,br_index))=17 then br_bgcolor = chr(34) & "#FBDC74" & chr(34) br_class = chr(34) & "inhaltb" & chr(34) sausgabe = "" & br_array(1,br_index) & "" else br_bgcolor = chr(34) & "#FBDC74" & chr(34) br_class = chr(34) & "inhaltb" & chr(34) sausgabe = " " end if response.write "" & chr(13) next response.write "" & chr(13) response.write "" & chr(13) next %>
A L L E     B R A N C H E N
A L L E     B R A N C H E N
" & sausgabe & "
  " %> <% for i=first to last response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" next %>
<% response.write "" & r_text & " > " & neu_text & br_text & ":
Einträge: <% if sp_anz>-1 then strlink = str_url & "?" & str_query for page=1 to pg_anz pg_first = (page-1) * pg_size + 1 pg_last = pg_first + pg_size - 1 if pg_last>sp_anz+1 then pg_last = sp_anz+1 strout = "[" & pg_first & "-" & pg_last & "]" if page=akt_pg then response.write " " & strout & " " else response.write " " & strout & " " end if next else response.write " " & "Zur Zeit keine Onlineshops in dieser Branche!" & " " end if %>
 " & sp_array(1,i) & " (" & sp_array(2,i) & ")
 <% for i=0 to ku_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 %>
  Empfehlungen:
" & ku_array(3,i) & "
 " & ku_array(6,i) & "
<% 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 idtipp) sReturn = "" if not (IsNull(aartikel_tt(6,idtipp)) or aartikel_tt(6,idtipp)="") then sReturn = sReturn & "Stand: " & aartikel_tt(6,idtipp) 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 function get_neudat() mon = month(date) if mon < 10 then mon = "0" & mon jahr = year(date) get_neudat = int(jahr&mon) end function %>