<%
Response.Expires = 0
Dim IDWRank
Dim IDLRank
Dim RankDiff
Dim Move
Dim NewRank
Dim Match

IDWRank = FP_FieldVal(fp_rs,"WinnerRank")
IDLRank = FP_FieldVal(fp_rs,"LoserRank")
Match = FP_FieldVal(fp_rs,"MatchNumber")

If IDWRank > IDLRank Then
RankDiff = IDWRank - IDLRank
Move = RankDiff / 2
NewRank = IDWRank - Move
If Move = .5 Then
Response.Write "You and your opponent switched ranks."
ElseIf Move > .5 Then
Response.Write "You are now ranked number " & (NewRank) & "."
End If
ElseIf IDLRank > IDWRank Then
Response.Write "You don't move up in rank this time. Better luck next time!."
End If
'Below was added so that i can check what record was being used. Has no bearing on the formula.
Response.Write (Match) & ","
Response.Write (IDWRank) & ","
Response.Write (IDLRank)
%>
These are the variables that are being assigned (according to my check)
IDWRank=100
IDLRank=40
Match=6

Here I get the mesage "You don't move up in rank this time"

With the code below I get the message "You are now ranked number 70."

<%
Response.Expires = 0
Dim IDWRank
Dim IDLRank
Dim RankDiff
Dim Move
Dim NewRank

IDWRank = 100
IDLRank = 40

If IDWRank > IDLRank Then
RankDiff = IDWRank - IDLRank
Move = RankDiff / 2
NewRank = IDWRank - Move
If Move = .5 Then
Response.Write "You and your opponent switched ranks."
ElseIf Move > .5 Then
Response.Write "You are now ranked number " & (NewRank) & "."
End If
ElseIf IDLRank > IDWRank Then
Response.Write "You don't move up in rank this time. Better luck next time!."
End If
%>

It looks to me that there is a problem using data from a database to set a variable. Is there a way that I can do this?

Any help or comment is not an insult, this is my first VBScript, so it is taken as constructive criticism. I appreciate your help, and hopefully someone may be able to help me find the reason why I'm getting the wrong message.

http://www.frontpagewebmaster.com/ubb/Forum6/HTML/002445.html

for other codes.

The only other thing I can think of is to possibly DIM your variables as so:

<%
Response.Expires = 0
Dim IDWRank as Integer
Dim IDLRank as Integer
Dim RankDiff as Integer
Dim Move as Integer
Dim NewRank as Integer
Dim Match as Integer
.
.
.
%>

After that, you can use cInt or cLng, but as they are numerics, you should be ok.