sub

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?

Jo.

Vad är problemet?

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

Det är problemet. :)

Men man anropar en sub med Call

Call epost()

Eller jag fattar ditt problem fel?

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'

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

Är det all kod på sidan?

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

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

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

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

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

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'skicka_epost'

Ä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

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

Så bra. :)