<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <%Server.ScriptTimeout = 10000000%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End Elseif Request.Cookies("login") = "3" Then Response.Write("") End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If Dim f Dim headers Dim ContentType Dim strlistname Dim rs strlistname = Replace(Request("list"), "", "_") Set rs = Conn.Execute("SELECT * FROM " & tbl_prefix & Request("ID"), adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF Then Headers = "" For Each F In RS.Fields Headers = Headers & ", " & F.Name Next Headers = Mid(Headers,3) & vbCrLf Headers = Headers & RS.GetString(,,", ",vbCrLf,"") rs.close Set rs = nothing ContentType = "Session/csv" Response.ContentType = ContentType Response.AddHeader "Content-Disposition", "inline; filename= " & strlistname & ".csv" Response.Charset = "UTF-8" Response.Write Headers Else Response.Cookies("r") = "No Records in List " & Request("list") & " to Export!" Response.Cookies("fldshow") = Request("ID") Response.Redirect "view_lists.asp" End If %> <% '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>