Radera multipla rader

Hur skriver man om denna kod för att radera alla rader där användarnamnet förekommer?

<!-- #include virtual="/inc/dbconn.asp" -->
<!-- #include virtual="/inc/functions.asp" -->
<%
Dim objConn, delete
usr=request("id")

	SET objConn = connect()
	delete = "DELETE FROM tblOnline WHERE username="&usr
	response.write delete
	'response.end
	objConn.Execute(delete)
	response.redirect "/default.asp"
%>

id är inget tal, det är en textsträng då det är användarnamnet