<%
if session("Loggedin")="showprice" then
%>
<%
else
%>
<%
end if
%>
<%=getctrans(778)%> <%=plants%>
<%select case request.QueryString("page")
case "home"
response.Write fix(gtext(1))
case "detail"
response.Write fix(gtext(3))
case "picts"
response.Write drawfotos(1)
case "offer"
%>
<%
dim priceinfo
priceinfo=pricelist("")
%>
<%
response.write priceinfo
case "aboutus"
response.Write fix(gtext(2))
case "contact"
response.Write fix(gtext(5))%>
<%
case "chaninfo"
if session("userid") ="" or isnumeric(session("userid"))=false then
error(getctrans(268)) 'u bent niet ingelogd
else
if request.QueryString("ret")="suc" then
info(getctrans(272 )) 'de gegevens werden aangepast
end if
if request.QueryString("act")="change" and request.QueryString("who")="user" then
dim pwd,user,name,mail,lang
if request.Form("pass")=request.Form("pass2") then
dim upsql,sqad
pwd=fq(request.Form ("pass"))
name=fq(request.Form("naam"))
mail=fq(request.Form("mail"))
lang=cdbl(request.Form("lang"))
upsql="update tblgebruiker set "
if request.Form("pass")<>"" then
upsql= upsql & "paswoord='" & pwd & "'"
sqad=","
end if
upsql=upsql & sqad & "naam='" & name & "',email='" & mail & "',taal=" & lang
upsql = upsql & " where id=" & session("userid")
ocon.execute(upsql)
session("username")=cstr(name)
session("taalid")=lang
//session("taalLoc")=rsret("locale")
session("email")=mail
session("usertaal")=lang
response.Cookies("taal")=lang
response.Cookies("taal").domain="pollekes.be"
response.Cookies("taal").expires=date+30
response.Cookies("taal").path="/"
response.Redirect indexpage & "?page=chaninfo&ret=suc"
else
%>
<%=getctrans(264) %>
<%
end if
end if
%>
<%
end if
case "rout"
%>
<%
case "plants"
%>
<%
set rsho = ocon.execute("select * from tblhoofdgroep where visible=1")
do until rsho.eof
%>
<%
if getthemesetting(getsettings("theme","1"),"fotoloc","0") = "0" then
%>
"><%=rsho("naam") %> |
<%=getfotos("h",rsho("id"),5) %> |
<%=gethtekst(rsho("id")) %> |
|
<%
elseif getthemesetting(getsettings("theme","1"),"fotoloc","0") = "1" then
%>
| |
|
<%=gethtekst(rsho("id")) %> |
<%
end if
%>
<%
rsho.movenext
loop
%>
<%
case "head"
%>
<%
if isnumeric(request.QueryString("child")) and request.QueryString("child")<>"" then
set rsho = ocon.execute("select * from tblsubsoort where visible=1 and hoofd=" & request.QueryString("child"))
do until rsho.eof
%>
<%response.Write getsname(rsho("hoofd")) & " " & rsho("soort") & " " & rsho("naam") %> |
<%=getonefotoex("s",rsho("id"),"150") %> |
|
|
<%=getstekst(rsho("id")) %>
<%
if rsho("status")="0" then
response.write "" & getctrans(624) &" | "
end if
%>
<%=getprijzen(rsho("id")) %> |
|
<%
rsho.movenext
loop
end if
%>
<%
case else
response.Write fix(gtext(1))
%>
<%
end select
%>