create xsl file in c directory

keyvanjan · June 20th, 2005, 11:59 PM

Hi,
I use this code to create xsl file from one of my tables in the db.
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath("/" & strfilename & ".xls"), True)

I use this code on my webserver on internet.
It now creates the file in the root directory using server.mappath
No how can I change this code so it referes to the c dirctory of my hard drive

happygv · June 21st, 2005, 06:32 AM

Set act = fso.CreateTextFile("c:\" & strfilename & ".xls", True)

This should create it as expected.

_________________________
- Vijay G
Strive for Perfection

keyvanjan · June 21st, 2005, 04:52 PM

Hi,
when I run the page,the page stops working
what can the problem be
here are the codes
<%

intEventID=request.querystring("ID")
if intEventID="" or intEventID="0" or isNumeric(intEventID)=False then
response.end
end if

set rsEvent=server.createobject("adodb.recordset")
RsEvent.open "SELECT * FROM Events where EventRnd=" & intEventID,Conn,3,3

if rsEvent.eof then
response.write "This event does not exist"
response.end
end if
intID=rsEvent("EventID")
strEventName=rsEvent("event_name")
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile("c:\" & strEventName & ".xls", True)

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 " "
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

%>
<table class=subnav align=center>
    <tr>
    <td> </td>
    <td>Excel file for Guests created successfully</td>
    </tr>
</table>
</td>
            </tr>
        </table>
    </div>
</tr>
</table>
<%

    rs.close
    set rs=nothing
    Conn.close
    set Conn=nothing

%>