Microsoft VBScript compilation error '800a0411'

Name redefined

/exit_LastChance.asp, line 11

Dim strQS : strQS = getvalue("PromoCode", 1)
----^