---
title: "asp checkbox funktion"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/117244-asp-checkbox-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jake"
published: "2004-12-03T10:04:17.000Z"
updated: "2004-12-03T17:09:03.000Z"
replies: 2
views: 281
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/117244-asp-checkbox-funktion"
---

# asp checkbox funktion

## #1 — jake, 2004-12-03T10:04Z

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
```

Permalänk: https://www.webforum.nu/p/117244

## #2 — J.N., 2004-12-03T15:00Z

HEJ!

Har du testat om du kommer du till DBFindInDatabase eller DBAddToDatabase?

Saknas det inte ha ett end if i första kodsnutten, eller det är inte all kod? Även om den saknas borde man komma till någon av funktionerna.

Permalänk: https://www.webforum.nu/p/1499094

## #3 — jake, 2004-12-03T17:09Z

hej,
tack för svaret. 
efter att ha läst det satt gick jag igenom koden igen, det var inte databaskopplingen det var fel på utan jag  fann att Mail.AddRecipient = sMail inte stöds av cdonts

tack igen, nu fungerar det.

Permalänk: https://www.webforum.nu/p/1499210

---

Tråden på webben: https://www.webforum.nu/amne/asp/117244-asp-checkbox-funktion