Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Consuming a .NET & SOAP webservice with Classic ASP

Status
Not open for further replies.

Bammy217

Programmer
Sep 28, 2002
74
BE
Hey folks,

Okay, am now getting a bit better informed on the .net webservices, though still not a 100% sure, in fact am about 2% sure of my case now (yay!)..
The Problem:

Am (successfully) Consuming a part of the service:

<%
Dim strConnection
Dim oClient
Dim strOutcome
Dim User01
Dim Pass01

Set oClient = Server.CreateObject(&quot;MSSOAP.SoapClient30&quot;)
strConnection = &quot; oClient.ClientProperty(&quot;ServerHTTPRequest&quot;) = True
oClient.MSSOAPInit strConnection

User01 = Request.Form(&quot;txtUsernameFld&quot;)
Pass01 = Request.Form(&quot;txtPasswordFld&quot;)

strResults = objSoapClient.login (User01,Pass01)
%>

Though on an Add User I am falling over... :

<%
Dim strConnection
Dim oClient
Dim strOutcome
Dim User01
Dim Pass01

'Set up the client to the SOAP WebService
Set oClient = Server.CreateObject(&quot;MSSOAP.SoapClient30&quot;)
strConnection = &quot; oClient.ClientProperty(&quot;ServerHTTPRequest&quot;) = True
oClient.MSSOAPInit strConnection

'Define Vars used in form
User01 = Request.Form(&quot;txtUsernameFld&quot;)
Pass01 = Request.Form(&quot;txtPasswordFld&quot;)
Pass02 = Request.Form(&quot;txtSecPasswordFld&quot;)
FName = Request.Form(&quot;txtFirstNameFld&quot;)
LName = Request.Form(&quot;txtLastNameFld&quot;)
EMail = Request.Form(&quot;txtEMailAddressFld&quot;)

If Pass01 == Pass02 Then
strResults = oClient.AddUser (User01,Pass01,FName,LName,EMail)
ElseIf Pass01 <> Pass02 Then
strResults = &quot;Failed becouse of wrong password
confirmation, please press your back button, and try
again&quot;
End If
%>

If anyone has any Ideas, I am all up for it...

Many thx,
Danny

We never fail, we just find that the path to succes is never quite what we thought...
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top