<%@ language = VBScript %> Chocolate Artesano Comes <% Dim pathfile(3), fso, w , v, u, tempos, nstart, lencad nstart=1 textfinal ="" PathInfo = server.mappath(Request.ServerVariables("PATH_INFO")) TempPos = InStrRev(PathInfo,"\") Session("PathInfo") = Left(PathInfo,TempPos) pathfile(1) = Session("PathInfo") + "\_pdt_cnf\body_2.txt" pathfile(2) = Session("PathInfo") + "\_pdt_cnf\head_2.txt" pathfile(3) = Session("PathInfo") + "\_pdt_cnf\imagepath.txt" Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set fso = CreateObject("Scripting.FileSystemObject") Set w = fso.Opentextfile(pathfile(1), ForReading) Set v = fso.Opentextfile(pathfile(2), ForReading) Set u = fso.Opentextfile(pathfile(3), ForReading) Readpath = u.ReadLine u.Close Readdates = v.ReadLine v.Close Readtextfile = w.ReadAll textfinal = Replace(Readtextfile, vbCrLf, "
") w.Close %>



Calificado Chocolatero Artesano
 
<% = Readdates %>
<% = textfinal %> 		 
 
email
 
 
 
© Vortex Visual Studio