I am really stuck.... Please help me


<%
' History
' 19-6-2000 LvdS Created

' Updates user table with new values
' in: ..
' out: BUsers table
Sub UpdateUser(Conn, pkUserID, userName, emailAddress, mobile, phone, 
password)
	sql = "UPDATE BUsers SET UserName='"&userName&"', 
EmailAddress='"&emailAddress&"', " & _
			"MobilePhone='"&mobile&"', PhoneNumber='"&phone&"', 
Password='"&password&"' " & _
			" WHERE pkUserID=" & pkUserID
			
'	Response.Write("update user SQL = " & sql & "<BR>" & vbNewLine)
	
	Conn.execute(sql)
End Sub



Sub CreateUser(Conn, tradingPartyID, userName, emailAddress, mobile, phone, 
password)
	sql = "INSERT INTO BUsers(kTradingPartyID, UserName, EmailAddress, 
MobilePhone, PhoneNumber, Password) " & _
			" VALUES("&tradingPartyID&", '"&userName&"', '"&emailAddress&"', 
'"&mobile&"', '"&phone&"', '"&password&"')"
	
	
	Conn.execute(sql)
End Sub
%>