Bifoga fil i ett mail formulär

Jag undrar hur jag gör för att kunna bifoga en fil i ett formulär?

Här nedan för sen ni mitt script för att kunna skicka mail från en sida. Allt funkar bra och de, men nu vill jag kunna bifoga en fil.

Skulle verkligen bli glad om ni kan hjälpa mig med detta.

<%
Response.Buffer = True
Dim strBody 
Dim objCDOMail 	
Dim strMyEmailAddress 
Dim strCCEmailAddress	
Dim strBCCEmailAddress
Dim strReturnEmailAddress	

strMyEmailAddress = "email@email.com"
strCCEmailAddress = "email@email.com"
strBCCEmailAddress = "email@email.com"

strReturnEmailAddress = Request.Form("Email")
strBody = "<h2>E-mail from website</h2>"
strBody = strBody & "<br><b>Name: <br></b>" & Request.Form("Company") & " <br> " & Request.Form("Name")
strBody = strBody & "<br><br><b>Information: </b>"

If (Request.Form("Service1")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("Service1")
End If
If (Request.Form("Service2")) > "" Then 
	strBody = strBody & "<br>  " & Request.Form("Service2")
End If
If (Request.Form("Date")) > "" Then
	strBody = strBody & "<br>  " & Request.Form("Date")

End If
strBody = strBody & "<br><br><b>Telephone: </b>" & Request.Form("Number")
strBody = strBody & "<br><b>E-mail: </b>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Message: </b>" & Request.Form("Message")

If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR 

InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
	strReturnEmailAddress = strMyEmailAddress
End If	

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("Name") & " <" & strReturnEmailAddress & ">"
objCDOMail.To = strMyEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress
objCDOMail.Subject = ""
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2 
objCDOMail.Send

%>

------------------
Tenchu