<% '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")="" then brid = -1 else brid = clng(request("Brid")) end if set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.RecordSet") 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=" & brid & ") from Branche order by Sort" if brid = "17" then 'Onlineshops Dummybranche 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 & reg_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 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 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 ZBS.Branche_ID=" & brid & reg_where & " and Deldatum>=" & intdat & " order by Sparte, Deldatum desc, Title" end if conn.open("admin") 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 rs.open sql_sparten, conn, 3 if not rs.EOF then sp_array = rs.getRows() sp_anz = rs.RecordCount-1 else sp_anz = -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 set rs = nothing conn.close set conn = nothing %>

	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

XXL-Power-Anfrage (<%=r_text%>)   Schicken Sie eine E-Mail-Anfrage an eine ganze Branche   Sind Sie es leid bei jeder E-Mail-Anfrage Ihre Adresse und wiederkehrende Texte neu einzugeben? Sparen Sie sich Ihre Mühe und schicken Sie eine E-Mail-Anfrage an eine ganze Branche! Wählen Sie hier die passende Hauptbranche und anschließend die gewünschte Branche aus:   Hauptbranche auswählen (<%=r_text%>)   <% if brid = "-1" then %> <% Else %> <% End If %> <% br_text = "Bitte wählen Sie die gewünschte Branche aus!" 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) br_bgcolor = chr(34) & "#CC0000" & chr(34) br_class = chr(34) & "headwhite" & chr(34) sausgabe = "" & br_array(1,br_index) & "" else br_bgcolor = chr(34) & "#9CDBC6" & chr(34) br_class = chr(34) & "inhaltb" & chr(34) sausgabe = "" & br_array(1,br_index) & "" 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=0 to sp_anz response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" next %> Klicken Sie auf eine der Branchen, um eine XXL-Power-Anfrage zu starten! <% if not brid="-1" then sdoppelpunkt = ":" response.write "" & r_text & " > " & neu_text & br_text & sdoppelpunkt & "  " & 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 get_neudat() mon = month(date) if mon < 10 then mon = "0" & mon jahr = year(date) get_neudat = int(jahr&mon) end function %>