Billed i nyhedsmail

Jeg ønsker at få vist et billed i nyhedsbrevet men hvoran koden er

<%Dim afsender_mail, afsender_navn, mailserver, subject, body, priority, modtager_liste
afsender_mail = "xxx@xxx.dk"
afsender_navn = Trim(Request.Form("afsender_navn"))
mailserver = "xxx.x.x.x"
subject = Trim(Request.Form("subject"))
headline = Trim(Request.Form("headline"))
body = Trim(Request.Form("body"))
signatur = Trim(Request.Form("signatur"))
priority = Request.Form("priority")
modtager_liste ="ab911@mail.dk"
Response.Cookies("Nyhedsbrev")("afsender_mail") = afsender_mail
Response.Cookies("Nyhedsbrev")("afsender_navn") = afsender_navn
Response.Cookies("Nyhedsbrev")("mailserver") = mailserver
Response.Cookies("Nyhedsbrev")("subject") = subject
Response.Cookies("Nyhedsbrev")("headline") = headline
Response.Cookies("Nyhedsbrev")("modtager_liste") = modtager_liste
Response.Cookies("Nyhedsbrev").Expires = Date+365
Set mail = Server.CreateObject("JMail.SMTPMail") 'Opretter objekt af JMail-komponent
With mail
.ServerAddress = mailserver
.Sender = afsender_mail
.SenderName = afsender_navn
.Subject = subject
.Body = headline & vbNewLine & " " & vbNewLine & body & vbNewline & " " & vbNewLine & signatur



.Priority = priority

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../database/brugere.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT email.email, email1.email1 FROM email,email1")

If Not rs.EOF Then
Do While Not rs.EOF
.AddRecipient(rs("email"))
.AddRecipient(rs("email1"))
Response.Write "Sender e-mail til: " & rs("email") & " <br>"
Response.Write "Sender e-mail til: " & rs("email1") & " <br>"
rs.MoveNext
Loop
For i = 1 to intCount
  If Not JMail.Execute Then
    Response.Write("ERROR MESSAGE: " & JMail.ErrorMessage & "<br>" & vbCrLf)
    Response.Write("ERROR SOURCE: " & JMail.ErrorSource & "<br>" & vbCrLf)
    Response.Write("LOG: <pre>" & JMail.Log & "</pre>" & vbCrLf)
  End If
  If CInt(i/20) = i/20 Then JMail.Close
Next
Else
Response.Redirect("mail_write.asp")
End If
Conn.Close
Set Conn = Nothing
If modtager_liste <> "" Then
.HideRecipients = modtager_liste
End If
.Execute() 'Sender e-mails
mail.Close()
End With
Set mail = Nothing
Response.Write "Færdig! - Nyhedsbrev sendt"
%>