problema al validar un querystring

[Siroff]

muchas gracias ya lo solucione, de todas maneras te sobra el segundo for... no hace falta. lo solucione asi

Código:

sqltxt = "SELECT idpedido, dni, fecha, observaciones, realizado FROM tbPedido "

if request.QueryString.count > 0 then
	sqltxt = sqltxt + "WHERE "


	for each control in request.QueryString 


	if control = "estado" then	 
		if request.querystring("estado") = 1  then
			sqltxt = sqltxt & "realizado = true AND " 
		else if request.querystring("estado") = 2  then
			sqltxt = sqltxt & "realizado = false AND "
		end if
		end if
	end if

	if  control = "dni" then
		sqltxt = sqltxt & "dni='" & request.querystring("dni") & "' AND "
	else if control = "nombre" then
		sqltxt = sqltxt & "nombre='" & request.querystring("nombre") & "' AND "
	end if
	end if	

	next


	sqltxt = MID(sqltxt,0,sqltxt.length - 4)
end if

sqltxt = sqltxt & "ORDER BY idpedido desc"

de todas maneras... esto me da error. sabeis porque?
sqltxt = MID(sqltxt,0,sqltxt.length - 4)