שאלה בנוגע למשתנים – מוזר ביותר!

שלום!
יש לי את הדף:


<!– #include file="../includes/md5.asp" –>
<%
Dim rsCheck
Set rsCheck = Server.CreateObject("ADODB.Recordset")
Dim user,pass,email
user = request.form("user")
pass = MD5(request.form("pass"))
email = request.form("email")

user = REPLACE(user, "<", "[")
user = REPLACE(user, ">","]")
user = REPLACE(user, "'",""")
user = REPLACE(user,""" ,""")



rsCheck.open "Select username,[email] From users Where username='" & user & "' OR email='" & email &"'", conn
Dim err

if rsCheck.eof then
err = "שם המשתמש או האימייל כבר קימים במערכת."
else
conn.execute "INSERT INTO users ([username],[password],[email],[date_of_reg]) VALUES('"& user &"','"& pass &"','"& email &"',#"&date()&"#)"
end if

if err <> "" then
response.write err
end if
if err = "" then
response.redirect "index.asp?act=login"
end if
%>

כל הקוד הוא רלוונטי כי אני לא יודע איפה הבעיה…
אז ככה, אני מריץ אותו, ואני מקבל את השגיאה:

Microsoft VBScript compilation error '800a0411'

Name redefined

/forumasp/includes/md5.asp, line 29

Private Const BITS_TO_A_BYTE = 8
————–^

הבעיה מוזרה ביותר, מכיוון שעל ההתחברות אני הרצתי את ההצפנה וזה עבד אחלה, אבל פה זה משום מה לא עובד לי .

תודה, דוד.