Visual Basic

Sub HTML2RTF(ByVal oWord As Microsoft.Office.Interop.Word.Application, ByVal sHTMLFileName As String)
  Const wdStory = 6
  Const wdLine = 5
  Const wdExtend = 1
  Const wdCharacter = 1
  Const wdFormatRTF = 6
  With oWord
    .Documents.Open(FileName:=sHTMLFileName)
    .Selection.EndKey(Unit:=wdStory)
    .Selection.MoveUp(Unit:=wdLine, Count:=2, Extend:=wdExtend)
    .Selection.EndKey(Unit:=wdLine, Extend:=wdExtend)
    .Selection.Delete(Unit:=wdCharacter, Count:=1)
    Dim fi As New IO.FileInfo(sHTMLFileName)
    Dim sRTFFileName As String = fi.FullName.Substring(0, fi.FullName.Length - fi.Extension.Length) & ".rtf"
    .ActiveDocument.SaveAs(FileName:=sRTFFileName, FileFormat:=wdFormatRTF)
    .ActiveWindow.Close()
  End With
End Sub

<WebMethod()> _
Public Function SignIn(ByVal Nick As String, ByVal Password As String) As Boolean
    If Not Membership.ValidateUser(Nick, Password) Then Return False

    Dim ticket As New FormsAuthenticationTicket(1, Nick, Now, Now.AddYears(1), True, "")
    Dim strEncryptedTicket As String = FormsAuthentication.Encrypt(ticket)
    Dim cookie As New HttpCookie(FormsAuthentication.FormsCookieName, strEncryptedTicket)
    Context.Response.Cookies.Add(cookie)
    Return True
End Function

<WebMethod()> _
Public Function SignIn(ByVal Nick As String, ByVal Password As String) As Boolean
    If Not Membership.ValidateUser(Nick, Password) Then Return False

    FormsAuthentication.SetAuthCookie(Nick, True)
    Return True
End Function

<WebMethod()> _
Public Function HelloWorld() As String
    If Not User.Identity.IsAuthenticated Then Return ""

    Return "Hello World"
End Function

' **** MailerPath = Your SMTP path (for eg: mail.[domain].com) ***

function CDOSYS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, errText, searchURL)
on error resume next


dim Mailer
set Mailer = server.createobject("CDO.Message")
if err.number <> 0 then
errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description)
CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0
exit function
end if

Mailer.From = FromName & " <" & FromEmail & ">"
Mailer.To = ToName & " <" & ToEmail & ">"
Mailer.TextBody = Message
Mailer.Subject = Subject
with Mailer.Configuration
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailerPath
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = MailerPort
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")="test@yourdomain.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")="youremailpassword"
.Fields.Update
end with
Mailer.Send
if err.number <> 0 then
errText = displayError("CDOSYS", searchURL, err.Number, err.Source, err.Description)
CDOSYS_Mailer = false : set Mailer = nothing : err.clear() : err = 0
exit function
end if
set Mailer = Nothing
CDOSYS_Mailer = true
end function