asp checkbox funktion

hej,
har följande checkbox i ett formulär

<input type="checkbox" name="nyhetsbrev" value="ON" checked>

och följande kod som ska utföra nedan nämda funktioner (skicka brev och lägga till i databasen) om boxen är ikryssad...

men inget skickas och läggs inte till till databasen...

All hjälp uppskattas.

If Request.Form("nyhetsbrev") = "ON" Then
bExist = DBFindInDatabase("maillist_subscribers", sMail, sPrendate)
If bExist = 0 Then
DBAddToDatabase sMail, "maillist_subscribers"
SendEmail sMail	
End If

	Function SendEmail(sMail)

Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.To = sMail
Mail.From = "sitetips@sitetips.nu"
Mail.Subject = "sitetips"
Mail.Body = "body"
Mail.Send
Mail.AddRecipient = sMail
Set Mail = Nothing

End Function

'''This function looks for an e-mail in the database
	Function DBFindInDatabase(Tabellnamn, sMail, sPrendate)
		Dim bExist
		bExist = 0

		Set oRecSet = Server.CreateObject("ADODB.Recordset")
		SQLStmt = "SELECT * FROM " & Tabellnamn & " where Email='" & sMail & "'"
		oRecSet.Open SQLStmt, strConn, 3, 3

		bExist = not oRecSet.eof 

		If bExist Then
			sPrendate = oRecSet("Datum")
			bExist = 1
		End If

		oRecSet.Close
		Set oRecSet = Nothing
		DBFindInDatabase = bExist
	End Function

	'''This function adds to the database
	Function DBAddToDatabase(myEmail, Tabellnamn)
		GetDateAndIP sIP, sDatum, sTid
		Set oConnect = Server.CreateObject("ADODB.Connection")
		oConnect.Open strConn
		oConnect.Execute "INSERT INTO " & Tabellnamn & " (Email, IP, Datum, Tid) VALUES ('" & myEmail & "', '" & sIP & "', '" & sDatum & "', '" & sTid & "');"
		oConnect.Close
		Set oConnect = Nothing
	End Function