<%
response.expires = -1
TOPIC = "PROMOTION"
subTOPIC = ""
%>
<%=HTML_Title%>
<%
call subTitle("Your Templates")
set c = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
c.open DSN
SQL = "SELECT Affiliate_isAgreeTemplates FROM TBL_Affiliates WHERE Affiliate_ID = " & session("Aff_ID")
rs.open SQL,c,0,1
if not rs.EOF then isAgreeTemplates = rs(0)
if rs.state then rs.close
if (len(trim(isAgreeTemplates & " ")) = 0) or (not isAgreeTemplates) then
if (request("submitted") = "true") then
if (request("accept_disclaimer") = "on") then
SQL = "UPDATE TBL_Affiliates SET Affiliate_isAgreeTemplates = 1 WHERE Affiliate_ID = " & session("Aff_ID")
c.Execute SQL
if rs.state then rs.close
set rs = nothing
set c = nothing
response.redirect("/templates/")
else
response.write "- You must accept the disclaimer before continuing.
This is our new section for instant web templates, here you can create and download a whole website in less than 5 minutes.
We are running a pilot for two templates at the moment, both will let you have a standalone site of your own, no programming skills needed
as well as a special ASP or PHP hosting, the websites are pure HTML although very dynamic.
Some elements you will be able to control through your control panel and some elements are managed by us, for example, on an occassion of a price reduction, the prices on your template will
be reduced automatically, also banner managment will be handled by our caring team so bottom line you have a managed site with rich content.
All that's left for you - is to promote - and earn, good luck!
<%
SQL = "SELECT TBL_Aff2Temp.Aff2Temp_ID, TBL_Aff2Temp.Aff2Temp_Websitename, TBL_Aff2Temp.Aff2Temp_Websiteurl, " &_
" Aff2Temp_CreateDate, Aff2Temp_UpdateDate, AffTemplate_Name, AffTemplate_UpdateDate, AffTemplate_Thumbnail " &_
"FROM TBL_Aff2Temp INNER JOIN " &_
"TBL_AffTemplates ON TBL_Aff2Temp.AffTemplate_ID = TBL_AffTemplates.AffTemplate_ID " &_
"WHERE (TBL_Aff2Temp.Affiliate_ID = " & session("Aff_ID") & ") ORDER BY Aff2Temp_UpdateDate DESC, Aff2Temp_CreateDate DESC"
rs.open SQL,c,3,1
NumOfRecInPage = Request("numofrec")
if NumOfRecInPage = "" Then NumOfRecInPage = NumOfRecInPageDefault
Page = Request("Page")
if not rs.eof then
if Page = "" Then Page = 1
rs.CacheSize = rs.PageSize
rs.PageSize = NumOfRecInPage
NumOfRec = rs.RecordCount
NumOfPages = rs.PageCount
rs.AbsolutePage = Page
if (rs("Aff2Temp_CreateDate") <> "") then CreateDate = formatDatetime(rs("Aff2Temp_CreateDate"), 2)
Counter = 0
while not rs.eof and (Counter < NumOfRecInPage)
Counter=Counter+1
UserUpdateDate = rs("Aff2Temp_UpdateDate")
if (len(trim(UserUpdateDate&" "))=0) then UserUpdateDate = rs("Aff2Temp_CreateDate")
TempUpdateDate = rs("AffTemplate_UpdateDate")
Rem Compare dates
if (datediff("d", TempUpdateDate, UserUpdateDate) < 0) then bOutdated = true else bOutdated = false
%>
 " height="30"> |
Website name: " target="_blank"><%=rs("Aff2Temp_Websitename")%>
Created at: <%=CreateDate%> Template: <%=rs("AffTemplate_Name")%>
<%if (bOutdated) then%>
The <%=rs("AffTemplate_Name")%> template has been updated! Please re-download your template.
<%end if%>
|
">Download |
">Edit |
<%
rs.movenext
wend
else
%>
| You still don't have a template, click here to create a new one |
<%
end if
%>
| <%call showPages(1,NumOfPages ,page,"downline.asp")%> |
Create new template |
|
<%
end if
if rs.state then rs.close
set rs = nothing
set c = nothing
%>