Simply use the variable you already have in scope.
<%
Dim m : m = 1
If ( m <> 0 ) Then
Response.Write ("<script type=""text/javascript"" language=""javascript"">" & vbcrlf)
Response.Write (" var myVar =" & m & "; //use a server-side statement to pull" & vbcrlf)
Response.Write (" alert(myVar);" & vbcrlf)
Response.Write (" location.href = 'yes.asp?id1='" & m & "';" & vbcrlf)
Response.Write ("</script>" & vbcrlf)
End If
%>
Keep in mind that ASP and JavaScript are two different mediums and connot explicitely communicate in such ways.
Cheers.