Skicka sida med E-post

Någon som vet hur man med hjälp av en länk kan skicka en hel sida med epost?

Jag vill inte använda Explorers kommando
Arkiv: Skicka sida med epost, utan jag vill att när användaren klickar på en knapp, skickas hela sidan så som den ser ut som ett mail i html-format till en viss epost adress.

Alltså: Sidan skall inte bifogas, utan ligga i brevets body.

Jag använder en Apache server med ChilliSoftASP, om det är till nån hjälp.

------------------
667 - The neighbour of the beast.

Några sådanna funktioner finns inte direkt i JavaScript utan där får du a) Använda Internet Explorers inbyggda funktion för detta eller b) Leta reda på en serverside-funktion som du skickar en url till så blockar den ner sidan och skickar det som ett e-post meddelande eller c) letar reda på en online-tjänst som har denna funktion.

------------------
/ J

hmm... är nog alternativ B) som är mest aktuellt. Alltså en serveerside funktion som skickar hela sidan som ett html-mail.

Men jag har ingen aning om hur jag ska bära mig åt.

tips???

------------------
667 - The neighbour of the beast.

Jag har inte sett någon sådan funktion, men jag flyttar in tråden på ASP-forumet (eftersom du använder ASP) så kanske du kan få något tips där.

------------------
/ J

Har tagits upp förut.

Sök på XMLHTTP så får du upp ett antal inlägg om ämnet ...

cya,
PatrikB

------------------
*ordning och reda!, pengar på fredag.*

hmm.. har testat allt jag hittat där, men det funkar inte.

får felet
-------------
Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/print_to_email.asp, line 4

Systemmessage, messageid = 0x800401f3

---------------

med denna kod:
--------

<%
Function GetHTML(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send

strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

GetHTML = strReturn
End Function

' Skriv ut sidan:
Response.Write GetHTML("http://www.frapett.se/")

' Ladda ned:
' Response.ContentType = "application/x-msdownload"
' Response.AddHeader "Content-Disposition", "filename=Something.asp"
' Response.BinaryWrite GetHTML("http://www.aspfaqs.com/")

%>

------------------
667 - The neighbour of the beast.