<%@ Language="JavaScript" %> <% function GetList(){ var sqlList='SELECT AccountUsers.CompanyName AS CompanyName'; sqlList+=',AccountUsers.CompanyContactPerson AS CompanyContactPerson'; sqlList+=',AccountUsers.CompanyEmail AS CompanyEmail'; sqlList+=',AccountUsers.CompanyTelephone AS CompanyTelephone'; sqlList+=',AccountUsers.CompanyFax AS CompanyFax'; sqlList+=',AccountUsers.CompanyWebSite AS WebAddress'; sqlList+=',CountryCode.Description AS CountryName'; sqlList+=',RspDetail.RspListCode AS ListCode'; sqlList+=',RspDetail.Description AS RspDesc'; sqlList+=',RspTypeCode.Description AS ServiceType'; sqlList+=' FROM AccountUsers'; sqlList+=' INNER JOIN ((RspDetail INNER JOIN RspList'; sqlList+=' ON RspDetail.RspListCode = RspList.RspDetailCode)'; sqlList+=' INNER JOIN RspTypeCode'; sqlList+=' ON RspList.RspTypeCode = RspTypeCode.RspTypeCode)'; sqlList+=' ON AccountUsers.AccountNumber = RspDetail.ListAccount'; sqlList+=' INNER JOIN CountryCode'; sqlList+=' ON RspDetail.CountryCode = CountryCode.CountryCode'; sqlList+=' WHERE (((RspDetail.RspListCode)=\''+RspDetail+'\'))'; OpenRecordSet('rsList',sqlList,'Conn'); } // ================ Begin ================ var LoginCookie=new String(Request.Cookies("CLoginGood")); var LoginVars=new Array(); LoginVars=LoginCookie.split("#"); var LoginGood=LoginVars[0] var AccountNumber=LoginVars[1]; var RspDetail=Request("List"); OpenDatabase('Conn'); var Button=Request("Button"); if (Button=="Back"){ Response.Redirect('rsp.asp'); } if (ParamGood(RspDetail)){ GetList(); } else{ Response.Redirect('rsp.asp'); } // ================ End ================ %> VINmart.com
Home | Suppliers | Accessories | Publications | News | Events | Wineries | Mailing List | Advertise | My Account | Contact Us

 

List & View events free of charge on our sister site...

 


Vinmart.com is a CADEK International domain
P.O. Box 5111, Helderberg, 7135, South Africa
Tel: +27.21.855 4750 Fax: +27.21.855 4745 E-mail: info@cadek.co.za