maillista

Ja, jag försöker att skapa en maillista där jag har ett formulär och en svarssida, men jag får ett felmeddelande och har svårt att fatta vad detta beror på. Eftersom att alla här är så duktiga så tänkte jag äh..va f-n. Så här är den. (detta är "skickasidan")

<%
Dim ConnectString, conn
ConnectString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/databas/databasen.mdb")&";pwd=olle"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

sql = "SELECT  email FROM users "
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open sql, conn, 3, 3
%>
<%
Set JMail  = Server.CreateObject("JMail.SMTPMail")
  JMail.ServerAddress = "smtp.severn.se"

Name = Request.Form("name")
SenderEmail = Request.Form("email")
Subject = "Emnet er: " & Request.Form("subject")
email = Request.Form("email")
Comments = Request.Form("comments")
reciptient = Request.Form("reciptient")
JMail.Sender = Senderemail
JMail.Subject = Subject 

JMail.AddRecipient Recipient 

'hämtar poster ur db
DO WHILE not rsUsers.EOF
JMail.addrecipientbcc rsUsers("email")
rsUsers.movenext
LOOP

JMail.Body = "Name : " & Request.Form("name") & vbcrlf & vbcrlf _
& "e-mail : " & Request.Form("email") & vbcrlf & vbcrlf _
& "My Mesg.:  " & Request.Form("comments")
 

JMail.Priority = 3 

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 
JMail.Execute

rsUsers.close
set rsUsers = nothing
conn.close
set conn = nothing
%>

Hoppas att ni orkar sätta er in i denna dumma fråga?!

MVH Jesper

Inkludera alltid felmeddelandet i ditt inlägg så blir mycket lättare att hjälpa till. :)

Mvh,

------------------
Har du sett Bires lilla häst?

Ser ut så här:

Sidan kan inte visas
Det uppstod ett problem med sidan du försöker nå och den kan inte visas.

--------------------------------------------------------------------------------

Försök med något av följande:

Öppna startsidan för sidan.nu och sök efter länkar till den information du vill ha.
Klicka på knappen Uppdatera eller försök igen senare.

Klicka på Sök om du vill leta efter information på Internet.
Du kan även se en lista över relaterade platser.

HTTP 500 - Internt serverfel
Internet Explorer

MVH Jesper

[Redigerat av Jesper T den 19 dec 2001]

Då har du vänliga / egna felmeddelanden påslagna i Internet Explorer. Stäng av dem så får du riktiga felmeddelanden.

Tools -> Internet Options -> Advanced -> Friendly HTTP Error messages

eller

Verktyg -> Internetalternativ -> Avancerat -> Egna http-felmeddelanden.

Typ.

Mvh,

------------------
Har du sett Bires lilla häst?

Förstår att dessa felmeddelanden är lite smidigare!

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'JMail.addrecipientbcc'

/lista/mailsend.asp, line 29

//Jesper

Kan det vara så att den försöker lägga till ett nullvärde till bcclistan?

Prova detta:

If Len("" & rsUsers("email")) > 3 then JMail.addrecipientbcc rsUsers("email")

3 är godtyckligt, men en epostadress bör ju vara längre än tre tecken, eller hur? ;)

Mvh,

------------------
Har du sett Bires lilla häst?

Nu står det:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'JMail.addrecipientbcc'

/lista/mailsend.asp, line 29

????????

Uhm :q

Mig veterligen heter det absolut så.
Vilken version av JMail kör du?

------------------
Har du sett Bires lilla häst?

Skojjade bara!
Jag la bara din kod på fel ställe!

Tack som f-n, nu fungerar det!!

Jesper