Click here to Skip to main content
15,938,218 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
Hi Experts.

I am too much worried about my work that how to implement WCF Service in Classic ASP, after a deep searching of last two days , i couldn`t find any solution that will fulfill my problem,
my Code Is:

<%
Dim wsdl, moniker, obj ,resp

wsdl = GetWsdlFromUrl("http://nip003:8080/IssueCreation.svc?wsdl")
moniker = "service:wsdl=" & wsdl & ", "
moniker = moniker + "http://nip003:8080/IssueCreation.svc,"
moniker = moniker + "contract=IssueCreation.IIssueCreation, "
moniker = moniker + "contractNamespace=http://tempuri.org/, "
moniker = moniker + "binding=BasicHttpBinding, "
moniker = moniker + "bindingNamespace=http://tempuri.org/"

Dim objProxy: Set objProxy = GetObject(moniker)
Dim strUrl
strUrl = objProxy.GetData()

Function GetWsdlFromUrl(strUrl)
Dim winHttpReq
Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
resp = winHttpReq.Open("GET", strUrl, False)
winHttpReq.Send
GetWsdlFromUrl = winHttpReq.ResponseText

End Function
%>


my WCF Service is Deployed on a server and I am accessing it by URL:http://nip003:8080/IssueCreation.svc?wsdl.

it throws an Unknown Exception on this line
Dim objProxy: Set objProxy = GetObject(moniker)

I will be very thankful for your Help kindly reply me tru ans or mail me directly majeed.khan@netsoltech.com
Bundle of thanks in advance.

Regards:
Majeed Khan
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900