devo raccogliere la registrazione a newsletter da un form con 2 campi (Nome "MailName" e email "MailSender") i dati, metterli nel DB e inviare l'email

Dove devo mettere il campo MailName ?

codice:
<%@language=VBScript %>
<html>
<head>
<body>
<% 
Function RegExpTest(strng) 
Dim regEx 
Set regEx = New RegExp 
regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$" 
regEx.IgnoreCase = True 
RegExpTest = regEx.Test(strng) 
End Function 
mailSender = trim(request.form("mailSender")) 
errore = false

mailName = trim(request.form("mailName")) 
mailSender = trim(request.form("mailSender")) 
errore = false

if len(mailName) = 0 then
esito = "<span class='testoavviso'>Errore, devi inserire un nome !</span> " 
errore = true 
elseif not(RegExpTest(mailSender)) then 
esito = esito &"<span class='testoavviso'>Errore, devi insere una email valida !</span> " 
errore = true 
else 
esito = "<span class='testo'>Grazie, per esserti iscritto, ora sarai aggiornato sulle novità di TEKMEDIA !</span>"
end if 

if not errore then 
destinatario = "tekmedia@tekmedia.it"

set conn = server.createObject("ADODB.Connection") 
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mapPath("/_private/tekshop.mdb") 

mailName = replace(mailName, "'", "''") 
mailSender = replace(mailSender, "'", "''") 
sql = "INSERT INTO Newsletter (mailName, mailSender) VALUES('" & mailName & "', '" & mailSender & "')"

conn.close 
set conn = nothing 

	Dim sFromName
	Dim sToAddress

	sFromAddress= Request.form("MailSender")
	sToAddress= Request.form("MailRecipient")

	' *******************************************************
	' 
	Sub SendMail()	
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = sFromAddress
Mailer.FromAddress= sFromAddress
Mailer.RemoteHost = "smtp.nettuno.it"
Mailer.AddRecipient "TEKMEDIA Servizio Clienti", "tekmedia@tekmedia.it"
Mailer.Subject    = sSubject	
Mailer.BodyText   = "Registrazione a TEKMEDIA Newsletter"
If Mailer.SendMail then
Response.Write "<span class='testoavviso'>L'email è stata inviata correttamente</span>"
else
Response.Write "<span class='testoavviso'>Errore nell' invio email. (Errore: " & Mailer.Response & ") </span>"
End If
set Mailer = Nothing
End Sub
%>
              </span>

              <% Call SendMail %>
              

      chiudi</div></td>
    </tr>
  </table>
</center>
</body>
</html>