<% 'response.Write request.serverVariables("all_HTTP") 'dostats 'response.Expires = -1 dim usmsg dim indexpage indexpage = "index.asp" 'response.Write session("usertaal") & "--" & session("taalid") set rslang = ocon.execute("select * from tbltaal where visible=1") do until rslang.eof if request.QueryString("taal")= rslang("afkorting") then session("taalid")=rslang("id") session("taalLoc")=rslang("locale") session("taalafk")=rslang("afkorting") response.Cookies("taal").domain="decaplant.be" response.Cookies("taal").expires=date+30 response.Cookies("taal").path="/" response.Cookies("taal").secure=false response.Cookies("taal") = rslang("id") exit do elseif request.QueryString("taal")="" then if session("taalid")=rslang("id") then session("taalid")=rslang("id") session("taalLoc")=rslang("locale") session("taalafk")=rslang("afkorting") response.Cookies("taal").domain="decaplant.be" response.Cookies("taal").expires=date+30 response.Cookies("taal").path="/" response.Cookies("taal").secure=false response.Cookies("taal") = rslang("id") exit do else if request.Cookies("taal")= cstr(rslang("id")) then session("taalid")=rslang("id") session("taalLoc")=rslang("locale") session("taalafk")=rslang("afkorting") response.Cookies("taal").domain="decaplant.be" response.Cookies("taal").expires=date+30 response.Cookies("taal").path="/" response.Cookies("taal").secure=false response.Cookies("taal") = rslang("id") exit do end if end if end if rslang.movenext loop if request.QueryString("action")="login" then dim pa,us pa=request.Form("pass") us=fq(request.Form("login")) set rsret = ocon.execute("select * from tblgebruiker where gebruiker='" & us & "'") if rsret.eof = false then if cstr(rsret("paswoord")) = cstr(pa) then if cstr(rsret("status"))="1" then session("Loggedin")="showprice" session("username")=cstr(rsret("naam")) session("taalid")=rsret("taal") 'session("taalLoc")=rsret("locale") session("email")=cstr(rsret("email")) session("usertaal")=rsret("taal") session("userid")=rsret("id") ' response.Write "Welkom " & rsret("naam") else usmsg=getctrans(82) '"Uw account is geblokkeerd" end if end if end if elseif request.QueryString("action")="logout" then session("Loggedin")="" session("username")="" session("usertaal")="" session("userid")="" session("email")="" end if %> <%'savesettings("website","http://www.decaplant.be") %> <% dim Plants plants = "" set rsho = ocon.execute("select * from tblhoofdgroep where visible=1") do until rsho.eof plants = plants & rsho("naam") & ", " rsho.movenext loop if len(plants)> 0 then plants = left(plants,len(plants)-2) end if select case request.QueryString("page") case "home" pageinfo = gname(1) case "detail" pageinfo = gname(3) case "picts" pageinfo = getctrans(66) case "aboutus" pageinfo = gname(2) case "nature" pageinfo = gname(7) case "contact" pageinfo = gname(5) case "chaninfo" pageinfo = getctrans(276) case "rout" pageinfo = getctrans(70) case "plants" pageinfo = plants case "head" if isnumeric(request.QueryString("child")) and request.QueryString("child")<>"" then set rsho = ocon.execute("select * from tblhoofdgroep where id=" & request.QueryString("child")) if rsho.eof = false then pageinfo = rsho("naam") else pageinfo = plants end if else pageinfo = plants end if case else pageinfo = gname(1) & " - " & plants end select ' ' ' %> <%=getsettings("company","Deca-Plant") %> - <%=pageinfo%> <% if request.QueryString("act")="contact" then dim email,naam,bericht on error resume next email=request.form("mail") naam=request.form("naam") bericht=request.form("bericht") ' set mail=server.CreateObject("CDONTS.NewMail") ' mail.to="whitebram@gmail.com" ' mail.from=email ' mail.subject="Bericht van " & naam ' mail.body=bericht ' mail.send Set myMail=CreateObject("CDO.Message") myMail.Subject="Webbericht van " & naam myMail.From="info@decaplant.be" myMail.To="info@decaplant.be;whitebram@gmail.com" myMail.TextBody="Email: " & email & vbnewline & bericht myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver")="localhost" myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=225 myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 myMail.Configuration.Fields.Update if not (bericht = "" ) then myMail.Send end if set myMail=nothing if err.number<>0 then response.Redirect indexpage & "?page=contact&msg=Error" else response.redirect indexpage & "?page=contact&msg=" & getctrans(356) end if end if %> <% 'encrypt("deca92","deca92") %>
Route

Vlasbloemstraat 92 (9100 Nieuwkerken-Waas)
Tel: 0474 60 74 82 - Fax: 03 766 56 60
B.T.W. BE0862.213.006
info@decaplant.be

Decaplant BVBA

<% if session("Loggedin")="showprice" then %> <% else %>
&page=<%=request.querystring("page") %>"> <% if usmsg <> "" then response.write "" end if %>
<%response.Write getctrans(26):'Gebruiker %>:  
<%response.Write getctrans(30):'Paswoord %>:  
" & usmsg & "
<% 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("") %>
Download PDF
<% 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 %> <% elseif getthemesetting(getsettings("theme","1"),"fotoloc","0") = "1" then %> <% end if %>
"><%=rsho("naam") %>
<%=getfotos("h",rsho("id"),5) %>
<%=gethtekst(rsho("id")) %>
 
  
"><%=rsho("naam") %>
<%=getonefotoex("h",rsho("id"),"150") %>
<%=gethtekst(rsho("id")) %>

<% 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 "" end if %>
" & getctrans(624) &"
<%=getprijzen(rsho("id")) %>

<% rsho.movenext loop end if %>
<% case else response.Write fix(gtext(1)) %> <% end select %>
MPS A-LABEL Vakbeurs FLORALL TriniDATA BVBA
<% ocon.close %>