<% contractID = Request.QueryString("contrId") '''Response.Write "
contractID = " & contractID if not isNumeric(contractID) Then contractID = 0 end If vendorID = Request.QueryString("vendId") '''Response.Write "
vendorID = " & vendorID if not isNumeric(vendorID) Then vendorID = 0 end If Set cnn = Server.CreateObject("ADODB.Connection") cnn.open "PROVIDER=SQLOLEDB;DATA SOURCE=" & Application("DataSourceVisitor") Set SQLStmt = Server.CreateObject("ADODB.Command") Set RS = Server.CreateObject ("ADODB.Recordset") SQL = "SELECT COMPANY_NAME,OAKS_Contract_ID FROM CONTRACT_VENDOR_DEALERS DLR, COMPANIES CO" SQL = SQL & " WHERE DLR.CONTRACT_ID = " & contractID SQL = SQL & " AND DLR.VENDOR_ID = " & vendorID SQL = SQL & " AND CO.COMPANY_ID = DLR.DEALER_ID" SQL = SQL & " ORDER BY COMPANY_NAME" '''Response.Write "
" & SQL SQLStmt.CommandText = SQL SQLStmt.CommandType = 1 Set SQLStmt.ActiveConnection = cnn RS.Open SQLStmt if not RS.EOF Then Response.Write "
" Response.Write "

Dealer List

" Response.Write "

Listed below are all Dealers for this Vendor on this Contract.

" Response.Write "" Response.write "" Response.write "" Do while not RS.EOF dealer = trim(RS("COMPANY_NAME")) dealerOAKSID = RS("OAKS_Contract_ID") Response.Write "" if (dealerOAKSID <> "") Then Response.Write "" end if Response.Write "" RS.MoveNext loop Response.Write "
Dealer NameOAKS Contract ID
" Response.Write dealer Response.Write "" Response.Write dealerOAKSID Response.Write "
" RS.Close Set RS = Nothing Set cnn = Nothing %>
<% else %> <% end If %>