while getting used to the program and adjusting our newsletter scripts to the new program, i found out that dropping the message directly to the outbound is the fastest... but it requires to pre-encode all data, so i look for a quoted printable encoding everywhere... and found out i had to write it. now i think it might be good to have it out so others can use it.
so here it is. remarks are in german, which should not matter, it runs and encodes any string (or message) to quoted printable.
function QPencode(byval eingabe)
dim zeile
dim ausgabe
dim neuzeile
dim zeichen
dim ascii
dim i
dim j
ausgabe = ""
zeile = split (eingabe, vbnewline) ' Eingabe in Zeilen splitten
for i = lbound(zeile) to ubound (zeile) ' alle Zeilen durchlaufen
neuzeile = ""
for j = 1 to len(zeile(i))
zeichen = mid(zeile(i), j, 1)
ascii = asc(zeichen)
if (ascii < 32) or (ascii = 61) or (ascii > 126) then
zeichen = "=" & ucase(cstr(hex(ascii)))
end if
if len(neuzeile) + len(zeichen) >= 76 then ' wenn die neue Zeile zu lang würde...
ausgabe = ausgabe & neuzeile & "=" & vbnewline
neuzeile = ""
end if
neuzeile = neuzeile & zeichen
next ' j ' nächstes Zeichen
ausgabe = ausgabe & neuzeile & vbnewline
next ' i ' nächste Zeile
QPencode = ausgabe
end function
btw this is asp with vbscript of course...
chris
