Create an ASP page to display a single record

This example creates an ASP page to display a single record in the new table if it doesn't already exist.

1. Create a custom ASP page to view and edit installed base records whose name matches the name specified in the tab group for Company. You can start with a sample Entry Group ASP page and include statements in the main block of the ASP page. For more information, see Creating an ASP page.
2. Retrieve the identifier value for the current Company and store it in a variable.
   

   CompanyId = CRM.GetContextInfo("Company","Comp_CompanyId");
   

3. Create an instance of the installed base screen and assign it to a variable.
   

   InstallBase = CRM.GetBlock("Install Base Details");

4. Create a record for the installed base record and specify which record to display. See if the record already exists. If it doesn't, create a new record.
   

   record = CRM.FindRecord("InstallBase","companyid="+CompanyId);
   if (record.eof)
   { record = CRM.CreateRecord("InstallBase");
   record("CompanyId") = CompanyId;
   InstallBase.Title = "New Install Base Details"; }

5. Display the screen using the record as the argument.

   CRM.AddContent(InstallBase.Execute(record));
   Response.Write(CRM.GetPage());

   This allows the user to add or edit installed base details for each customer by clicking on the Installed Base tab for a Company. The first time the tab is selected, a record is added for the Company. Thereafter, when the tab is selected, the record is shown for editing.

Here's the installbase.asp script.

<!-- #include file ="sagecrm.js" -->
<%

// Get the Id of the current company.
CompanyId = CRM.GetContextInfo("Company","Comp_CompanyId");

// Create the Screen Block.
InstallBase = CRM.GetBlock("Install Base Details");

// Find the record in the table for this company.
record = CRM.FindRecord("InstallBase","Inst_CompanyId="+CompanyId);
if (record.eof)
{

// If the record does not exist then create one and set the company ID.
record = CRM.CreateRecord("InstallBase");
record("Inst_CompanyId") = CompanyId;
InstallBase.Title = "New Install Base Details";
}

else
{
InstallBase.Title = "Edit Install Base Details";
}

if (CRM.Mode <= 1)
{
CRM.Mode = 1;
}

// Display the record.
CRM.AddContent(InstallBase.Execute(record));
Response.Write(CRM.GetPage());

%>