Creo que ese código debería quedar así:
response.redirect("recibir.asp?Que=Misiones_de_Ren go&Para=u_goldman-dazuaga")
<%
Function EnviaRengo(para)
para= trim(para)
identifica= instr(para, "-") - 1
este_es_el_bueno= left(para, len(para) - (len(para)-identifica))
EnviaRengo= este_es_el_bueno
End Function
que= trim(Request.QueryString("que"))
para= EnviaRengo(Request.QueryString("para"))
Response.Write para & " se lleva el " & replace(eval("que"),"_", " ") & "!!!"
%>
Salu2,