Executer une function ASP via url

Private Declare Function OuvreInternet Lib "wininet" _
     Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, _
     ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function fermeInternet Lib "wininet" _
     Alias "InternetCloseHandle" (ByVal hInet As Long) As Integer
Private Declare Function Ouvrepage Lib "wininet" _
     Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, _
     ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, _
     ByVal dwContext As Long) As Long

Private Sub Command1_Click()
internet = OuvreInternet("toto", 0, vbNullString, vbNullString, 0) 'ouvre Internet
    url = Ouvrepage(internet, "http://Monserveur/matiere.asp?Fonction=2&Codematiere=" + rc!codematiere, vbNullString, 0, &H400000 Or &H4000000 Or &H80000000, 0)
    fermeInternet url 'ferme la page
    fermeInternet internet 'ferme Internet
End Sub

sur ma page ASP matiere.asp j'ai ceci
matiere=request("codematiere")
SELECT CASE request("fonction")
		CASE "1"
					RS.OPEN "Delete from ComposantNuance"
		CASE "2"
					RS.OPEN "ComposantNuance",conn0,1,3
					RS.ADDNEW
					RS("Composant").value=matiere
					RS.UPDATE
					RS.CLOSE
					
		CASE "3"

                 sql ="select * from apps.mtl_system_items_b msib," & _
		 " where msib.ORGANIZATION_ID = 147" & _
                 " and msib1.segment1 = '" & matiere & "'"		
END SELECT