installation problem

Hi

I have copied the metatraffic2 folder into my root folder but when I enter http://www.mydomain.com/metatraffic2/setup.asp all I get is a page that starts

<% OPTION EXPLICIT
'###########################################################
'## COPYRIGHT (C) 2002-2005, Metasun Software Corp.
'##
'## For licensing details, lease read the license.txt file
'## included with MetaTraffic or located at:
'## http://www.metasun.com/products/metatraffic/license.asp
'##
'## All copyright notices regarding MetaTraffic
'## must remain intact in the scripts and in the
'## outputted HTML. All text and logos with
'## references to Metasun or MetaTraffic must
'## remain visible when the pages are viewed on
'## the internet or intranet.
'##
'## For support, please visit http://www.metasun.com
'## and use the support forum.
'###########################################################
%>

<%
Server.ScriptTimeout = 36000
Response.Buffer = True

Dim blnForm, strError, objConn, objConn2, strSql, strClass

Dim strAction : strAction = Request.Form("action")
Dim intInstall : intInstall = CInt(Request.Form("install"))
Dim strUsername : strUsername = Request.Form("username")
Dim strPassword : strPassword = Request.Form("password")
Dim strPassword2 : strPassword2 = Request.Form("password2")
Dim strDBType : strDBType = Request.Form("dbtype")
Dim strDBLocation : strDBLocation = Request.Form("dblocation")
Dim strDBName : strDBName = Request.Form("dbname")
Dim strDBUsername : strDBUsername = Request.Form("dbusername")
Dim strDBPassword : strDBPassword = Request.Form("dbpassword")
Dim strTablePrefix : strTablePrefix = Request.Form("dbprefix")
Dim intDBCreate : intDBCreate = CInt(Request.Form("dbcreate"))
Dim intDBDefinitions : intDBDefinitions = CInt(Request.Form("dbdefinitions"))
Dim intDBCountries : intDBCountries = CInt(Request.Form("dbcountries"))
Dim intDBConfig : intDBConfig = CInt(Request.Form("dbconfig"))
Dim intUpgradeType : intUpgradeType = CInt(Request.Form("upgradetype"))
Dim strDB2Type : strDB2Type = Request.Form("db2type")
Dim strDB2Location : strDB2Location = Request.Form("db2location")
Dim strDB2Name : strDB2Name = Request.Form("db2name")
Dim strDB2Username : strDB2Username = Request.Form("db2username")
Dim strDB2Password : strDB2Password = Request.Form("db2password")
Dim strTable2Prefix : strTable2Prefix = Request.Form("db2prefix")

If strAction = "" Then

Anyone know what i am doing wrong please?