Sende user logon med mail

Hej

Jeg ville gerne sende username videre til en mail adresse når der logges på en bestemt side. Jeg har fundet dette login script, som virker fint.

<%

SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strUsername = unQuote(request("username"))
        strPassword = unQuote(request("password"))

  Sql = "Select Count(*) as Found from user where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../DB/database.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "yes mate"
    Response.Redirect "result.asp"
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if
%>

Hvis login er korrekt, så sendes folk til siden result.asp, hvorfra jeg gerne ville sende mail. Mailen kommer fint frem, men jeg kan ikke rigtig få username med i mailen, som sendes fra result.asp siden:
<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = "web@mypage.dk"
msg.FromName = "login"
msg.AddRecipient "mail@mypage.dk"
msg.Subject = "Download page has been visited " & Request.ServerVariables("REMOTE_ADDR")
msg.Body = "page has been visited by " & (request.form("username"))

if not msg.Send("mail3.cliche.dk" ) then
    Response.write " "
else
    Response.write " "
end if
%>

Nogen der kan hjælpe???

Hilsen

Kim