<% M_UAdd = fun_chkRight("Page","E") if M_UAdd = 0 then %> <% response.end end if%> <% Function checkedVal(oriVal,dataVal) if Trim(oriVal) <> "" and Trim(dataVal) <> "" Then if cstr(oriVal) = cstr(dataVal) Then checkedVal = "checked" else checkedVal = "" end if else checkedVal = "" end if End Function DB_active = "Y" Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select a.varid, b.pageTitle, a.varvalue, a.display, a.varname from webpage_variables a, webpages b where a.pageid = b.pageid and a.varname like 'fee%' order by a.pageid" rs.Open strSQL, con, 3, 3 if not rs.EOF Then varArr = rs.GetRows() 'DB_active = Trim(varArr(3,0)) ttlpg = ubound(varArr, 2) end if rs.Close %> <% if isEmpty(varArr) = False Then for i=0 to ubound(varArr, 2)%> <%next end if %>

Change Fees
<% response.write varArr(1,i) & " Page " if varArr(4,i) = "feebdec" then response.write "- Beginner Driver Education Course" elseif varArr(4,i) = "feeg3" then response.write "- In Car Package for G Road Test & 3 Lessons" elseif varArr(4,i) = "feeg5" then response.write "- In Car Package for G Road Test & 5 Lessons" elseif varArr(4,i) = "feeg10" then response.write "- In Car Package for G Road Test & 10 Lessons" elseif varArr(4,i) = "feeg2_3" then response.write "- In Car Package for G2 Road Test & 3 Lessons" elseif varArr(4,i) = "feeg2_5" then response.write "- In Car Package for G2 Road Test & 5 Lessons" elseif varArr(4,i) = "feeg2_10" then response.write "- In Car Package for G2 Road Test & 10 Lessons" end if %> *