Creating An Excel Spreadsheet From Web Form Data

<SCRIPT LANGUAGE="JScript"> 
function AutomateExcel()
{

	// Start Excel and get Application object.
	var oXL = new ActiveXObject("Excel.Application");
       
	oXL.Visible = true;
      
	// Get a new workbook.
	var oWB = oXL.Workbooks.Add();
	var oSheet = oWB.ActiveSheet;
         
	// Add table headers going cell by cell.
	oSheet.Cells(1, 1).Value = "Scientist";
	oSheet.Cells(1, 2).Value = "<% response.write(name) %>";
	oSheet.Cells(2, 1).Value = "Month Beginning";
	oSheet.Cells(2, 2).Value = "<% response.write(monthago + 1) %>";
	oSheet.Range("A1", "A2").Font.Bold = true;

	oSheet.Cells(4, 1).Value = "Date";
	oSheet.Cells(4, 2).Value = "Start";
	oSheet.Cells(4, 3).Value = "End";
	oSheet.Cells(4, 5).Value = "Time Spent";
	oSheet.Range("A4", "E4").Font.Bold = true;

	<%
	row = 5
	while not rs2.eof
		thisend = datediff("d",end_time, rs2("day_date"))
		thisstart = datediff("d",start_time,rs2("day_date"))
		if thisstart > -1 and thisend < 1 then 
			if rs2("time_start") <> "" and rs2("time_end") <> "" then
				daystart = FormatDateTime(hour(rs2("time_start")) & ":" & minute(rs2("time_start")),4)
				dayend = FormatDateTime(hour(rs2("time_end")) & ":" & minute(rs2("time_end")),4)
				mins = datediff("n",daystart,dayend)
				mins = mins - minute(formatdatetime(rs2("lunch"),vbshorttime)) - hour(formatdatetime(rs2("lunch"),vbshorttime)) * 60
			end if
			hrs = Cint(mins / 60)
			if hrs > mins / 60 then hrs = hrs - 1
			mins = mins mod 60
			if mins < 10 then mins = "0" & mins
			response.write("oSheet.Cells(" & row & ", 1).Value = '" & rs2("day_date") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 2).Value = '" & rs2("time_start") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 3).Value = '" & rs2("time_end") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 4).Value = '" & formatdatetime(rs2("lunch"),vbshorttime) & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 5).Value = '" & formatdatetime(hrs & ":" & mins,vbshorttime) & "'" & vbcrlf)
			row = row + 1
		end if
		rs2.movenext
	wend
	row = row + 1

	if not rs4.eof then
	%>
	oSheet.Cells(<%response.write(row) %>, 1).Value = "Date";
	oSheet.Cells(<%response.write(row) %>, 2).Value = "Task Name";
	oSheet.Cells(<%response.write(row) %>, 3).Value = "Customer";
	oSheet.Cells(<%response.write(row) %>, 4).Value = "Status";
	oSheet.Cells(<%response.write(row) %>, 5).Value = "Product";
	oSheet.Cells(<%response.write(row) %>, 6).Value = "Project";
	oSheet.Cells(<%response.write(row) %>, 7).Value = "Time Spent";
	oSheet.Range("A<%response.write(row) %>", "G<%response.write(row) %>").Font.Bold = true;
	<%
	row = row + 1
	while not rs4.eof
		thisend = datediff("d",end_time, rs4("day_date"))
		thisstart = datediff("d",start_time,rs4("day_date"))
		if thisstart > -1 and thisend < 1 then 
			response.write("oSheet.Cells(" & row & ", 1).Value = '" & rs4("day_date") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 2).Value = '" & rs4("task_type") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 3).Value = '" & rs4("customer") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 4).Value = '" & rs4("status") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 5).Value = '" & rs4("product") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 6).Value = '" & rs4("project") & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 7).Value = '" & rs4("used") & "'" & vbcrlf)
			row = row + 1
		end if
		rs4.movenext
	wend
	rs4.movefirst
	end if
	row = row + 1
	%>
	oSheet.Cells(<%response.write(row) %>, 1).Value = "Product";
	oSheet.Cells(<%response.write(row) %>, 2).Value = "Time Spent";
	oSheet.Range("A<%response.write(row) %>", "B<%response.write(row) %>").Font.Bold = true;
	<%
	row = row + 1
	for x = 0 to ubound(analysAry) - 1
		if not analysAry(x, 0) = "" then
			hr = Cint(analysAry(x, 1) / 60)
			if hr > analysAry(x, 1) / 60 then hr = hr - 1
			min = analysAry(x, 1) mod 60
			response.write("oSheet.Cells(" & row & ", 1).Value = '" & analysAry(x, 0) & "'" & vbcrlf)
			response.write("oSheet.Cells(" & row & ", 2).Value = '" & hr & ":" & min & "'" & vbcrlf)
			row = row + 1
		end if
	next
	response.write("oRng = oSheet.Range(""A1"", ""H" & row & """);")
	%>
	oRng.EntireColumn.AutoFit();
         
}
</SCRIPT>