dll e login

[ngs]

dove sbaglio? non funziona!

Public Sub login()
email = MyRequest.Form("email")
pws = MyRequest.Form("password")
pws = "areademo"
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("pws-gest.mdb")
strConn = strConn & ";pwd=" & pws
conn.Open (strConn)
Set strSql = "SELECT * FROM password WHERE email='" & email & "'AND password='" & password
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open strSql, conn, 3, 3

If Not (rs.EOF) Then
Myresponse.Write (rs.email)
Myresponse.Write (rs.password)
Myresponse.Write (rs.nome)
Myresponse.Write (rs.cognome)

Else

Myresponse.Write ("nessun dato trovato")
'chiudo il database
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
End If
End Sub

questo è il codice che uso per creare una dll di verifica nome e pass
potete darmi una mano?

[ngs]

non c'è nessuno che mi possa aiutare?
ci sono in rete tutorial sull'uso di visual basic per creare activex?

[xegallo]

ma questa dll che autentica il login si trova sul server o sul client?
se si trova sul server

'codice da inserire in un progetto dll activeX
'nome della classe clsLogin
'nome del progetto Login
Option Explicit

'variabili private
Private m_UserName As String
Private m_PassWord As String
Private m_Conn As ADODB.Connection
Private m_Rs As ADODB.Recordset
Private m_loginOk As Boolean

Sub ConnectDB()
   Dim sSql As String
   Set m_Conn = New ADODB.Connection
   With m_Conn
      'tipo di cursore
      .CursorLocation = adUseClient
      'stringa di connessione
      .ConnectionString = "Provider = microsoft.jet.oledb.4.0;" & _
      "persist security info = false; data source = c:\pws-gest.mdb"
      'modo di accesso ai dati
      .Mode = adModeReadWrite
      'apertura database
      .Open
   End With
   Set m_Rs = New ADODB.Recordset
   
   sSql = "SELECT * FROM pass WHERE username = '" & Me.Username & _
      "' AND password = '" & Me.Password & "'"
   m_Rs.Open sSql, m_Conn
   If m_Rs.RecordCount > 0 Then
      m_loginOk = True
   Else
      m_loginOk = False
   End If
   m_Rs.Close
End Sub

Private Sub Class_Initialize()
   Me.Username = "%"
   Me.Password = "%"
End Sub

Property Get Username() As String
   Username = Trim(m_UserName)
End Property

Property Let Username(ByVal sValue As String)
   m_UserName = Trim(sValue)
End Property

Property Get Password() As String
   Password = Trim(m_PassWord)
End Property

Property Let Password(ByVal sValue As String)
   m_PassWord = Trim(sValue)
End Property

Property Get LoginOK() As Boolean
   LoginOK = m_loginOk
End Property

per provarlo

Option Explicit
'codice da inserire in un exe standard
' ridorda di inserire la tua dll nei riferimenti
Dim Log As login.clsLogin
Private Sub Form_Load()
   Set Log = New login.clsLogin
      Log.Username = "xegallo"
      Log.Password = "ciccio"
      Log.ConnectDB
      MsgBox Log.LoginOK
End Sub

[ngs]

si trova su server!grazie mille!