<%
sDBExtraPath = "../"
Dim dicTables
Set dicTables = Server.CreateObject("Scripting.Dictionary")
%>
<%
IF Request("CONTENT_LENGTH") > 0 THEN
Response.Clear
Dim strTable
strTable = Request.Form("table")
Response.ContentType = "octect/binary-stream"
Response.AddHeader "Content-Disposition", "attachment;filename=" & lcase(strTable) & ".csv;"
' lets print the fields on top
Dim strSQL
Dim strValue
strSQL = "SELECT * FROM " & strTable
Set rs= conDB.execute(strSQL)
for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write chr(34) & lcase(RS.Fields(i).Name) & chr(34)
else
Response.Write chr(34) & lcase(RS.Fields(i).Name)& chr(34) & ","
end if
next
Response.write vbNewLine
while not RS.EOF
for u=0 to RS.Fields.Count - 1
strValue = IIF(IsNull(RS.Fields(u).Value), "", RS.Fields(u).Value)
if u = (RS.Fields.Count - 1) then
Response.Write chr(34) & Replace(strValue, """", """""") & chr(34)
else
Response.Write chr(34) & Replace(strValue, """", """""") & chr(34) & ","
end if
next
response.write vbNewLine
rs.MoveNext
wend
Set rs = nothing
Response.write vbNewLine
Response.write vbNewLine
Response.End
END IF
Function IIf( condition, valTrue, valFalse )
If ( condition ) Then
IIf = valTrue
Else
IIf = valFalse
End If
End Function
%>
<%=langMgr.GetContent("USERADMIN_TEXT", "BackEndMessages", iInterfaceLang)%>
<%=langMgr.GetContent("EXPORT_LABEL", "BackEndMessages", iInterfaceLang)%>