<% Response.ContentType = "text/html" Response.AddHeader "Content-Type", "text/html;charset=UTF-8" Response.CodePage = 65001 Response.CharSet = "UTF-8" %> :: www.Ayurveda.com.br :: <% '*** só mostra os botões de edição entrando por categorias *** mrAtg = 1 cod = request("cod") if request("acao") <> "" then menu = request("acao") else menu = request("menu") end if cat = request("cat") livro = request("livro") %>

 

Home | Contato | Quem Sou









<% if request("titulo") <> "" and request("staticpages") = yes then %> >
<% mrPagina = Server.MapPath("/") & "\upload\estaticas\" & request("titulo") & ".htm" response.write rfile(mrPagina) %>
<% else %> <% if menu = "dicas" then %> <% elseif menu = "galeria" then %> <% elseif menu = "cursos" then %> <% if cod <> "" then %> <% else %> <% end if %> <% elseif menu = "doshas" then %> <% if request("result") = "kapha" then %>
<% response.write rfile(mrDirDoshas & "/vata_pitta_kapha_top.txt") Response.write "

" Response.write "Vata: "& Session("vata") & "    " Response.write "Pitta: "& Session("pitta") & "    " Response.write "Kapha: "& Session("kapha") & "

" v = cDbl(Session("vata")) p = cDbl(Session("pitta")) k = cDbl(Session("kapha")) response.write rfile(mrDirDoshas & "/vata_pitta_kapha.txt") %> <% else %> <% end if %> <% else %> <% if cod <> "" then %> <% else %> <% end if %> <% end if %> <% end if %>












 

Copyright © 2008- Todos os direitos reservados

Uma solução Olhar Atento