Problem med større og minde i asp

Her kan du få hjælp og stille spørgsmål til andre programmeringssprog!
Besvar
Snookie
Begynder
Indlæg:1
Tilmeldt:3. mar 2018, 13:27
Problem med større og minde i asp

Indlæg af Snookie » 3. mar 2018, 15:07

Har et problem når jeg vil tjekke om coins er større end userscoins
Problemet er coins er på 50 og userscoins 40 og hvis coins er større end userscoins så er download deaktiveret men er userscoins større end coins så er download ikke deaktiveret.
Men skriver jeg 400 i usercoins og coins er stadig 50 så er download stadig deaktiveret det er om om den kun tager de 2 første tal
for skriver jeg 600 i users coins så er download ikke deaktiveret.

Kommer lige med min kode her.

Kode: Vælg alt

Function GetCoinsFromUserSession
  Call OpenDataBase
  Dim objRS
  Dim intResult
  
  intResult = ""
  
  Set objRS = objConn.Execute("SELECT * FROM customers WHERE ID=" & Session("FuUserID"))
  If (Not objRS.BOF) And (Not objRS.EOF) Then
  
  intResult = CLng(objRS("Coins"))
    
  End If
  
  objRS.Close
  Set objRS = Nothing
  Call CloseDataBase
                                      
  GetCoinsFromUserSession = FixResult 
End Function


Function GetCoinsFromFile
  Call OpenDataBase
  Dim objRS
  Dim intResult
  
  intResult = ""
  
  Set objRS = objConn.Execute("SELECT Coins FROM produktvare WHERE ID=" & GetNumericQueryString("ID"))
  
  If (Not objRS.BOF) And (Not objRS.EOF) Then
  

  intResult = CLng(objRS("Coins"))
    
  End If
  
  objRS.Close
  Set objRS = Nothing
  Call CloseDataBase
                                      
  GetCoinsFromUserFile = intResult 
End Function

Har også prøvet at lave dem sådan her

Kode: Vælg alt

Function GetCoinsFromUserSession
  Call OpenDataBase
  Dim objRS
  Dim intResult
  
  intResult = ""
  
  Set objRS = objConn.Execute("SELECT * FROM customers WHERE ID=" & Session("FuUserID"))
  If (Not objRS.BOF) And (Not objRS.EOF) Then
  
  intResult = objRS("Coins")
    
  End If
  
  objRS.Close
  Set objRS = Nothing
  Call CloseDataBase
                                      
  GetCoinsFromUserSession = FixResult 
End Function


Function GetCoinsFromFile
  Call OpenDataBase
  Dim objRS
  Dim intResult
  
  intResult = ""
  
  Set objRS = objConn.Execute("SELECT Coins FROM produktvare WHERE ID=" & GetNumericQueryString("ID"))
  
  If (Not objRS.BOF) And (Not objRS.EOF) Then
  

  intResult = objRS("Coins")
    
  End If
  
  objRS.Close
  Set objRS = Nothing
  Call CloseDataBase
                                      
  GetCoinsFromUserFile = intResult 
End Function

Og her kommer så hvor jeg tjekker om coins er større end usercoins

Kode: Vælg alt

If GetCraftCoinsFromUserSession > GetCoinsFromUserSession Then
Response.Write "du har ikke nok på kontoen"
Else
End if
og har også prøvet sådan her

Kode: Vælg alt

If GetCoinsFromUserSession > objRS("CraftCoins") Then
Response.Write "du har ikke nok på kontoen"
Else
End if
Jeg kan ikke forstå at den kun samligner med de 2 første tal

cristian
Moderator
Moderator
Indlæg:882
Tilmeldt:26. sep 2011, 21:31
Kontakt:

Re: Problem med større og minde i asp

Indlæg af cristian » 11. mar 2018, 17:05

Jeg kender ikke ASP og ved ikke lige hvordan jeg skal hjælpe dig, syntes koden virker noget funky.
Må jeg spøger hvorfor du har valgt ASP?

Det vil også være rigtig lækkert med lidt baggrundsviden, hvad er coins og hvad er usercoins?
Kommer coins fra en DB og usercoins fra en cookie?

Har du tjekket om de værdier du tjekker er som forventet inden du tjekker dem?
Altså udskriv dem til konsol hver for sig.

Besvar