Om man skriver så här i en VB komponent. Hur returneras det sen? Vad skiver man i ASP koden?
Public Function Login(ByVal sMemberName As String, _
ByVal sPassword As String) As Boolean
On Error GoTo errorHandler
Dim rs As ADODB.Recordset
Set rs = GetMemberByName(sMemberName)
Login = ValidatePassword(sMemberName, sPassword, rs("Password"))
Set rs = Nothing
CtxSetComplete
Exit Function
errorHandler:
Set rs = Nothing
HandleError g_modName, "Login"
End Function
<%
Set objEClub = Server.CreateObject("IABEClub.Member")
Set login = objEClub.Login(Request("name"), Request("password"))
Set objEClub = Nothing
If Login(true) Then
Response.Write "Rätt!"
Else
Response.Write "Fel!"
End If
%>
