% Dim strContact strContact = Request.QueryString("contact") Sub RenderContactOption(ByVal strContactName) Response.Write "" & strContactName & "" End Sub %>