Home
 Shipping Status
 International
 Inventory  
  Great Links Shipping FAQ Forward Air Contact Us  

<%@ LANGUAGE="VBSCRIPT"%> <% Dim sqlText dim sqlChk dim ConnString dim objRec dim tmp dim tmpStat dim bubba dim cntr cntr = 1 bubba = "http://www.fedex.com/Tracking/Detail?ftc_start_url=&totalPieceNum=&backTo=&template_type=print&cntry_code=us&language=english&trackNum=" 'Create and open the database object Set objConn = Server.CreateObject("ADODB.Connection") connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DataWeb.mdb") objConn.Open connstring set objRec = server.createobject ("ADODB.Recordset") sqlText = "SELECT ShipStatusForWeb.[Buyer ID] AS PID, ShipStatusForWeb.ShipDate AS SD, ShipStatusForWeb.ShippingNote, " & _ "ShipStatusForWeb.Track, ShipStatusForWeb.[__Ship] AS Agent, ShipStatusForWeb.item " & _ "FROM ShipStatusForWeb" objrec.open sqlText, objConn if objrec.eof = false then response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" objrec.movefirst do until objrec.eof = true if cntr = 25 then response.write "" cntr = 1 end if response.write "" response.write "" response.write "" response.write "" cntr = cntr + 1 objrec.movenext loop response.write "

" & objrec("ShippingNote") & "

Payment ID

Shipment Date

Tracking #

Item


" response.write "
" & objrec("PID") & "" & objrec("SD") & "" & objrec("Track") & "" & objrec("item") & "
" else response.write "###" end if objrec.close set objrec=nothing %> ©2010 PowerSportsNation