%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Display the General Terms And Conditions for the Shop. ' Product : CandyPress Store Frontend ' Version : 2.5 ' Modified : February 2004 ' Copyright: Copyright (C) 2004 CandyPress.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@candypress.com '************************************************************************* Option explicit Response.Buffer = true %> <% 'Database dim mySQL dim conntemp dim rstemp dim rstemp2 'Session dim idOrder dim idCust '************************************************************************* %>
<%=langGenTOSlink%>
<% 'Open Database Connection call openDb() 'Get Terms and Conditions mySQL = "SELECT configValLong " _ & "FROM storeAdmin " _ & "WHERE configVar = 'termsAndCond' " _ & "AND adminType = 'T'" set rsTemp = openRSexecute(mySQL) if not rstemp.eof then Response.Write trim(rsTemp("configValLong")) end if call closeRS(rsTemp) 'Close the Database call closeDB() %>