<% 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("") Response.Write("") Response.Write("
") %> <% Response.Write("
"&lftNav&"") Response.Write("
"&content&"
"&rtNav&"
") 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("") %>