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?!
