JavaScript help - conversion from vbscript

Need help with converting vbscript to javascript

(need this button to reference a javascript function instead of this vbscript function)

<BUTTON class=SaveButton id=btnReceive name=btnReceive accesskey="r" style="width:100" onClick="ReceiveProjects()"><U>R</U>eceive</BUTTON>

<script language="vbScript">

Sub ReceiveProjects()
Dim objParam, objFrame, strPrimKey, arrPK
Dim arrPKmult, strPKmult, blnSelected
Dim strMPList,i,j

blnSelected=false

strMPList=""

For each objParam in fraMain.document.all.tags("img")
If objParam.style.display<>"none" AND right(objParam.src,9)="chkon.gif" then
blnSelected=True
strPrimKey = objParam.parentelement.parentelement.getAttribute("PrimaryKey")
arrPK=split(strPrimKey,"=")
If Ubound(arrPK)=1 Then
strMPList=strMPList&"," & arrPK(1)
Else
arrPKmult=split(strPrimKey,"AND")
strPKmult=""
For j=0 to Ubound(arrPKmult)
arrPK=split(arrPKmult(j),"=")
If Len(Trim(strPKmult))=0 Then
'Test Master Param
strPKmult=trim(arrPK(1))
Else
'Template Master Param
strPKmult=trim(strPKmult)&"."&arrPK(1)
End If
Next
strMPList=strMPList&"," & trim(strPKmult)
End If
End If
Next

If Len(trim(strMPList))>0 Then
strMPList=Right(strMPList,Len(strMPList)-1)
blnSelected=True
End If


If blnSelected Then
If Len(document.all("hdnReportFile").value) > 0 Then
'Ask to print Label Report
Dim iAns
iAns = msgbox("Do you want to print labels?", 4, "Print Labels")
If iAns = 6 Then
PrintSampleRequest strMPList
End If
End If

frmMain.FormAction.value="ExecProc"
frmMain.hdnProjectIds.value=strMPList
frmMain.ExecProc.value="GEN_spPROJECTRECEIVEupd"
frmMain.submit
Else
alert "You must select at least one Project to receive."
End If

End Sub
</script>

JavaScript Visual Basic

Projekt ID: #15648916

Om projektet