Hjælp til forum ... funktion

1. du bruger formentlig en sql-streng til at udfylde den box... den skal have noget i retning af "SELECT DISTINT..." eller "SELECT DISTINTROW..." i stedet for bare "SELECT..."

2. Find ud af hvilken mail komponent du kan benytte og indsæt så det tilæhørende mailscript samme sted som hvor der bliver skrevet til databasen når der er svar/kommentar

ok...hvad med spg. 2....Du får først point senere...Jeg er i praktik, så....

hvad skal jeg så skrive?
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("hemmelig.mdb")
SQL = "SELECT DISTINT (ELLER DISTINTROW) * FROM HemmeligTbl WHERE SpgID='" & HEMMELIGT & "'"
osv....?

Kan du løse spg. 2 også?

prøv:

SQL = "SELECT DISTINTROW * FROM HemmeligTbl WHERE SpgID='" & HEMMELIGT & "'"

spm. 2 jeg ved jo ikke hvilket mail-komponent du kan benytte på din server - og finder du ud af det, så plejer der at ligge lette eksempler på den tilhørendes komponents hjemmeside

Jmail

det gør der ikke...har tjekket

simpelt jmail;

<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = "Her skriver du din besked..."
JMail.Execute
Set JMail = Nothing
%>

ydeligere ses på http://www.dimac.net/

jeg kan godt finde ud af, at sende mail via JMail, men den skal sende til alle dem som har svaret eller kommenteret spørgsmålet når der er en, som kommenterer eller svarer på spm.

så skal du lave en sql der udvælger alle der har været aktive i spørgsmålet og så sætte deres email ind som modtager - altså fx rs("email"). for at alle så får deres mail skal du sætte mailscriptet ind i ind "do while not rs-EOF" så det loopes igennem tilstrækkelig mange gange

ok ... jeg prøver ... ses i aften :)

ja...

ja...?

Hej jeg ruger følgende script til at sende mails til dem som deltager i et spm:

<%
response.buffer = true
if  Request.QueryString("id") ="" then
response.Redirect "default.asp"
end if
response.write "<html><head><title>Indlæg oprettes</title><link rel='stylesheet' href='../format.css' type='text/css'><BR><BR><BR><BR><BR><h1>Dine data behandles.</h1><BR><BR><h1>Vent venligst...</h1>"
Set objConn = Server.CreateObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
%><!--#INCLUDE FILE="../include/db.inc" --><%
objConn.Open conStr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from forumindlaeg where id = " & Request.QueryString("id") & ""
rs.Open sql, objConn, 1, 3
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.12tri.dk"
Mail.From = "Forum@12tri.dk"
Mail.FromName = "12TRI - Forum"
Mail.Subject = "12TRI: " & rs("overskrift")
Mail.Body = "Hej" & vbCrLf & vbCrLf & "Der er blevet svaret på indlægget: " & rs("overskrift")  & vbCrLf & vbCrLf & "Du kan læse svaret på denne side: http://www.12tri.dk/forum/show.asp?id=" & rs("id") & vbCrLf & vbCrLf & "Venlig hilsen 12TRI"
sql = "Select * from forummail where indlaegid = " & Request.QueryString("id") & ""
Do While Not rs.EOF
Mail.AddAddress "" & rs("mail")
On Error Resume Next
Mail.Send
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
objconn.close
response.Redirect "" & Request.QueryString("url")
%>

30 point til 12tri :o)