Call a WCF Service from Classic ASP

Dim wsdl, moniker, obj

wsdl = GetWsdlFromUrl("http://localhost:8731/Design_Time_Addresses/WcfServiceLibrary1/Service1/?wsdl")

moniker = "service:wsdl=" & wsdl & ", "
moniker = moniker + "address=http://localhost:8731/Design_Time_Addresses/WcfServiceLibrary1/Service1/,"
moniker = moniker + "contract=IService1, "
moniker = moniker + "contractNamespace=http://tempuri.org/, "
moniker = moniker + "binding=WSHttpBinding_IService1, "
moniker = moniker + "bindingNamespace=http://tempuri.org/"


Set objProxy = GetObject(moniker)

Dim str
str = objProxy.GetData("2")
Response.Write(str)




Function GetWsdlFromUrl(strUrl)

Dim winHttpReq, resp

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

GetWsdlFromUrl = winHttpReq.ResponseText

End Function

My Virtual Rainforest





(33 trees)



Plant some trees for me

send mail using gmail smtp server

try
{

MailMessage mm = new MailMessage(From.Trim(),To);
mm.BodyEncoding = Encoding.UTF7;
mm.Subject = Subject.Trim();
mm.Body = MessageTxt.Trim() + "\n";
mm.Priority = MailPriority.High;
mm.IsBodyHtml = false;



if (FileSt != "")
{
Attachment msgAtt = new Attachment(FileSt);
mm.Attachments.Add(msgAtt);
}

SmtpClient sc = new SmtpClient();

sc.Credentials = new System.Net.NetworkCredential("sudesh.withanage", "priyanka");
sc.Port = 587;
sc.Host = "smtp.gmail.com";
sc.EnableSsl = true;
// sc.SendCompleted +=new SendCompletedEventHandler();


sc.Send(mm);

MessageBox.Show("success");

}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}

gmail pop

pop.gmail.com

995

gmail smtp

587
smtp.gmail.com