<%
Const ForReading3 = 1, ForWriting3 = 2
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile("/var/www/www.laptopsforless.com/html/templates/nav_bar.txt")
set ts = f.OpenAsTextStream(ForReading3, -2)
TextStreamTest = ts.ReadLine
Do While not ts.AtEndOfStream
myNavBarText = myNavBarText & ts.ReadLine & vbCrLf
Loop
%>
<%
response.write(myNavBarText)
%>
<%
Const ForReading = 1, ForWriting = 2
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile("/var/www/www.laptopsforless.com/html/templates/replacementmenu_lfl.txt")
set ts = f.OpenAsTextStream(ForReading, -2)
TextStreamTest = ts.ReadLine
Do While not ts.AtEndOfStream
myText = myText & ts.ReadLine & vbCrLf
Loop
%>
<%
response.write(myText)
%>
USGlobalSat GPS Compact Flash
Receivers
GlobalSat GPS CF Receivers
Compact Flash
Specifications:
Frequency: L1, 1575.42MHz
Channel: 20 channels all-in-view tracking
Chipset: SiRF Star III
Interface: Compact Flash Type I
Position Accuracy:
10 meters, 2D RMS, (No SA).
5 meters, 2D RMS, (WAAS enabled).
Datum: WGS-84 Acquisition Rate
Hot Start: 1 sec. average
Warm Start: 38 sec. average
Cold Start: 42 sec. average
Reacquisition Time: 0.1 sec. average
Protocol
GPS output data: NMEA 0183 protocol, supports command GGA (1 sec), GSA (1 sec), GSV (5 sec), RMC (1 sec), (VTG and GLL are optional).
Baud Rate: 4800 bps,N,8,1
Dynamic Condition Maximum Altitude: 18,000 meters (60,000 feet) max.
Maximum Velocity: 515 meter/sec. (1,000 knots) max. Power
Voltage: DC 3.3 V +/- 10%
Power consumption: 90 mA
Physical characteristics
Antenna Type: Built in antenna
External Antenna Interface: MMCX (Optional)
Dimension: 83 mm x 42.8 mm x 13.3 mm
LED Indicator: GPS fix status.
(blinking light: GPS is fix, solid light: GPS is not fix.) Temperature
Operating Temperature: -10°C to +70°C
Storage Temperature: -10°C to +60°C
Operation Humidity: 95%, Non- Condensing
"
style="font-family: Verdana; font-size: 8pt; font-weight: bold; vertical-align: middle; border: medium"
medium none>
New, 1 Year Warranty.
<%
Const ForReading2 = 1, ForWriting2 = 2
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile("/var/www/www.laptopsforless.com/html/templates/footer.txt")
set ts = f.OpenAsTextStream(ForReading2, -2)
TextStreamTest = ts.ReadLine
Do While not ts.AtEndOfStream
myFooterText = myFooterText & ts.ReadLine & vbCrLf
Loop
%>
<%
response.write(myFooterText)
%>