<%
'--------ezt a két változót korábban beállítjuk-----------
'linkcsomag_db
'linkcsomag_feltetel
linkcsomag_db=4
linkcsomag_feltetel=""
scombo=""
if linkcsomag_tipus="F" then
linkcsomag_db=10
linkcsomag_feltetel=" and len(feltetel_kod)=1 "
end if
if linkcsomag_tipus="L" then
linkcsomag_db=20
linkcsomag_feltetel=" and len(feltetel_kod)=1 "
%>
<%
end if
sSQL1="select top "+ CStr(linkcsomag_db) +" feltetel_nev, feltetel_kod, ('" & Session("PATH_DOMAIN") & "/easy5/termekek_func.asp?mod=SEARCH&funkcio=' + feltetel_kod) url, web_mondat_eleje, web_mondat_vege, rand(sorszam) " _
& "from GOLD_szuro_tet where fajta_kod='FUNK' and minden_jelzo<>1 " + linkcsomag_feltetel _
& "order by newid()"
Set lista=cnnSearch.Execute(sSQL1)
%>
<%
redim rszam(3)
redim rlink(3)
redim rnev(3)
'rmax
rnev(1) ="Reklámajándék cikkek"
rlink(1)= Session("PATH_DOMAIN") & "/webcikkek/tartalomjegyzek.asp"
rnev(2) ="Reklámajándék kereső"
rlink(2)=Session("PATH_DOMAIN") & "/easy5/klasszikus_kapcsol.asp?kl_funkcio=1"
rnev(3) ="Emblémázott reklámajándék"
rlink(3)=Session("PATH_DOMAIN") & "/easy5/termekek_func.asp"
rmax=3
randomize
for i=1 to rmax
rszam(i)=int(rnd()*linkcsomag_db)
next
count=0
response.write "
"
Do While Not lista.Eof
mondat_eleje=""
mondat_vege=""
if linkcsomag_tipus="L" then
mondat_eleje=lista(3)
mondat_vege=lista(4)
end if
%>
<%=mondat_eleje%><%=lista(0)%><%=mondat_vege%>
<%
for i=1 to rmax
if count=rszam(i) and linkcsomag_tipus="L" then
%>
<%=rnev(i)%>
<%
end if
next
count=count+1
lista.Movenext
Loop
sSQL1="select feltetel_nev, feltetel_kod " _
& "from GOLD_szuro_tet where fajta_kod='FUNK' and minden_jelzo<>1 " _
& "order by feltetel_kod"
Set lista=cnnSearch.Execute(sSQL1)
Do While Not lista.Eof
koz=""
if len(lista(1))>1 then
koz=" "
end if
k=Int((4 * Rnd) + 8)
if k mod 3=0 then
j=Int((4 * Rnd) + 8)
if j mod 3=0 then
google_kulcsszo="Reklámajándék "
end if
if j mod 3=1 then
google_kulcsszo="Emblémázott "
end if
if j mod 3=2 then
google_kulcsszo="Ajándék "
end if
else
google_kulcsszo=""
end if
scombo=scombo & ""
lista.Movenext
Loop
if linkcsomag_tipus="L" then
%>
<%
' response.write " " & Session("SITE_KEYWORDS") & ""
response.write " " & Session("SITE_DESCRIPTION") & "