<%option explicit%>
<%
'**********************************************************
' Version 4.00 October 11, 2001 VP-ASP
' prompts for type of export
'**********************************************************
ShopCheckAdmin "shopa_editdisplay.asp"
dim sAction
dim currentURL
dim returnURL
Dim Fieldnames(10)
Dim Fieldvalues(10)
Dim optionCount
Dim OptionNames(5)
Dim Optionfieldname
Dim fieldname
Dim Fieldvalue
Dim Fieldcount
Dim cSelect
dim captions(10)
cSelect=LangCommonSelect
sAction=request("Action")
if sAction="" then
sAction=request("Action.x")
end if
currentURL=CurrentFile
returnURL=GetSess("CurrentURL")
if saction="" then
AdminPageHeader
GetFieldnames
GetFieldValues
DisplayForm
AdminPageTrailer
else
ProcessForm
response.redirect returnURL & "?SpecialFunction=" & langSpecialExport
end if
Sub DisplayForm
dim i
response.write "")
response.write ""
end sub
Sub FormatRow (fieldname,fieldvalue, caption)
Response.Write(tablerow & tablecolumn & caption & tablecolumnEnd & "
")
end sub
Sub ProcessForm
dim strname
dim strvalue
Dim Key
For Each key in Request.Form
strname = key
strvalue = Request.Form(key)
SetSess strname, strvalue
' debugwrite key & "=" & strvalue
Next
end sub
'
Sub GetFieldnames
Fieldnames(0)="ExportFilename"
Fieldnames(1)="Exportlocation"
Fieldnames(2)="Exportdelimiter"
fieldcount=2
OptionNames(0)="No"
OptionNames(1)="Yes"
OptionFieldName="ExportIdField"
OptionCount=2
captions(0)=LangMenuFileName
captions(1)=LangDirectory
captions(2)=LangDelimiter
end sub
'
Sub GetFieldvalues
Dim strvalue
Dim i
if GetSess("ExportIdField")="" then
SetDefaultValues
else
for i = 0 to fieldcount
fieldvalues(i)=Getsess(fieldnames(i))
next
end if
end sub
Sub SetDefaultValues
SetSess "ExportFileName",GetSess("table") & ".txt"
Fieldvalues(0)=GetSess("ExportfileName")
Setsess "exportlocation",""
Fieldvalues(1)=getsess("exportlocation")
SetSess "Exportdelimiter",","
FieldValues(2)=GetSess("ExportDelimiter")
end sub
'
Function CurrentFile
CurrentFile="shopa_exportsetup.asp"
end function
%>'