Hi,
I use this code on my webserver on internet.
It is going to create an excel in c directory on local computer
bu when I run the code I get "object required error"
Does anyone have an idea?
on error resume next
intID=request.querystring("ID")
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(("c:\" & strEventName & ".xls"), True)
set rs=server.createobject("adodb.recordset")
Rs.open "select * from GuestList where EventID=" & intID,Conn,3,3
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine "<!--[if gte mso 9]><xml>"
act.WriteLine "<x:ExcelWorkbook>"
act.WriteLine "<x:ExcelWorksheets>"
act.WriteLine "<x:ExcelWorksheet>"
act.WriteLine "<x:Name>"& strfilename &"</x:Name>"
act.WriteLine "<x:WorksheetOptions>"
act.WriteLine "<x:Print>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x:Print>"
act.WriteLine "</x:WorksheetOptions>"
act.WriteLine "</x:ExcelWorksheet>"
act.WriteLine "</x:ExcelWorksheets>"
act.WriteLine "</x:ExcelWorkbook>"
act.WriteLine "</xml>"
act.WriteLine "<![endif]--> "
act.WriteLine "</head>"
act.WriteLine "<body>"
act.WriteLine "<table>"
act.WriteLine "<tr>"
act.WriteLine "<td>"
act.WriteLine "Email"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "Attendance"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "Comments"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "Date_Replied"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "# of Guests"
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine "view Date"
act.WriteLine "</td>"
act.WriteLine "</tr>"
''''''''''''''''''''''''''''''''
do while not rs.eof
act.WriteLine "<tr>"
act.WriteLine "<td>"
act.WriteLine rs("Email")
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine rs("attendance")
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine rs("comment")
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine rs("date_replied")
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine rs("guest_brings")
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine rs("viewDate")
act.WriteLine "</td>"
rs.moveNext
loop
act.WriteLine "</table>"
act.WriteLine "</body>"
act.WriteLine "</html>"
act.close
excel create
