Cleaning code...

<%
Dim moneyLeft
Dim totPrice
Dim WeapID

totPrice = Request.Form("Price")
WeapID = Request.Form("WeapID")

Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDatabase"

Set recordSet=Server.CreateObject("ADODB.Recordset")
recordSet.Open "SELECT * FROM Setup WHERE Username='" & ID &  "'",connectionToDatabase,1,2

moneyLeft = recordSet("Gill") - totPrice

If recordSet("Gill") >= totPrice THEN
 If recordSet("Weapon") <> WeapID THEN
recordSet("Gill") = moneyLeft
recordSet("Weapon") = WeapID
recordSet("Attack") = recordSet("Attack") + 3
recordSet.Update
Response.Write(recordSet("Gill"))

Else 
If recordSet("Gill") < totPrice THEN
Response.Write("Im sorry, you don't have enough money")
Else 
If recordSet("Weapon") <> "" THEN
Response.Write("You currently have ")
Response.Write(recordSet("Weapon"))
Response.Write(" equipped")
Response.Write("
")
Else Response.Write("")
End If

If recordSet("Item1") = "1" THEN
recordSet("Item1") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item2") = "1" THEN
recordSet("Item2") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item3") = "1" THEN
recordSet("Item3") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item4") = "1" THEN
recordSet("Item4") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item5") = "1" THEN
recordSet("Item5") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item6") = "1" THEN
recordSet("Item6") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item7") = "1" THEN
recordSet("Item7") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item8") = "1" THEN
recordSet("Item8") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item9") = "1" THEN
recordSet("Item9") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
Else 
If recordSet("Item10") = "1" THEN
recordSet("Item10") = WeapID
recordSet("Gill") = moneyLeft
recordSet.Update
Response.Write(WeapID)
Response.Write(" was stored in your Items")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
connectionToDatabase.close
Set connectionToDatabase=Nothing
%>

<%
Dim moneyLeft
Dim totPrice
Dim WeapID

totPrice = Request.Form("Price")
WeapID = Request.Form("WeapID")

Set con=Server.CreateObject("ADODB.Connection")
con.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MyDatabase"

set rs = con.execute("SELECT * FROM Setup WHERE Username='" & ID &  "'",,1)

moneyLeft = rs("Gill") - totPrice

If rs("Gill") >= totPrice THEN
  If rs("Weapon") <> WeapID THEN
    rs("Gill") = moneyLeft
    rs("Weapon") = WeapID
    rs("Attack") = rs("Attack") + 3
    rs.Update
    Response.Write(rs("Gill"))
  Else 
    If rs("Gill") < totPrice THEN
      Response.Write("Im sorry, you don't have enough money")
    Else 
      If rs("Weapon") <> "" THEN
        Response.Write("You currently have ")
        Response.Write(rs("Weapon"))
        Response.Write(" equipped")
        Response.Write("
")
        Else Response.Write("")
      End If
      
      bstored = false
      for i = 1 to 10
        If rs("Item" & i) = "1" and bstored=false THEN
          rs("Item" & i) = WeapID
          rs("Gill") = moneyLeft
          rs.Update
          Response.Write(WeapID)
          Response.Write(" was stored in your Items")
          bstored = true
        end if
      next
    End If
  End If
End If

con.close
Set con=Nothing
%>