<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsSwiperSub Dim rsSwiperSub_numRows Set rsSwiperSub = Server.CreateObject("ADODB.Recordset") rsSwiperSub.ActiveConnection = MM_dbase1_STRING rsSwiperSub.Source = "SELECT * FROM QueryProductDetails" rsSwiperSub.CursorType = 0 rsSwiperSub.CursorLocation = 2 rsSwiperSub.LockType = 1 rsSwiperSub.Open() rsSwiperSub_numRows = 0 %> <% Dim rsSwiperMain Dim rsSwiperMain_numRows Set rsSwiperMain = Server.CreateObject("ADODB.Recordset") rsSwiperMain.ActiveConnection = MM_dbase1_STRING rsSwiperMain.Source = "SELECT * FROM QueryDistinctCategory" rsSwiperMain.CursorType = 0 rsSwiperMain.CursorLocation = 2 rsSwiperMain.LockType = 1 rsSwiperMain.Open() rsSwiperMain_numRows = 0 %> <% Dim localTime Dim localTime_numRows Set localTime = Server.CreateObject("ADODB.Recordset") localTime.ActiveConnection = MM_dbase1_STRING localTime.Source = "SELECT * FROM QueryTimeDate" localTime.CursorType = 0 localTime.CursorLocation = 2 localTime.LockType = 1 localTime.Open() localTime_numRows = 0 %> <% Dim productInfo__MMColParam productInfo__MMColParam = "1" If (Request.QueryString("productInfoID") <> "") Then productInfo__MMColParam = Request.QueryString("productInfoID") End If %> <% Dim productInfo Dim productInfo_numRows Set productInfo = Server.CreateObject("ADODB.Recordset") productInfo.ActiveConnection = MM_dbase1_STRING productInfo.Source = "SELECT * FROM QueryProductInfo WHERE productInfoID = " + Replace(productInfo__MMColParam, "'", "''") + "" productInfo.CursorType = 0 productInfo.CursorLocation = 2 productInfo.LockType = 1 productInfo.Open() productInfo_numRows = 0 %> Global Aviation
Global Aviation Support Pty. Ltd
Sunshine Coast Airport, Queensland, Australia
Tel: 07 5448 8877 Fax: 07 5448 8866
Email:
Local Time - <%= DoDateTime((localTime.Fields.Item("Time").Value), 4, 1033) %>, <%= DoDateTime((localTime.Fields.Item("Date").Value), 1, 1033) %>
 
Return to Home Page

COMPATIBLES SEARCH

Following, is a listing of known compatible phones. If your phone is not listed it may still be compatible. Please contact us if your phone is not listed or you have any question as to the suitability of your phone.

 
 
© 1999-2004, Global Aviation Support Pty Ltd
<% rsSwiperSub.Close() Set rsSwiperSub = Nothing %> <% rsSwiperMain.Close() Set rsSwiperMain = Nothing %> <% localTime.Close() Set localTime = Nothing %> <% productInfo.Close() Set productInfo = Nothing %>