Nobody/Anonymous - 2004-04-29

Logged In: NO

corrected code:
in functions.vb
line 361:

Function Authenticate\(ByVal strID As String, ByVal

strPassword As String) As DataRow
Dim objDataSet As New DataSet
Dim objDataRow As DataRow
dim sUsr as string
dim sDat as string
sUsr = strid.tolower

    objDataSet.ReadXML\(Server.MapPath\("./"\) & "data/users.aspx"\)

    For Each objDataRow In objDataSet.Tables\("users"\).Rows

sdat = objdatarow("id")
If sdat.ToLower = susr And objDataRow("password") =
EncryptData(strPassword) And objDataRow("activated") = 1 Then
Return objDataRow
End If
Next

    Return Nothing
End Function

sid
sid2k@tiscali.it