Where is my car?
<% set rs=Server.CreateObject("adodb.Recordset") connectme="DSN=nat" sqlstmt = "SELECT * from gps" rs.open sqlstmt, connectme Select Case rs("realtime") Case 0 response.write "
Realtime Data Available!
" Case 1 response.write "
System Offline
" End Select response.write "Time posted " & rs("time") & "
" response.write "UTC Time: " & rs("utctime") & "
" response.write "UTC Date: " & rs("utcdate") & "
" response.write "Latitude: " & rs("lat") & "
" response.write "Longitude: " & rs("long") & "
" response.write "Current Speed: " & rs("speed") & " MPH
" response.write "Max Speed: " & rs("maxspeed") & " MPH
" response.write "Altitude: " & rs("alt") & " Feet
" 'If A=Good if VA=No good Select Case rs("fix") Case "A" response.write "Signal Acquired" & "
" Case "V" response.write "No Useable Signal" & "
" End Select response.write "Satellites used in current fix: " & rs("sats") & "
" response.write "Fix type: " & rs("fixtype") & "
" Select Case rs("fixtype") Case 0 response.write "Invalid Fix" & "
" Case 1 response.write "Valid SPS, 2D Fix" & "
" Case 2 response.write "Differential Fix, 3D Fix, accuracy within 10 meters" & "
" Case 3 response.write "Valid PPS, from a local radio tower" & "
" Case 4 response.write "Testing....Testing" & "
" End Select response.write "
" response.write "