Anvende DLL sammen med ASP
Hejsa.Jeg forsøger at bygge en simpel DLL fil i VB 6.0, som skal bruges sammen med en ASP side.
Min opbygning er således :
Jeg har en DLL fil der hedder : prjAddClient.dll og indeholder følgende kode i class ved navn : "AddClient" :
:
-------------------
Public Function Add(x As Double, y As Double) As Double
Dim objSoapClient As New SoapClient
objSoapClient.ClientProperty("ServerHTTPRequest") = True
Call objSoapClient.mssoapinit("http://localhost/AddServer.wsdl", _
"AddServer", _
"AddServerSoapPort")
Add = objSoapClient.Add(x, y)
End Function
-------------------
Så har jeg en DLL der hedder prjAddServer.dll
den indeholder denne kode i class ved navn : "AddServer" :
-------------------
Public Function Add(ByVal NumberOne As Long, _
ByVal NumberTwo As Long) As Double
Add = NumberOne + NumberTwo
End Function
-------------------
Til sidst har jeg en ASP fil der indeholder følgende kode :
-------------------
<%
'Create an instance of the component
Dim objAdd
Set objAdd = Server.CreateObject("prjAddClient.AddClient")
'Add two numbers and output the value!
Response.Write(objAdd.Add(4,5))
%>
---------------------
Begge DLL filer er registreret med regsvr32.exe på min PC som også kører min IIS 6.0. Da jeg registrerede dem, meldte den succesfully registrated, eller hvad den nu siger! Så de burde være OK!
Men jeg får hele tiden denne fejl når jeg kalder mit ASP script! :
------------------
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/test.asp, line 4
800401f3
------------------------------
Nogen der ved hvad jeg gør galt?
Meningen er at jeg vil forsøge at lave nogle DLL filer som skal foretage nogle SQL forespørgelser i en database ud fra nogle data som kommer fra ASP koden. Herefter skal den returere nogle resultater ud fra de forespørgelser den har lavet!
Altså en webservice.
Håber en kan hjælpe!
/Lasse Rasch
