<%Option Explicit%> <% shopcheckadmin "" '********************************************************* ' Version 4.50 Option Package ' Template Testing ' May 12, 2002 ' Oct 19, 2002 use myconn instead of dbc for order template testing '********************************************************** dim Myconn, dbc dim CurrentURL Dim sRowColor CurrentURL="shoptmptest.asp" Dim sAction Dim dbtable Dim dbrecord Dim Template Dim TextArray(500) Dim TextCount Dim IDField Dim TestType dim productselect dim productwithhtml Productwithhtml="Yes" Productselect="No" TestType="Browser" Saction=request("Action") sError="" If SAction="" then ShopPageHeader DisplayForm ShopPageTrailer Else GetFormData If Serror="" then GenerateTemplate end if if Serror<>"" then ShopPageHeader DisplayForm ShopPageTrailer end if End if Sub DisplayForm sRowColor="#C4CEE5" if sError<> "" then response.write "" & getconfig("Xfont") & SError & "" Serror="" end if %>

<% Response.Write(getconfig("xfont") & "" & LangTemplateTest & "") Response.Write(Tabledef) Response.write Tablerow & TableColumn & LangTemplatetable & tableColumnEnd %> Products Orders Customers Affiliates Gifts Projects <% FormatRow LangMenuFilename, "Template", template FormatRow LangTemplateRecord, "RecordID", dbrecord Response.write Tablerow & TableColumn & LangSelectTemplateType & tableColumnEnd %> >Browser >Mail <%=LangTemplateNote%> <% Response.write TableDefEnd & "

" %>

<% End Sub Sub FormatRow (caption, fieldname, fieldvalue) Response.Write tableRow & tablecolumn & caption & tablecolumnEnd & "" end sub ' Sub GetFormData dbtable=Request("table") dbrecord=Request("Recordid") Template=Request("Template") TestType=request("TestType") If dbtable="" then sError=LangTemplateTable & "
" end if If Template="" then sError=sError & LangProductTemplate & " " & LangCustRequired & "
" end if end Sub Sub GenerateTemplate Dim filename Dim rs Dim i Dim rc GenerateSQL If lcase(dbtable)="orders" then EditOpenDatabase myconn,database,dbtable Set rs=myconn.execute(sql) else EditOpenDatabase dbc,database,dbtable Set rs=dbc.execute(sql) end if If rs.eof then Serror = SError & LangTemplateError & dbtable if dbrecord<>"" then sError = Serror & " " & dbrecord end if exit sub end if lngcatalogid=rs(0) If TestType="Browser" then ShopTemplateWrite template, RS, rc else ShopTemplateArray template, RS, TextArray, TextCount DisplayResults end if rs.close set rs=nothing If lcase(dbtable)="orders" then Shopclosedatabase myconn else Shopclosedatabase dbc end if end sub ' Sub DisplayResults Dim i for i = 0 to textcount-1 'Response.write Server.HTMLEncode(TextArray(i)) & "
" Response.write TextArray(i) & "
" next end sub Sub GenerateSQL SQL="select * from " & lcase(dbtable) If dbrecord<>"" then GetIdField dbtable, idfield Sql = SQL & " WHERE " & idfield & "=" & dbrecord end if 'debugwrite sql end sub %>