View Single Post
  #1 (permalink)  
Old April 1st, 2005, 05:50 PM
Toran Toran is offline
Authorized User
 
Join Date: Jun 2003
Location: , , .
Posts: 37
Thanks: 0
Thanked 0 Times in 0 Posts
Default writing to an xml file on the client side

ok .. I need help (once more)
I create a report in the following script fed by an Access Database.
My goal is to give the client the option to save this report as an xml file locally so it can update the clients Database (via import)
how do i write from the server to the clients harddrive? Is there a way to write directly to the clients harddrive? or do i create a file for download on the server?

Toran



<%option explicit%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
    <title>Client Report</title>

    <%
    dim objCommand, objRS
        Set objCommand = Server.CreateObject("ADODB.Command")
        objCommand.ActiveConnection = strConn
        objCommand.CommandText = "Select FirstName, Name, City, Sales.SalesID, SalesDate, SalesTime, Client.ClientID "
        objCommand.CommandText = objCommand.CommandText + "FROM Client, Sales, SalesLine "
        objCommand.CommandText = objCommand.CommandText + "WHERE Client.ClientID= Sales.ClientID AND Sales.SalesID= SalesLine.SalesID "
        'executing and resetting to Nothing
        objCommand.CommandType = adCmdText
        Set objRS = objCommand.Execute
        Set objCommand = Nothing
    %>
</head>

<body>
Sales Reports:
<%

response.write "<table border ='1'>"
response.write "<tr><th colspan='4'>Clients</th></tr>"
if not (objRS.eof) then

    objRS.moveFirst
    while not objRS.eof

    response.write "<tr><td>"&objRS("ClientID")&"</td><td>"&objRS("FirstName")&"</td><td>"&objRS("Name")&"</td><td>"&objRS("City")&"</td>"
    response.write "<td>"&objRS("SalesID")&"</td><td>"&objRS("SalesDate")&"</td><td>"&objRS("SalesTime")

    objRS.movenext
    wend

else

response.write "NOTHING HERE"
End if
response.write "</table>"
%>
</body>
</html>


... there is always more to learn...

... there is always more to learn...
__________________
... there is always more to learn...
Reply With Quote