ASP Best Practices

Script with Nested Logic

<% 
  'This example demonstrates a script with 
  'a nested block of logic. 

  Dim vntOutput 
  Set vntExample = Server.CreateObject("MyComponents.Component.1") 
  vntOutput = varExample.Text 

  If vntOutput = "" Then
    Response.Write "An error has occurred" 
  Else 
    Response.Write vntOutput
  End If
%>