<% dim rsSkin,sqlSkin,tSkinID,Skin_CSS,Body_Label tSkinID=request.Cookies("asp163")("SkinID") if tSkinID="" then tSkinID=0 else tSkinID=Clng(tSkinID) end if if tSkinID>0 then SkinID=tSkinID end if sqlSkin="select * from Skin where SkinID=" & SkinID set rsSkin=server.CreateObject("adodb.recordset") rsSkin.open sqlSkin,conn,1,1 if rsSkin.bof and rsSkin.eof then rsSkin.close sqlSkin="select * from Skin where IsDefault=True" rsSkin.open sqlSkin,conn,1,1 call main() else call main() end if rsSkin.close set rsSkin=nothing sub main() Body_Label=rsSkin("Body") Skin_CSS=split(rsSkin("Skin_CSS"),"|||") %> <% end sub %>