<%@ LANGUAGE = VBScript%> <% Response.ContentType = "application/vnd.fdf " %> <% Set FS=Server.CreateObject("Scripting.FileSystemObject") Set RS=FS.OpenTextFile(Server.MapPath("vrreturn.txt"), 1, False) fcount=RS.ReadLine RS.Close fcount=fcount+1 Set RS=FS.OpenTextFile(Server.MapPath("vrreturn.txt"), 2, False) RS.Write fcount RS.Close Set RS=Nothing Set FS=Nothing fcount = string((6-(len(fcount))),"0") & fcount %> %FDF-1.2 1 0 obj << /FDF << /Fields [ << /V (<%=fcount%>)/T (affnum) >> ] >> >> endobj trailer << /Root 1 0 R >> %%EOF