<%

dim dt,dvnm
dim fso,tw
dim sdt
dim rdt
dim pdt
dim arg
dim wsh
dim ses

ses=Session.SessionID



dvnm = request.form("test")
dt = request.form("datebox")

if dvnm <> "" and dt <> "" then

	sdt = split(dt,"/",-1,1)
	rdt = sdt(2)+"/"+sdt(0)+"/"+sdt(1)
	pdt = sdt(1)+"."+sdt(0)+"."+sdt(2)

	response.write(dvnm)
	response.write(dt)

	arg = "C:\\AsgReportScripts\\dailyscripts\\dailyreport1.pl "& dvnm+" "+rdt+" "+ses

	response.write(arg)

	set wsh = CreateObject("wscript.shell")

	wsh.run "cmd.exe /c c:\\perl\\bin\\perl " & arg,1,1

	set wsh = nothing

	response.redirect("filesdisplay.asp?path=C:\reports\"&pdt+"_"+ses)

end if

%>