%@LANGUAGE="VBSCRIPT"%> <% Dim Orig : Orig = Request.Form( "Orig" ) Dim Dest : Dest = Request.Form( "Dest" ) If Len( Orig ) > 0 And Len( Dest ) > 0 Then Orig = CInt( Orig ) Dest = CInt( Dest ) '# Get origin area zone SQL = _ "SELECT " & _ " AreaName, AreaZone " & _ "FROM " & _ " tblArea " & _ "WHERE " & _ " AreaID = " & Orig Set Rs = Cn.Execute( SQL ) OrigName = Rs( "AreaName" ) OrigZone = Rs( "AreaZone" ) Set Rs = CloseRs( Rs ) '# Get destination area zone SQL = _ "SELECT " & _ " AreaName, AreaZone " & _ "FROM " & _ " tblArea " & _ "WHERE " & _ " AreaID = " & Dest Set Rs = Cn.Execute( SQL ) DestName = Rs( "AreaName" ) DestZone = Rs( "AreaZone" ) Set Rs = CloseRs( Rs ) '# Build rate array Set Rs = Cn.Execute( "SELECT * FROM tblRates" ) arrRates = Rs.GetRows() Set Rs = CloseRs( Rs ) Zones = arrRates( OrigZone, DestZone-1 ) End If Function WriteAreas( sid ) '# Build area list options Set Rs = Cn.Execute( "SELECT tblArea.AreaID, AreaName, AreaZone FROM tblArea" ) arr = Rs.GetRows() For i = 0 To UBound( arr, 2 ) AreaID = arr( 0, i ) AreaName = arr( 1, i ) AreaZone = arr( 2, i ) If( sid = AreaID ) Then s = " selected" Else s = "" End If strAreaList = strAreaList & "" & VbCrLf Next WriteAreas = strAreaList End Function %>