<% Response.Buffer = True If Request.Cookies("Webmaster") <> "Validated" Then Response.Redirect("/ctrfiles/stats/login.asp") End if If Request("MODE") = "GO" Then Dim MyFileObj,Connection,TXTProperty,TXTAgents,TXTLocations Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/houseview.mdb") & ";" Set TXTProperty = Connection.Execute("SELECT * FROM Listings ORDER BY Listings.MLS ASC") Set TXTAgents = Connection.Execute("SELECT * FROM Agents ORDER BY Agents.AgentLast ASC") Set TXTLocations = Connection.Execute("SELECT * FROM Locations ORDER BY Locations.Location ASC") Dim F, Head For Each F In TXTProperty.Fields Head = Head & "| " & F.Name Next Head = Mid(Head,3) & vbCrLf Set MyTextFile = MyFileObj.CreateTextFile(Server.MapPath("/database/Listings.csv")) MyTextFile.Write Head MyTextFile.Write TXTProperty.GetString(,,"| ",vbCrLf,"") MyTextFile.Close Dim S, Head2 For Each S In TXTAgents.Fields Head2 = Head2 & "| " & S.Name Next Head2 = Mid(Head2,3) & vbCrLf Set MyTextFile2 = MyFileObj.CreateTextFile(Server.MapPath("/database/Agents.csv")) MyTextFile2.Write Head2 MyTextFile2.Write TXTAgents.GetString(,,"| ",vbCrLf,"") MyTextFile2.Close Dim T, Head3 For Each T In TXTLocations.Fields Head3 = Head3 & "| " & T.Name Next Head3 = Mid(Head3,3) & vbCrLf Set MyTextFile3 = MyFileObj.CreateTextFile(Server.MapPath("/database/Locations.csv")) MyTextFile3.Write Head3 MyTextFile3.Write TXTLocations.GetString(,,"| ",vbCrLf,"") MyTextFile3.Close Set TXTProperty = Nothing Set TXTLocations = Nothing Set TXTAgents = Nothing Connection.Close Set Connection = Nothing Set MyFileObj = Nothing End if %>

	Administration Data Export::.
<% If Request("MODE") = "GO" Then %> Export Complete! The following Files are pipe (|) Delimited Click to Download the Files Listings.csv Agents.csv Locations.csv <% Else %> Export Data Utility to export Database to standard pipe(|) Delimited Files. Export Current Data to .csv Files? <% End if %>