<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Const PRODUCTS = 11
Const DOWNLOADS = 6
Const RAS = "ras"
Const RAS_DL = 1
Const FTP = "ftp"
Const FTP_DL = 2
Const IRDA = "irda"
Const IRDA_DL = 3
Const GZIP = "gzip"
Const GZIP_DL = 4
Const ENCRYPT = "encrypt"
Const ENCRYPT_DL = 5
Const BUTTONS = "buttons"
Const BUTTONS_DL = 6
Const IMEI = "imei"
Const BATTERY = "battery"
Const MAIL = "mail"
Const SIM = "sim"
Const JPG = "jpg"
Dim keys(11)
keys(1) = "RAS"
keys(2) = "FTP"
keys(3) = "IRDA"
keys(4) = "GZIP"
keys(5) = "ENCRYPT"
keys(6) = "BUTTONS"
keys(7) = "IMEI"
keys(8) = "BATTERY"
keys(9) = "MAIL"
keys(10) = "SIM"
keys(11) = "JPG"
Dim info_pages(11)
info_pages(1) = RAS
info_pages(2) = FTP
info_pages(3) = IRDA
info_pages(4) = GZIP
info_pages(5) = ENCRYPT
info_pages(6) = BUTTONS
info_pages(7) = IMEI
info_pages(8) = BATTERY
info_pages(9) = MAIL
info_pages(10) = SIM
info_pages(11) = JPG
Dim download_pages(6)
download_pages(1) = RAS_DL
download_pages(2) = FTP_DL
download_pages(3) = IRDA_DL
download_pages(4) = GZIP_DL
download_pages(5) = ENCRYPT_DL
download_pages(6) = BUTTONS_DL
Dim link
link = "index.php"
Dim i
If Request("download") = 1 Then
For i = 1 To DOWNLOADS
If keys(i) = Request("product") Then
link = "products/" & download_pages(i) & "/download.php"
End If
Next
Else
For i = 1 To PRODUCTS
If keys(i) = Request("product") Then
link = "products/" & info_pages(i)
End If
Next
End If
Dim ref
ref = Request.ServerVariables("HTTP_REFERER")
%>
Sapphire Solutions Ltd
Please wait while we transfer your request.
If your browser does not automatically redirect, please click the following link:
http://www.sapphire-solutions.co.uk/<% =link %>
<%
If ref <> "" Then
%>
To return to the previous page, please the following link:
<% =ref %>
<%
End If
%>