Prob. med formmail

<%
                               
                                dim objmail
                                dim form_item
                                dim body_text
                                dim domain_name
                                dim email_address
                                dim dl_url
                                dim my_email_adress
                               
                                domain_name = lcase(trim(Request.ServerVariables("SERVER_NAME")))
                                if right(domain_name, 4) = "www." then
                                    domain_name = left(domain_name, len(domain_name) - 4)
                                end if
                               
                                'EMAIL ADDRESS TO WHICH THE FORM WILL BE EMAILED :
                                'INCLUDE YOUR EMAIL ADDRESS :
                                email_address = "silenthill@mohaa.dk"
                                my_email_adress = "silenthill@mohaa.dk"
                           
                           
                                Set objmail = CreateObject("CDONTS.Newmail")
                                If IsObject(objmail) = False Then
                                    Set objmail = Nothing
                                    Response.Write "Host system does not contain CDONTS component, which is required for this mailing script ...! Please contact support."
                                    Response.End
                                End If
                               
                                dl_url = "http://www.mohaa.dk/downloads.asp?tipven="&strDLID&""
                                body_text = "A friend have sent you a link from " & domain_name & " : " & vbcrlf & vbcrlf
                                body_text = body_text &  dl_url &vbcrlf & vbCrLf & my_email_adress
'                                for each form_item in Request.Form
'                                    body_text = body_text & form_item & " = " & Request.Form(form_item) & vbcrlf
'                                next
                                body_text = body_text &  "----------------------------------------------" & vbcrlf & vbCrLf
                               
                           
                                if email_address = "" then
                                    email_address = "silenthill@mohaa.dk" & domain_name
                                end if
                           
                                objmail.From = my_email_address
                                objmail.To = email_address
                                'objmail.Cc = ""
                                'objmail.Bcc = ""
                                objmail.Subject = "A friend have sent you a link from " & domain_name
                                objmail.Body = body_text
                               
                                on error resume next
                                objmail.Send
                                if err.number <> 0 then
                                    on error goto 0
                                    on error resume next
                                    objmail.Send  'Retry once
                                end if
                                Set objmail = Nothing
                                on error goto 0
                               
                                Response.Redirect "downloads.asp?sendven=sendt"
                            %>


Det er koden, og det virekr fint nok... men, jeg skal have den til at sende mailen til en bruger, og ikke til mig selv. Derfor skal jeg bruge noget request.form eller noget, for at få indputtet en anden mail i disse 2 linier kode:

                                email_address = "silenthill@mohaa.dk"
                                my_email_adress = "silenthill@mohaa.dk"

den ene skal hente mailen ud fra formen mymail, og den anden fra formen friendmail....

Har prøvet diverse ting, men når jeg prøver, så får jeg ingen mail overhovedet :-/