Kontrollera rabatt i kundvagn

Ojoj, här blev det problem igen. Först vill jag kolla om kunden lagt till någon rabatt i kundvagnen. Har kunden gjort det ska ingenting göras om det inte rör sig om två olika rabatter.
Har dock kunden inte lagt till rabatten ska den naturligtvis läggas till. Då vill jag kolla om rabattkoden är giltig. Är den giltig ska den läggas till kundvagnen och är den felaktig ska ingenting göras.
Någon som kan hjälpa till här? Ni får gärna optimera koden också för den känns rätt tvivelaktig.

If Not Request.Form("frmDiscount") = "" Then
  Call OpenConn()
  SQL1 = "SELECT Name FROM tblCarts WHERE CartId = '" & Request.Cookies("skyshop") & "' "
  Set rsCheckDiscount = Conn.Execute(SQL1)  
  SQL2 = "SELECT * FROM tblDiscount WHERE Code = '" &  Request.Form("frmDiscount") & "' "
  Set rsGetDiscount = Conn.Execute(SQL2)
  
  Do Until rsCheckDiscount.EOF
  If Not rsCheckDiscount("Name") = rsGetDiscount("Discount") Then  
    Do Until rsGetDiscount.EOF
    If Request.Form("frmDiscount") = rsGetDiscount("Code") Then
      Set rsAddDiscountCart = Server.CreateObject("ADODB.Recordset")
      rsAddDiscountCart.Open "tblCarts", Conn, 3, 3
      rsAddDiscountCart.AddNew
      rsAddDiscountCart("CartId") = Request.Cookies("skyshop")
      rsAddDiscountCart("Item") = "99999"
      rsAddDiscountCart("Qty") = 1
      rsAddDiscountCart("Name") = rsGetDiscount("Discount")
      rsAddDiscountCart("Price") = rsGetDiscount("Amount")
      rsAddDiscountCart.Update
      rsAddDiscountCart.Close : Set rsAddDiscountCart = Nothing
    End If
    rsGetDiscount.MoveNext
    Loop
    rsGetDiscount.Close : Set rsGetDiscount = Nothing
  End If
  rsCheckDiscount.MoveNext
  Loop
  rsCheckDiscount.Close : Set rsCheckDiscount = Nothing
  Call CloseConn()
End If