---
title: "action i formulär..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68131-action-i-formulär"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "snajgel"
published: "2003-02-13T08:53:23.000Z"
updated: "2003-02-13T15:06:39.000Z"
replies: 22
views: 554
page: 1
pages: 2
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/68131-action-i-formulär"
---

# action i formulär...

_Sida 1 av 2._

## #1 — snajgel, 2003-02-13T08:53Z

kan man ha 2 st actions till ett formulär?
typ:

```
<form method="POST" action="add.asp" action="sendmail.asp">
```

fast just d där fungerar inte, det borde gå på nått annat sätt... 

det jag vill är att den både ska lägga till posten i db'n och skicka ett mail till någon... 
just nu använder jag cdonts i sendmail.asp..

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

## #2 — @nders, 2003-02-13T08:57Z

Du får väl låta action-filen göra mer än en sak?
Annars kan du använda server.transfer för att förflytta från den ena mottagarsidan till den andra.

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

## #3 — snajgel, 2003-02-13T08:58Z

vadå? ska jag lägga add.asp och sendmail.asp i samma fil?

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

## #4 — @nders, 2003-02-13T09:02Z

Tja, en asp-fil kan göra mer än en sak.
Annars, som sagt, server.transfer.

mvh

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

## #5 — snajgel, 2003-02-13T10:31Z

förstår inte.... :( hur skulle d c ut? är inte så grym på d här...
har testat att slå ihop mina filer på lite olika sätt, men jag får inte nått mail, d skrivs dock in i db'n...
finns det någon som kan ge mig ett exempel?

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

## #6 — OveRRidE, 2003-02-13T11:23Z

Visa koden i de båda filerna, kanske?

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

## #7 — snajgel, 2003-02-13T11:32Z

oj.. sorry...
add.asp

```
<!-- #include file="adovbs.inc" -->

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/kontobest.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   Addera = "SELECT * FROM kontobest"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew

	RecSet("Fornamn") = Request.Form("fornamn")
	RecSet("Efternamn") = Request.Form("efternamn")
	RecSet("Titel") = Request.Form("titel")
	RecSet("Avd") = Request.Form("avd")
	RecSet("tele") = Request.Form("tele")

	RecSet.Update
	RecSet.Close
	Connect.Close %>

Följande uppgifter har nu lagts till:<p>

Förnamn:<br><b><% =Request.Form("fornamn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Titel:<br><b><% =Request.Form("titel") %></b><p>
Avdelning:<br><b><% =Request.Form("avd") %></b><p>
Tele:<br><b><% =Request.Form("tele") %></b><p>

Lägg till <a href="default.asp">fler poster</a>.
```

sendmail.asp

```
<%
response.buffer = true
message = "The following data was submitted:"
message = message & vbcrlf & vbcrlf
for each item in request.form
message = message & item & ": " & request.form(item) & vbcrlf
next
set mailer = server.createobject("CDONTS.NewMail")
mailer.subject = "konobeställning"
mailer.from = request.form("email")
mailer.to = "mail@domain.se" 
mailer.body = message
mailer.send
set mail = nothing
response.redirect("tack.asp") 
%>
```

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

## #8 — OveRRidE, 2003-02-13T11:41Z

Om du bara lägger ihop dem såhär, vad händer då? Varifrån kommer request.form("email") ? Finns den i formuläret?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/kontobest.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kontobest"

RecSet.Open Addera, Connect, 3, 3

RecSet.AddNew

RecSet("Fornamn") = Request.Form("fornamn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Titel") = Request.Form("titel")
RecSet("Avd") = Request.Form("avd")
RecSet("tele") = Request.Form("tele")

RecSet.Update
RecSet.Close
Connect.Close 

'# send mail #
message = "The following data was submitted:"
message = message & vbcrlf & vbcrlf
for each item in request.form
message = message & item & ": " & request.form(item) & vbcrlf
next
set mailer = server.createobject("CDONTS.NewMail")
mailer.subject = "konobeställning"
mailer.from = request.form("email")
mailer.to = "mail@domain.se" 
mailer.body = message
mailer.send
set mail = nothing
%>

Följande uppgifter har nu lagts till:<p>

Förnamn:<br><b><% =Request.Form("fornamn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Titel:<br><b><% =Request.Form("titel") %></b><p>
Avdelning:<br><b><% =Request.Form("avd") %></b><p>
Tele:<br><b><% =Request.Form("tele") %></b><p>

Lägg till <a href="default.asp">fler poster</a>. <br><br>
```

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

## #9 — snajgel, 2003-02-13T11:47Z

hehe... det där funkade, men när du frågade insåg jag att det måste finnas med "email" på forumulärsidan.... \*suck\* :stud 

tack så mycket...  :bire

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

## #10 — snajgel, 2003-02-13T12:11Z

kom på en grej... en lite forts.
Om man har en checkbox i formuläret och vill att det ska gå iväg mail till en annan adress oxå när den är ikryssad, 
hur ska man lösa d?

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

## #11 — OveRRidE, 2003-02-13T12:19Z

```
<input type="checkbox" name="blnMail">
```

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/kontobest.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kontobest"

RecSet.Open Addera, Connect, 3, 3

RecSet.AddNew

RecSet("Fornamn") = Request.Form("fornamn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Titel") = Request.Form("titel")
RecSet("Avd") = Request.Form("avd")
RecSet("tele") = Request.Form("tele")

RecSet.Update
RecSet.Close
Connect.Close 

[b]if cstr(request.form("blnMail")) = "on" then [/b]

'# send mail #
message = "The following data was submitted:"
message = message & vbcrlf & vbcrlf
for each item in request.form
message = message & item & ": " & request.form(item) & vbcrlf
next
set mailer = server.createobject("CDONTS.NewMail")
mailer.subject = "konobeställning"
mailer.from = request.form("email")
mailer.to = "mail@domain.se" 
mailer.body = message
mailer.send
set mail = nothing

[b]end if[/b]
%>

Följande uppgifter har nu lagts till:<p>

Förnamn:<br><b><% =Request.Form("fornamn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Titel:<br><b><% =Request.Form("titel") %></b><p>
Avdelning:<br><b><% =Request.Form("avd") %></b><p>
Tele:<br><b><% =Request.Form("tele") %></b><p>

Lägg till <a href="default.asp">fler poster</a>. <br><br>
```

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

## #12 — snajgel, 2003-02-13T12:45Z

men ska man ha 1 "'# send mail#" för varje adress man ska skicka till eller?

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

## #13 — OveRRidE, 2003-02-13T13:01Z

Den raden en kommentar i koden, den gör ingenting, förutom visar var e-mailfunktionen börjar. Du kan ta bort den ifall du vill. 

Skall du skicka till fler mottagare är det nog bättre att lägga till dem i samlingen AddRecipient. Alltså:

```
mailer.to = "mail@domain.se" 
mailer.AddRecipient = "banan@rikard.se"
mailer.AddRecipient = "apple@bire.nu"
mailer.AddRecipient = "morot@snabelanders.com"
```

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

## #14 — snajgel, 2003-02-13T13:07Z

men d jag vill uppnå är att formuläret ska alltid skickas till <mig@domain.se>, men om en viss checkbox är ikryssad så ska den även skicka till <dig@domain.se>

är du me?

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

## #15 — OveRRidE, 2003-02-13T13:13Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/kontobest.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kontobest"

RecSet.Open Addera, Connect, 3, 3

RecSet.AddNew

RecSet("Fornamn") = Request.Form("fornamn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Titel") = Request.Form("titel")
RecSet("Avd") = Request.Form("avd")
RecSet("tele") = Request.Form("tele")

RecSet.Update
RecSet.Close
Connect.Close 

'# send mail #
message = "The following data was submitted:"
message = message & vbcrlf & vbcrlf
for each item in request.form
message = message & item & ": " & request.form(item) & vbcrlf
next
set mailer = server.createobject("CDONTS.NewMail")
mailer.subject = "konobeställning"
mailer.from = request.form("email")
mailer.to = "mig@domain.se" 
[b]   if cstr(request.form("blnMail")) = "on" AND request.form("email") <> "" then 
      mailer.AddRecipient = request.form("email")
   end if[/b]
mailer.body = message
mailer.send
set mail = nothing

%>

Följande uppgifter har nu lagts till:<p>

Förnamn:<br><b><% =Request.Form("fornamn") %></b><p>
Efternamn:<br><b><% =Request.Form("efternamn") %></b><p>
Titel:<br><b><% =Request.Form("titel") %></b><p>
Avdelning:<br><b><% =Request.Form("avd") %></b><p>
Tele:<br><b><% =Request.Form("tele") %></b><p>

Lägg till <a href="default.asp">fler poster</a>. <br><br>
```

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

## #16 — snajgel, 2003-02-13T14:06Z

får felmedelande:

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'mailer.AddRecipient'
/kontobest/add2.asp, line 49

 :( 
så här ser det ut...
checkboxen heter "cambio"

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/kontobest.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kontobest"

RecSet.Open Addera, Connect, 3, 3

RecSet.AddNew

RecSet("Fornamn") = Request.Form("fornamn")
RecSet("Efternamn") = Request.Form("efternamn")
RecSet("Titel") = Request.Form("titel")
RecSet("Avd") = Request.Form("avd")
RecSet("Tele") = Request.Form("tele")
RecSet("Ansnamn") = Request.Form("ansnamn")
RecSet("Ansemail") = Request.Form("ansemail")

RecSet.Update
RecSet.Close
Connect.Close 

'# send mail #
message = "The following data was submitted:"
message = message & vbcrlf & vbcrlf
for each item in request.form
message = message & item & ": " & request.form(item) & vbcrlf
next
set mailer = server.createobject("CDONTS.NewMail")
mailer.subject = "konobeställning"
mailer.from = request.form("ansemail")
mailer.to = "mig@domain.se" 
mailer.AddRecipient = "dig@domain.se"
if cstr(request.form("cambio")) = "on" AND request.form("ansemail") <> "" then 
      mailer.AddRecipient = request.form("ansemail")
   end if

mailer.body = message
mailer.send
set mail = nothing
%>
```

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

## #17 — Engine^, 2003-02-13T14:22Z

CDONTS har ingen AddRecipient-metod?

Testa följande:

```
strTo = cstr(mailer.to)
if cstr(request.form("cambio")) = "on" AND request.form("ansemail") <> "" then 
    strTo = strTo & ";" & request.form("ansemail")
end if
mailer.to = strTo
```

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

## #18 — snajgel, 2003-02-13T14:25Z

men var och hur ska jag skriva den andra mailadressen?
nu får ursäkta men jag e inte helt me på de här... ;)

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

## #19 — OveRRidE, 2003-02-13T14:27Z

> CDONTS har ingen AddRecipient-metod?

Hrm, skumt. Jag tog det ur ett kodexempel här på wF som verkade fungera.. :o

Men jag kan inte CDONTS så bra så. ;)

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

## #20 — Engine^, 2003-02-13T14:43Z

> **snajgel skrev:**
>
> men var och hur ska jag skriva den andra mailadressen?
> nu får ursäkta men jag e inte helt me på de här... ;)

På formulärssidan... om du klickar i en box, som innebär att du vill skicka till flera kan du ju ha en input där i vilken du skriver in den andra mailadressen.

> **OveRRidE skrev:**
>
> Men jag kan inte CDONTS så bra så.

Jag kan det inte alls :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/68131-action-i-formulär  
Nästa sida: https://www.webforum.nu/amne/asp/68131-action-i-formulär/page2.md