To/From Code

	Languages
BROWSEBYLANGUAGE Access VBA ASP Classic C# C++ C++/CLI Delphi Delphi Prism Java JavaScript ObjectPAL Perl PHP VB Classic VB.Net

	Categories
BROWSEBYCATEGORY +Tool Basics +Language Basics +Language Details +Data Structures -Statements ◄╣ Exception Trapping If Statement +Operators +Commands +Database +OOP Basics +OOP Details

	ASP Classic Guides
ASP Classic To/From Conversion Guides ASP Classic and Access VBA ASP Classic and C# ASP Classic and C++ ASP Classic and C++/CLI ASP Classic and Delphi Prism ASP Classic and Java ASP Classic and JavaScript ASP Classic and ObjectPAL ASP Classic and Perl ASP Classic and PHP ASP Classic and VB Classic ASP Classic and VB.Net

Cross Ref Guide

ASP CLASSICLANGUAGE

ASP Classic

ASP CLASSICANDDELPHITOC

Overview

+Tool Basics

Report Tools Overview

+Language Basics

+Language Details

+Data Structures

Array

-Statements◄╣

+Operators

+Commands

+Database

+OOP Basics

+OOP Details

	Members-Only
Sign in to see member-only pages.

► KB ► To/From Guides ► ASP Classic ► Statements

Cross Ref > Statements

By Mike Prestwood

ASP Classic versus Delphi: A side by side comparison between ASP Classic and Delphi.

Statements

Common statements such as if statements, loops, etc.

Exception Trapping

[Other Languages]

Languages Focus

A common usage of exception handling is to obtain and use resources in a "try-it" block, deal with any exceptions in an "exceptions" block, and release the resources in some kind of "final" block which executes whether or not any exceptions are trapped.

ASP Classic: On Error

Syntax Example:

On Error Resume Next
  Response.Write FormatDateTime(f_CurrentActualDate, vbShortDate)

  If ErrNumber <> 0 Then
    Break(f_CurrentActualDate)
  End If
On Error Goto 0

Using On Error Resume Next

Delphi: try..except, try..finally

Use a try..except..end block to trap and process errors.

Delphi also offers a try...finally where code will execute in the finally section no matter what. It's common to put a try..except inside a try..finally.

Syntax Example:

var
  y : Double;
begin
  try
    y := 0;
    y := (1/y);
    ShowMessage(FloatToStr(y));
  except
    ShowMessage('You cannot divide by zero.');
  end;
end;

If Statement

[Other Languages]

ASP Classic: If..ElseIf..Else..End If

The End If is optional if you put your code on a single line.

Syntax Example:

//Single line example.

If X = True Then Response.Write "hello"

//Complete example.

If X = True Then
  '>>>do something.

ElseIf Y = "ABC" Then
  '>>>do something.
Else
  '>>>do something.

End If

ASP Classic If Statement (If..ElseIf..Else..End If)

Delphi: If..Else If..Else

Notice in the more complete example that the semicolon for the begin..end block after end is not included. That tells the compiler something else is coming (the statement is not finished). Also note the semicolon is missing right before the final "else" statement.

Note: The following example uses floating point literals. In Delphi, to specify a fractional floating point literal between 1 and -1, you preceed the decimal with a 0; otherwise, you will get a compiler error (i.e. .1 + .1 does not work).

Syntax Example:

if (0.1 + 0.1 + 0.1) = 0.3 then
  ShowMessage('Correct')
else
  ShowMessage('Not correct');

//Complete example:
if x = true then
begin

  ShowMessage('x is true');

end

Else If y = 'Mike' Then

  ShowMessage('hello mike')

Else

  ShowMessage('last option');

Delphi If Statement (If..Else If..Else)