onkeydown tjekker, fra vb til javascript

<form action="AddressChecker.asp" method="post" name="Test">
        <table border="0" cellpadding="0" cellspacing="0">
            <tr>
                <td>Indtast adresse&nbsp;&nbsp;&nbsp;</td>
                <td><input type="text" name="Address" size="50" value="<%= strInputField %>" /></td>
            </tr>
            <tr>
                <td colspan="2" align="right"><input type="submit" value="Test adresse" /></td>
            </tr>
            <%
                if blnFormSubmit then
                    Response.Write "<tr><td colspan=""2"">&nbsp;</td></tr>"
                    Response.Write "<tr><td colspan=""2"" align=""center"">"
                    WriteRegTest strInputField
                    Response.Write "</td></tr>"
                end if
            %>
        </table>
    </form>

<%
    sub WriteRegTest(strInput)
        Dim objReg, strStreetName, strStreetNumber, strZipCode, strCityName
        strStreetName = "([A-Za-zæøåÆØÅüÜéèÉÈ])+(( )?)([A-Za-zæøåÆØÅüÜéèÉÈ])+(( )?)([A-Za-zæøåÆØÅüÜéèÉÈ])+(( )?)+"
        strspace = "(( )?)+(([,-]{1})?)(( )?)+"
        strStreetNumber = "[0-9]+( )?(([0-9]?)?)+(([A-Za-z])?)+"
        strZipCode = "[0-9]{4}"
        strCityName = "([A-Za-zæøåÆØÅüÜéèÉÈ]+( )?)+(\.)?"
       
        Set objReg = new RegExp
        objReg.Pattern = "^" & strStreetName & strStreetNumber & strspace & strZipCode & strspace & strCityName & "$"
'        objReg.Pattern = "^([A-Za-zæøåÆØÅüÜéèÉÈ]+ )+[0-9]+[A-Za-z]?,( )?[0-9]{4} (\- )?([A-Za-zæøåÆØÅüÜéèÉÈ]+( )?)+(\.)?$"
       
        if objReg.Test(strInput) then
            Response.Write "Correct" & strInput & "&nbsp;<a target=""_blank"" href=""http://mysite.dk/query?what=amap"
            objReg.Pattern = "^" & strStreetName
            Response.Write "&streetname=" & Trim(objReg.Execute(strInput)(0).value)
            objReg.Pattern = "^" & strStreetName & "( )?" & strStreetNumber
            Response.Write "&streetnumber=" & Right(objReg.Execute(strInput)(0).value, Len(objReg.Execute(strInput)(0).value) - InStrRev(objReg.Execute(strInput)(0).value, "(( )?)"))
            objReg.Pattern = "(([,-]{1})?)( )?" & strZipCode
            Response.Write "&postal_code=" & Right(objReg.Execute(strInput)(0).value, 4)       
            objReg.Pattern = strCityName & "$"
            Response.Write "&city=" & Right(objReg.Execute(strInput)(0).value, Len(objReg.Execute(strInput)(0).value) - InStrRev(objReg.Execute(strInput)(0).value, "( )?"))
           
           
'            &postal_code=2100&city= "    & strInput
            Response.Write """><img src=""Images/billede.gif"" height=""20"" width=""63"" align=""absmiddle"" /></a>"
        else
            Response.Write "Wrong" & strInput
        end if
        Response.Write "<br /><br />"
    end sub
%>

skal have lavet dette om til et javascript der på onkeydown kontrollerer om syntaxen er korrekt. Håber det er forståeligt nok, ellers så skriv.

/kledal