---
title: "sub"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51811-sub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wiberg"
published: "2002-08-31T12:50:10.000Z"
updated: "2002-09-01T12:59:51.000Z"
replies: 13
views: 272
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/51811-sub"
---

# sub

## #1 — Wiberg, 2002-08-31T12:50Z

```
sub epost(fran,till,amne,txt) 
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = fran
Mailer.FromAddress= fran
Mailer.RemoteHost = "195.22.71.101"
Mailer.AddRecipient till, till
Mailer.Subject    = amne
Mailer.BodyText   = txt
Mailer.Sendmail
end sub

fran = request.form("fran_epost")
till = request.form("till_epost")
txt = request.form("txt")
epost(fran,till,"hej hopp",txt)
```

Kan man inte skicka med värden till en sub så här?

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

## #2 — @nders, 2002-08-31T12:54Z

Jo.

Vad är problemet?

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

## #3 — Wiberg, 2002-08-31T12:56Z

> Kompileringsfel i Microsoft VBScript (0x800A0414)
> Det går inte att använda parenteser när en Sub anropas.

**Det** är problemet. :)

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

## #4 — Jörgen HP, 2002-08-31T13:14Z

Men man anropar en sub med **Call**

```
Call epost()
```

Eller jag fattar ditt problem fel?

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

## #5 — Wiberg, 2002-08-31T13:18Z

```
sub epost(fran,till,amne,txt) 
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName   = fran
Mailer.FromAddress= fran
Mailer.RemoteHost = "195.22.71.101"
Mailer.AddRecipient till, till
Mailer.Subject    = amne
Mailer.BodyText   = txt
Mailer.Sendmail
end sub

fran = request.form("fran_epost")
till = request.form("till_epost")
txt = request.form("txt")
[b]Call[/b] epost(fran,till,"hej hopp",txt)
```

Fick nytt felmess iaf. :)

> Körningsfel i Microsoft VBScript (0x800A01F5)
> Otillåten tilldelning: 'epost'

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

## #6 — Jörgen HP, 2002-08-31T13:36Z

Vad händer om du lägger **hej hopp** i variablen amne ?

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

## #7 — LarsG, 2002-08-31T13:38Z

Är det all kod på sidan?

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

## #8 — Jörgen HP, 2002-08-31T13:39Z

Jag använder liknande till en lösenordspåminnare:

```
pass = RS("req_Password")
user = RS("req_Username")

Call SendPW(pass, email, user)

Sub SendPW(pass, email, user)
Set cdoMail = Server.CreateObject("CDONTS.NewMail")
cdoMail.Host = "mail.domän.nu"
cdoMail.From = "my@email.nu"
cdoMail.To = email
cdoMail.Subject = "Användaruppgifter"
cdoMail.body = "Ditt användarnamn: " & user & vbcrlf & "Lösenord: " & pass & vbcrlf & vbcrlf & "Varsågod, här kommer dina beställda användaruppgifter"

cdoMail.Send
Set cdoMail = Nothing
End Sub
```

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

## #9 — Wiberg, 2002-08-31T13:44Z

Det hjälpte inte att lägga ämnet i en variabel.

LarsG, nej det finns en väldig massa mer kod på sidan. :)

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

## #10 — Wiberg, 2002-08-31T13:46Z

Jahapp. Den ville visst inte heta epost. När jag döpte om den till skicka_epost så funkade det. :)

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

## #11 — Wiberg, 2002-08-31T13:48Z

Nähäpp :)
Nu blev det ju fel igen.

> Microsoft VBScript runtime error '800a000d' 
> 
> Type mismatch: 'skicka_epost'

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

## #12 — Jörgen HP, 2002-08-31T14:54Z

Är du säker på att alla parametrar som skickas in i subrutinen har ett värde?

REDIGERING:
Redigerat med anledning av särskrivning.  :x

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

## #13 — Wiberg, 2002-08-31T16:25Z

Nu plötligt funkar det. Vet inte riktigt vad jag gjorde... :)

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

## #14 — Josef, 2002-09-01T12:59Z

Så bra. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/51811-sub