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("MSSOAP.SoapClient30"
strConnection = " oClient.ClientProperty("ServerHTTPRequest"
= True
oClient.MSSOAPInit strConnection
User01 = Request.Form("txtUsernameFld"
Pass01 = Request.Form("txtPasswordFld"
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("MSSOAP.SoapClient30"
strConnection = " oClient.ClientProperty("ServerHTTPRequest"
= True
oClient.MSSOAPInit strConnection
'Define Vars used in form
User01 = Request.Form("txtUsernameFld"
Pass01 = Request.Form("txtPasswordFld"
Pass02 = Request.Form("txtSecPasswordFld"
FName = Request.Form("txtFirstNameFld"
LName = Request.Form("txtLastNameFld"
EMail = Request.Form("txtEMailAddressFld"
If Pass01 == Pass02 Then
strResults = oClient.AddUser (User01,Pass01,FName,LName,EMail)
ElseIf Pass01 <> Pass02 Then
strResults = "Failed becouse of wrong password
confirmation, please press your back button, and try
again"
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...
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("MSSOAP.SoapClient30"
strConnection = " oClient.ClientProperty("ServerHTTPRequest"
oClient.MSSOAPInit strConnection
User01 = Request.Form("txtUsernameFld"
Pass01 = Request.Form("txtPasswordFld"
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("MSSOAP.SoapClient30"
strConnection = " oClient.ClientProperty("ServerHTTPRequest"
oClient.MSSOAPInit strConnection
'Define Vars used in form
User01 = Request.Form("txtUsernameFld"
Pass01 = Request.Form("txtPasswordFld"
Pass02 = Request.Form("txtSecPasswordFld"
FName = Request.Form("txtFirstNameFld"
LName = Request.Form("txtLastNameFld"
EMail = Request.Form("txtEMailAddressFld"
If Pass01 == Pass02 Then
strResults = oClient.AddUser (User01,Pass01,FName,LName,EMail)
ElseIf Pass01 <> Pass02 Then
strResults = "Failed becouse of wrong password
confirmation, please press your back button, and try
again"
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...