|
|
To see which Wireless Cellular Data Product from Ositech is right
for you, simply look up your model number in the pull-down menu
for the brand of phone you own, and see which Ositech
product is right for you. See each product's individual page for
further information and compatibility lists.
If you already own a PC Card from Ositech and are looking for a
wireless upgrade kit, please see the Wireless Cellular Data
Upgrade Kit entry in Ositech's Accessories
section, otherwise, please find your phone below:
<%
'------------------------------------------------------------------------
'- Handle display of phone models after the form has been submitted
'------------------------------------------------------------------------
IF bIsSubmission THEN
'------------------------------------------------------
'- First, obtain the LOGO for the selected manufacturer
'------------------------------------------------------
' sSQL = "SELECT ManufacturerLogoLarge FROM Manufacturers WHERE ManufacturerID=" & iManufacturerID
' ON ERROR RESUME NEXT
' objRS.Open sSQL, objConn
' '- Obtain the logo graphic name
' IF NOT objRS.EOF THEN
' sLogoFilename = TRIM(objRS("ManufacturerLogoLarge"))
' IF sLogoFilename<>"" THEN
' '- Verify existence of logo graphic
' sLogoFilename="/images/ManufacturerLogos/" & sLogoFilename
' IF objFS.FileExists(Server.MapPath(sLogoFilename)) THEN
' '- Display logo graphic
' 
' END IF
' END IF
' END IF
' IF objRS.State=adStateOpen THEN objRS.Close
' IF Err.Number <> 0 THEN
' Session("sProblemEncounteredErrorString")="Error opening Manufacturers table."
' Response.Redirect("/aspModules/Errors/Failure_ProblemEncountered.asp")
' END IF
' ON ERROR GOTO 0
'------------------------------------------------------
'- Retrieve and display data for phone(s)
'------------------------------------------------------
sSQL = ""
sSQL = sSQL & "SELECT "
sSQL = sSQL & " Products.ProductShortName, "
sSQL = sSQL & " Products.ProductPageName, "
sSQL = sSQL & " PhoneTable.PhoneID, "
sSQL = sSQL & " PhoneTable.ManufacturerID, "
sSQL = sSQL & " PhoneTable.PhoneName, "
sSQL = sSQL & " PhoneTable.PhoneImageFilename, "
sSQL = sSQL & " PhoneModeTable.PhoneModeName, "
sSQL = sSQL & " Phone_ProductLinkingTable.OsitechProduct "
sSQL = sSQL & "FROM Products "
sSQL = sSQL & " INNER JOIN ((PhoneModeTable "
sSQL = sSQL & " INNER JOIN PhoneTable "
sSQL = sSQL & " ON PhoneModeTable.PhoneModeID = PhoneTable.PhoneModeID) "
sSQL = sSQL & " INNER JOIN Phone_ProductLinkingTable "
sSQL = sSQL & " ON (PhoneTable.PhoneID = Phone_ProductLinkingTable.PhoneID) "
sSQL = sSQL & " AND (PhoneTable.PhoneID = Phone_ProductLinkingTable.PhoneID)) "
sSQL = sSQL & " ON (Products.ProductID = Phone_ProductLinkingTable.ProductID) "
sSQL = sSQL & " AND (Products.ProductID = Phone_ProductLinkingTable.ProductID) "
sSQL = sSQL & "WHERE PhoneTable.ManufacturerID=" & iManufacturerID & " "
'- Special case... if iModelID is 999, then display ALL phones
IF iModelID<>999 THEN
sSQL = sSQL & "AND PhoneTable.PhoneID=" & iModelID
END IF
ON ERROR RESUME NEXT
objRS.Open sSQL, objConn
IF Err.Number <> 0 THEN
Session("sProblemEncounteredErrorString")="Error opening Phone table."
Response.Redirect("/aspModules/Errors/Failure_ProblemEncountered.asp")
END IF
ON ERROR GOTO 0
%>
|
Phone
Type |
Analog,
Digital or
Dual Mode |
Compatible
Ositech Products
|
<%
DO WHILE NOT objRS.EOF
'- Obtain the Phone Image name
sPhoneImageFilename = TRIM(objRS("PhoneImageFilename"))
IF sPhoneImageFilename<>"" THEN
'- Verify existence of graphic
sPhoneImageFilename="/images/PhoneImages/" & sPhoneImageFilename
IF NOT objFS.FileExists(Server.MapPath(sPhoneImageFilename)) THEN
'- Set to "Image not available" graphic
sPhoneImageFilename="/images/PhoneImages/PhoneImageNotAvailable.gif"
END IF
ELSE
'- Set to "Image not available" graphic
sPhoneImageFilename="/images/PhoneImages/PhoneImageNotAvailable.gif"
END IF
%>
 |
<% =objRS("PhoneName")%> |
<% =objRS("PhoneModeName")%> |
<%
'------------------------------------------------------------
'- There may be multiple records for each PhoneID within the
' database. We want to display only a single table row for
' each of the records, with multiple lines for the "Ositech
' Compatible Product" column.
'------------------------------------------------------------
iCurrentModelID = objRS("PhoneID")
DO WHILE (iCurrentModelID = objRS("PhoneID")) AND NOT objRS.EOF
iCurrentModelID = objRS("PhoneID")
%>
|
|
|
<%
'- The objRS("OsitechProduct") field will usually contain
' a string like JoC, 5oC KoH etc. corresponding to the
' shortform name of the card. We need to provide a hyperlink
' on these shortforms to the actual product page. For the
' current record, we also have available ProductShortName
' and ProductPageName. ProductShortName is the string we will
' try to find a match on within the OsitechProduct field. If
' we DO find a match, we will provide a hyperlink to the
' string stored in the ProductPageName field
'
' Determine if there is a match of ProductShortName within OsitechProduct
tmpInt = Instr(objRS("OsitechProduct"),objRS("ProductShortName"))
IF tmpInt > 0 THEN
'- Replace the ProductShortName string found within the OsitechProduct string
' with a hyperlink to ProductPageName string
tmpStr = "" & objRS("ProductShortName") & ""
Response.Write Replace(objRS("OsitechProduct"),objRS("ProductShortName"),tmpStr)
ELSE
'- Just display the raw OsitechProduct field
Response.Write objRS("OsitechProduct")
END IF
%>
|
<%
' get the next record
objRS.MoveNext
IF objRS.EOF THEN EXIT DO
LOOP
'------------------------------------------------------------
%>
|
<%
LOOP
%>
<%
END IF
'------------------------------------------------------------------------
%>
|
