en måde at lave webmail på .... men virker det? - nej :(

Hejsa, jeg er ved at lave et webmail system.
jeg leger med et stykke kode fra en TechNET artikel som er følgende:

<%
Name = session(\"brugernavn\") \'for man når man logger ind
Email = session(\"brugernavn\") & \"@192.168.0.1\" \'bliver byttet ud med et domæne navn


Set objSession = Server.CreateObject (\"CDONTS.Session\")
objSession.LogonSMTP Name, Email
Set objInbox = objSession.GetDefaultFolder(1)

If objInbox Is Nothing Then
Set collMessages = Nothing
Response.Write \"Kan ikke finde mappe!<br>\"
objSession.Logoff
Response.End
End If

Set collMessages = objInbox.Messages

If (collMessages.Count = 0) Then
Response.Write \"<center> User <b>\" & Name & \"</b>\" & _
\" (email: <b>\" & Email & \"</b>) Har ingen beskeder\"
Response.End
objSession.Logoff
end if

Response.Write \"<center> User <b>\" & Name & \"</b>\" & _
\" (email: <b>\" & Email & \"</b>) has <b>\"& _
collMessages.Count & \"</b> message(s) </center> <p>\"

Response.Write \"<TABLE BORDER WIDTH=100% >\"
Response.Write \"<TR> <TD WIDTH=10% > <i>ID</i></TD>\" & _
\"<TD WIDTH=15% > <i>From</i></TD>\" & _
\"<TD WIDTH=15% > <i>Subject</i> </TD> \" & _
\"<TD WIDTH=60% > <i>Message Text</i></TD> </TR>\"
For Mes = 1 To collMessages.Count
Set objMessage = collMessages.Item(Mes)
Response.Write \"<TR> <TD WIDTH=10% >\" & Mes & \"</TD>\" & _
\"<TD WIDTH=15% >\" & objMessage.Sender.Name & \"</TD>\" & _
\"<TD WIDTH=15% >\" & objMessage.Subject & \"</TD>\" & _
\"<TD WIDTH=60% >\" & objMessage.Text & \"</TD> </TR>\"
Next

Response.Write \"</TABLE>\"
%>
- mere eller mindre modificeret :)

nå men sprøgsmålet, hvordan for jeg flyttet beskederne fra CONTS mappen over i en access database via ASP/noget andet automatisk?

kan det lade sig gøre?? - ellers er jeg meget modtagelig for alternative metoder (med samme pris!! dvs. 0kr. ;)

Mvh
Morten Jørgensen