%@LANGUAGE="VBSCRIPT"%> <% Dim rec_viewdetail Dim rec_viewdetail_numRows cid=request.QueryString("cid") Set rec_viewdetail = Server.CreateObject("ADODB.Recordset") rec_viewdetail.ActiveConnection = MM_conn_login_STRING rec_viewdetail.Source = "SELECT FullName, CompanyName, AddressLine1, AddressLine2, AddressLine3, Postcode, Telephone, Fax, Email, TypeofOutlet, NoofStores FROM registration_details where customerid="&cid rec_viewdetail.CursorType = 0 rec_viewdetail.CursorLocation = 2 rec_viewdetail.LockType = 1 rec_viewdetail.Open() rec_viewdetail_numRows = 0 %>
Admin Control Panel |
---|