<%@LANGUAGE="VBSCRIPT"%> <% 'Script ASP no caching Response.expires = -1 Response.CacheControl = "Private" Response.AddHeader "pragma","no-cache" %> <% Dim RS_Account__MMColParam RS_Account__MMColParam = "1" if (Session("cln_id") <> "") then RS_Account__MMColParam = Session("cln_id") %> <% set RS_Account = Server.CreateObject("ADODB.Recordset") RS_Account.ActiveConnection = MM_DSN_Ebuilder_STRING RS_Account.Source = "SELECT * FROM TBL_Clients WHERE cln_id = " + Replace(RS_Account__MMColParam, "'", "''") + "" RS_Account.CursorType = 3 RS_Account.CursorLocation = 2 RS_Account.LockType = 3 RS_Account.Open() RS_Account_numRows = 0 %> <% Dim RS_design__MMColParam RS_design__MMColParam = "2" if (Request.QueryString("dsg_id") <> "") then RS_design__MMColParam = Request.QueryString("dsg_id") %> <% set RS_design = Server.CreateObject("ADODB.Recordset") RS_design.ActiveConnection = MM_DSN_Ebuilder_STRING RS_design.Source = "SELECT * FROM TBL_Design WHERE dsg_id = " + Replace(RS_design__MMColParam, "'", "''") + "" RS_design.CursorType = 3 RS_design.CursorLocation = 2 RS_design.LockType = 3 RS_design.Open() RS_design_numRows = 0 %>

<% RS_Account.Close() %> <% RS_design.Close() %>