<%
' **************************************************
' © VWA Software Development 2011
' Release: 1.01.0006
' Changed: Jul 15, 2011
' Author : Berco Wassink
' **************************************************
%>
<%
dim objBCap
dim rst
dim sSQL, sHTML, sLink
dim sTableName, sTableKey, sTableWhere
dim iRec, iRecs
dim bJavaScript, bChoicePage
' Database openen
if not VWA_SQLConnect(cKey, true) then response.end
' Met speciale component proberen te achterhalen of javascript wordt ondersteund
bJavaScript = true
on error resume next
set objBCap = server.createobject("MSWC.BrowserType")
if (err.number = 0) then bJavaScript = objBCap.javascript
set objBCap = nothing
on error goto 0
' Basis link voor vervolg pagina's
sLink = request.querystring()
if (lcase(GetRequestValue("CMD", "")) = "ignorebrowser") then sLink = GetQueryString(sLink, "CMD")
sLink = GetQueryString(sLink, "SiteID")
sLink = GetQueryString(sLink, "VisitID")
sLink = GetQueryString(sLink, "SizeID")
sLink = GetQueryString(sLink, "ScreenWidth")
' Juiste bron instellen
if (iSiteID < 0) then
sTableName = "tbltemplate"
sTableKey = "@.TemplateID"
else
sTableName = "tblsite"
sTableKey = "@.SiteID"
end if
sTableWhere = sTableKey & "=" & abs(iSiteID)
' Controleren of choicepage getoond mag worden (geen menu, knop of escape meegegeven in querystring)
bChoicePage = (len(request.querystring("ButtonID")) = 0)
if bChoicePage then bChoicePage = (len(request.querystring("MenuID")) = 0)
if bChoicePage then bChoicePage = (lcase(GetRequestValue("cmd", "")) <> "nochoice")
%>
<%=session("SiteName" & iSiteID)%>
<%
for iRec = 1 to 2
for iRecs = 0 to iif(iRec = 1, 5, 1)%>
<%
next ' iRecs
next ' iRec%>
<%
' Database sluiten
call VWA_SQLDisconnect(cKey)
%>