1
Is there anyone that knows php and asp? if you do would you translate this
<%
txtUsername = UCase(Request.Form("txtUsername"))
txtPassword = Request.Form("txtPassword")
IsValid = "FALSE"
AccessLevel = "-1"
If Len(txtUsername)>0 Then
Set oSecurity = Server.CreateObject("HELM.CSecurity")
On Error Resume Next
Set rsSecureUser = oSecurity.LoginUser(txtUsername, txtPassword)
If Err.Number = 0 Then
On Error Goto 0
IsValid = "TRUE"
AccessLevel = rsSecureUser("AccountType")
Else
errText=err.Description
End If
Set rsSecureUser = Nothing
Set oSecurity = Nothing
Else
errText="No Username provided"
End if
Response.Write "" & vbcrlf
Response.Write "" & vbcrlf
Response.Write "" & IsValid & "" & vbcrlf
Response.Write "" & errText & "" & vbcrlf
Response.Write "" & txtUsername & "" & vbcrlf
Response.Write "" & AccessLevel & "" & vbcrlf
Response.Write ""
%> and
<%
On Error Resume Next
'Login against HelmDB
IsOk = False
If Not IsOk Then
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set xmldom = Server.CreateObject("MSXML2.DOMDocument")
xmlhttp.open "POST", "http://yourcontrolpanel.com/webservices/login.asp", False
xmlhttp.setRequestHeader "content-type"," application/x-www-form-urlencoded"
xmlhttp.send("txtUsername="&postUsername&"&txtPassword="&postPassword)
xmldom.loadXML(xmlhttp.responseText)
If xmldom.getElementsByTagName("IsValid").item(0).text ="TRUE" Then
IsOk = True
ProfileSource = "HELM"
End If
set xmldom = nothing
set xmlhttp= nothing
End If
If IsOk Then
'Valid User credentials...
Else
'Invalid user credentials...
End If
%>
as im trying to reuse logins from my hosting control to xoops.
Thank you!
