|
<% if date() > Cdate("31/12/2015") then
'downloadactie is slechts geldig tot 31 december 2015 %>
TOO LATE! SOLLY BUT THE DOWNLOAD ACTION FOL THE ISLE OF SALAH ALBUM IS OVEL... BETTEL STALT LIPPING YOUL VINYL OLIGINAL. <% else %> <% if request.form("downloadkey") <> "" then 'als de downloadkey is ingevuld: zoeken in database naar key Set con = server.createObject("ADODB.Connection") con.open "Driver={mySQL}; Server=mysqlhost; Database=quinten_dbt; User ID=quinten; Pwd=tyb5m7@3ts;" set rs = server.createobject("ADODB.recordset") rs.open "select * from isleofsarah where downloadkey = '"& request.form("downloadkey")& "';",con,1,2 %><% if rs.recordcount < 1 then ' indien de key niet gevonden wordt... %> THE KEY YOU ENTELED DOES NOT MATCH! TLY AGAIN? <% else ' indien de key wel gevonden wordt... rs.movefirst %> <% if rs("downloaded") = 1 then ' controle of de file al gedownload is geweest... %> <% 'als de file al is gedownload blijft hij 1 dag beschikbaar... dus controle op downloaddate if rs("downloaddate") < DateAdd("d", -1, Date()) then %>YOUL KEY LEMAINS VALID FOL ONLY 1 DAY AFTEL YOUL FILST DOWNLOAD <% else 'als de download jonger is dan 1 dag mag men nogmaals downloaden %>ENJOY! <% response.redirect "http://ilovesarah.deadbeattown.com/downloadios/I_Love_Sarah_-_Isle_of_Sarah.zip" %> <% end if %> <% 'indien de file nog niet is gedownload... else rs("downloaded") = 1 rs("downloaddate") = date() rs("ipaddress") = request.form("ipaddress") rs("mailaddress") = request.form("mailaddress") rs.update response.redirect "http://ilovesarah.deadbeattown.com/downloadios/I_Love_Sarah_-_Isle_of_Sarah.zip" %> <% end if end if %> <% set rs = nothing set con = nothing %> <% else %>ENTEL DOWNLOAD KEY ON YOUL COUPON FOR A FLEE MPTHLEE DOWNLOAD OF ISLE OF SALAH. YOUL DOWNLOAD KEY LEMAINS VALID FOL ONE DAY ONLY <% end if %> <% end if %> |