<%Option Explicit%>
<%Response.Buffer = True%>
<%Dim id, fso, f_sanwin, f_sancad %>
<%ID = Session.SessionID %>
<%Response.expires = 0%>
<%session.lcid=2057%>
<%set fso=Server.CreateObject("Scripting.FileSystemObject")%>
<%set f_sancad=fso.GetFile(Server.MapPath("/dados/sancad_fox.txt"))%>
<%set f_sanwin=fso.GetFile(Server.MapPath("/dados/sancad_win.txt"))%>
<% 'pega os parâmetros
dim i,ref, titulo,pag
for i=1 to Request.QueryString("n").Count
if i = 1 then
ref = Request.QueryString("n")(i)
end if
if i = 2 then
titulo = Request.QueryString("n")(i)
end if
if i = 3 then
pag = Request.QueryString("n")(i)
end if
next
%>
SANEGRAPH - SANCAD
