UUEncode
<%
............
Set tcpip=CreateObject("SHOTIP.Connection")
eol=Chr(13)&Chr(10)
Main()
Sub Main()
......... Here are opening connection to host (SMTP or NNTP) ...
......... Sending the neccesary defined by protocol commands ...
' Start encoding
tcpip.UUEncodeStart("c:\pict.jpg")
' Sending header
tcpip.Send "Subject: Sending an image" & eol
tcpip.Send eol
' The header is sent, uuencoding and sending body:
tcpip.Send "Test example - picture" & eol
tcpip.Send "begin 466 pict.jpg"
Do While True
str=tcpip.UUEncode()
if str="" then Exit Do
tcpip.Send str & eol
Loop
tcpip.Send "`" & eol
tcpip.Send "end" & eol
......... Sending the neccesary defined by protocol commands ...
End Sub
%>