\n");
}
main ()
{
configread("config.ini");
if (p_formdb == "") {
print("
No database table was specified.
");
exit(1);
}
p_formdb = toupper(p_formdb);
// by EGE -- only ST_PRODUCTS information can be processed for Sellers
if ((p_formdb != "ST_PRODUCTS") || (s_sys_userid == "")) {
print("
Illegal Operation!!! You must LOGON before using this function!!!
");
print("
");
exit(1);
}
// calculate today for date searches
l_today = time("%Y%m%d") & "%";
// output the current search as a csv file
// setheader("text/csv", p_formdb & ".html");
// setheader("text/csv", "SalvageAutoAuctions.csv");
setheader("html/text", s_sys_userid & "_auctions");
// search( DB_DIR,
// "*",
// p_formdb & "_DEF",
// "NAME = 'NAME' or NAME = 'BODY' or NAME = 'DAMAGE'") {
// varset("l_fieldname" & SQLCOUNT, p_formdb & "." & dbget(p_formdb & "_DEF.NAME"));
// varset("l_fieldtype" & SQLCOUNT, toupper(dbget(p_formdb & "_DEF.TYPE")));
//
// // build the header row
// l_fielddesc = dbget(p_formdb & "_DEF.DESC");
// l_header_row = l_header_row & l_comma & "\"" & l_fielddesc & "\"";
// l_comma = ",";
// }
// l_fieldcount = SQLCOUNT;
// Add a LINK/ADDRESS field
l_header_row = l_header_row & l_comma & "\"" & "Link To Auction" & "\"";
// print(l_header_row & "\n");
//print(l_fieldcount);
// display a summary of all entries
catid="";
search( DB_DIR,
"*",
p_formdb,
"SELLERID=:s_sys_userid", // only one seller information
"",
"GID,MAKE,MODEL,YEAR DESC") // sort it by auction number
{
// get Category name
if (ST_PRODUCTS.GID != catid){
search( DB_DIR,"*","ST_CATEGORY","ID=:ST_PRODUCTS.GID","",""){
category = "(" & ST_CATEGORY.CATNAME & ")";
}
catid="ST_PRODUCTS.GID";
}
if (length(ST_PRODUCTS.NAME) < 40 )
name = ST_PRODUCTS.NAME;
else
name = substring(ST_PRODUCTS.NAME,1,38) & "..";
// print("" & name & "");
// print(" " & ST_PRODUCTS.BODY & " " & category & " ");
//print Link/Address
print("" & name & "");
print(" " & ST_PRODUCTS.BODY & " " & category & " ");
//Jump line
print("\n");
}
if (SQLCODE != 0) printtag("SQL_ERROR", ERR_FILE);
print("