%
xID=Request.QueryString("ID")
Set rsPages = Server.CreateObject("ADODB.Recordset")
rsPages.Open "Pages", objConn, adOpenForwardOnly, adLockOptimistic,adCmdTable
rsPages.Filter = "ID="&xID*1
if rsPages.EOF then
Response.Redirect "default.asp"
else
if rsPages("Brand")<>"mywebmarketpro" then
Response.Redirect "default.asp"
else
ttl=rsPages("Title")
content=rsPages("Content")
metad=rsPages("metaDesc")
metak=rsPages("metaKey")
end if
end if
rsPages.Close
rsPages.Open "Pages", objConn, adOpenForwardOnly, adLockOptimistic,adCmdTable
rsPages.Filter = "ID=4137"
lftNav=rsPages("Content")
rsPages.Close
rsPages.Open "Pages", objConn, adOpenForwardOnly, adLockOptimistic,adCmdTable
rsPages.Filter = "ID=4138"
rtNav=rsPages("Content")
rsPages.Close
rsPages.Open "Pages", objConn, adOpenForwardOnly, adLockOptimistic,adCmdTable
rsPages.Filter = "ID=4139"
hdr=rsPages("Content")
rsPages.Close
Dim hBG,hdr,bgc,tcr,bgCnt,bgNav,tck
Set rsStyle = Server.CreateObject("ADODB.Recordset")
rsStyle.Open "WebStyle", objConn, adOpenForwardOnly, adLockOptimistic,adCmdTable
rsStyle.Filter = "Brand='mywebmarketpro'"
hBG=rsStyle("HeaderBG")
'hdr=rsStyle("Header")
bgc=rsStyle("BGcolor")
tcr=rsStyle("TextColor")
bgCnt=rsStyle("ContentBG")
bgNav=rsStyle("NavBG")
tck=rsStyle("TickColor")
tFONTface=rsStyle("tFONTface")
tFONTsize=rsStyle("tFONTsize")
txtFONTface=rsStyle("txtFONTface")
txtFONTsize=rsStyle("txtFONTsize")
'Navigation items
mBG=rsStyle("mBG")
mBGroll=rsStyle("mBGroll")
mOL=rsStyle("mOL")
mOLroll=rsStyle("mOLroll")
mTXT=rsStyle("mTXT")
mTXTroll=rsStyle("mTXTroll")
mFONTsize=rsStyle("mFONTsize")
mFONTsizeR=rsStyle("mFONTsizeR")
mFONTface=rsStyle("mFONTface")
mFONTfaceR=rsStyle("mFONTfaceR")
rsStyle.Close
hdr=Replace(hdr,"~",ttl)
%>
<%=ttl%>
<%
Response.Write("")
Response.Write(""& hdr &"")
Response.Write("")
%>
<%
Response.Write(" |
|
")
Response.Write(""&lftNav&" | ")
Response.Write("")
Response.Write(" | ")
Response.Write(""&rtNav&" | ")
Response.Write("
")
Response.Write("")
Response.Write("")
Response.Write("
canada goose italia
air jordan italia
scarpe air jordan
borse michael kors
air max bianche
outlet woolrich
christian louboutin outlet
woolrich italia
ugg outlet
louis vuitton occhiali
canada goose outlet
occhiali louis vuitton
woolrich outlet
scarpe louis vuitton
michael kors borse
")
Response.Write("")
%>