I have not set the itemDel
on fSave
global gConID
if fld "total" is empty then
answer error "THERE IS NO TOTAL" as sheet exit to top
end if
put
"name1,phone,child,adult,total,credit,paymenttype,address,address1,addre
ss2,email,seatNo,ticket,showID" into tFieldNames
repeat for each item tField in tFieldNames
put "'" & cleanSQL (field tField) & "'" & "," after tRowData
end repeat
put "INSERT INTO showDb
(userID,name,phone,child,adult,total,credit,paymenttype,address,address1
,address2,email,seatNo,ticket,showID)" & \
" VALUES(null," & tRowData & ")" into tSQL
put revdb_execute(gConID,tSQL) into tTmp
put empty into fld "name1"
put empty into fld "phone"
put empty into fld "child"
put empty into fld "adult"
put empty into fld "total"
put empty into fld "credit"
put empty into fld "address"
put empty into fld "address1"
put empty into fld "address2"
put empty into fld "email"
put empty into fld "childprice"
put empty into fld "adultprice"
----->refresh
get fld "showid"
put it into tshowid
put "SELECT
userid,name,phone,child,adult,total,credit,paymenttype,seatNo,ticket,sho
wid FROM showDb WHERE showid = '" & tshowid & "'" into tSQL
--> EXECUTE SQL
put revdb_querylist(,,gConID,tSQL) into tList
put tList into fld "list"
end fsave
function cleanSQL pSQL
--> THIS ESCAPES THE QUOTE PROBLEM IN SQL
replace "'" with "''" in pSQL
replace quote with quote & quote in pSQL
--> THIS ESCAPES THE tab AND cr DELIMITERS
--> IF YOU PLAN ON HAVING USERS ENTER cr AND tab THEN YOU ALSO
NEED TO
--> replace "*CR*" with cr IN THE RETURNED DATA!
replace cr with "*CR*" in pSQL
replace tab with "*TAB*" in pSQL
return pSQL
end cleanSQL
Liam Lambert
[EMAIL PROTECTED]
IRELAND
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
