Hjælp...HASTER MEGET...

MVH
Mr.Meincke

k, jeg har sådan et liggende... men det ville være nemmest vis du selv laver det... det tager dog sin tid, men ellers lærer du heller ikke noget... det jeg har er inkluderet i et forum som jeg desværre ikke kan give dig ellers resten af brugerne her på eksperten...

Men prøv at start på det selv og så skriv i tråden hvis du skal have hjælp til noget

jeg har prøvet ... jeg får 7 mails hvis jeg har postet et indlæg 7 gange...bruger ellers SELECT DISTINCT

mvh
Mr.Meincke

det er også korrekt... men hvad tager du distinct af?

Navn

Problemet er at jeg skal bruge fx
SQL = "SELECT DISTINCT Navn FROM ForumSvr WHERE SpgID='" & SpgID & "' AND Email='Ja'"

men der kommer fejl ... eller også sender den ingen mail

prøv at tage den af email og navn.... det burde gøre det lidt bedre... husk at du ikke skal sende mails ud til dig selv... så husk lige and brugernavn <> session("brugernavn") fks.

jeg er kun 14 så man kan godt sige at jeg er nybegynder

... du (som du eneste) får lige lov til at se på koden...

<!-- #include file="./tjek.asp" -->
<% if Request.Form("Besked") = "" then %>
<%
Response.Redirect("./spg.asp?id=" & Request.Form("spgid") & "&fejl=tekst")
%>
<% else %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/db.mdb")
SQL = "SELECT * FROM Forum WHERE ID=" & Request.Form("spgid") & ""
Set fRS = Server.CreateObject("ADODB.RecordSet")
fRS.Open sql, conn, 1, 3
%>
<%
DIm SpgID, FormType, Besked, Navn, BruID
Function sqlreplace(streng)
    sqlreplace = Replace(streng,"'","''")
    sqlreplace = Replace(streng,"<","&lt;")
    sqlreplace = Replace(streng,">","&gt;")
    sqlreplace = Replace(streng,"%gt;","´|´&gt;")
    sqlreplace = Replace(streng,"&lt;%","&lt;´´|´´")
    sqlreplace = Replace(streng,vbCrLf,"<br>")
    sqlreplace = Replace(streng," ","&nbsp;")
End Function
SpgID = sqlreplace(Request.Form("spgid"))
FormType = sqlreplace(Request.Form("Type"))
Besked = sqlreplace(Request.Form("Besked"))
BruID = sqlreplace(bruRS("id"))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/db.mdb")
SQL = "SELECT * FROM ForumSvr"
Set bruRS3 = Server.CreateObject("ADODB.RecordSet")
bruRS3.Open sql, conn, 1, 3
bruRS3.AddNew
bruRS3("SpgID") = SpgID
bruRS3("Type") = FormType
bruRS3("Besked") = Besked
bruRS3("Navn") = bruRS("brugernavn")
bruRS3("Email") = "Ja"
bruRS3("BruID") = BruID
bruRS3.Update
if FormType = "Svar" or FormType = "Fortsat svar" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/db.mdb")
    SQL = "SELECT * FROM Forum WHERE ID=" & SpgID & ""
    Set ffrs = Server.CreateObject("ADODB.RecordSet")
    ffrs.Open sql, conn, 1, 3
    ffrs.Update
    ffrs("Ind") = ffrs("Ind") + 1
    ffrs.Update
end if
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT DISTINCT Navn FROM ForumSvr WHERE SpgID='" & SpgID & "' AND Email='Ja'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/xxx/db.mdb")
rs.Open strSQL, strDSN, 1
%>
<%
if rs.EOF then
%>
<%
else
%>
<%
Do Until rs.EOF
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("/xxx/db.mdb")
sql = "select * from medlemmer where id = " & rs("bruid") & ""
Set bruRS2 = Server.CreateObject("ADODB.Recordset")
bruRS2.open sql, conn, 1, 3

    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
%>
<%
Response.Redirect("spg.asp?id=" & request.form("spgid") & "")
%>
<% end if %>

kigger lige på den om 10 min tid... finder lige mit eget system frem

mangler noget....vent

her er hele koden:

<!-- #include file="./tjek.asp" -->
<% if Request.Form("Besked") = "" then %>
<%
Response.Redirect("./spg.asp?id=" & Request.Form("spgid") & "&fejl=tekst")
%>
<% else %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/db.mdb")
SQL = "SELECT * FROM Forum WHERE ID=" & Request.Form("spgid") & ""
Set fRS = Server.CreateObject("ADODB.RecordSet")
fRS.Open sql, conn, 1, 3
%>
<%
DIm SpgID, FormType, Besked, Navn, BruID
Function sqlreplace(streng)
    sqlreplace = Replace(streng,"'","''")
    sqlreplace = Replace(streng,"<","&lt;")
    sqlreplace = Replace(streng,">","&gt;")
    sqlreplace = Replace(streng,"%gt;","´|´&gt;")
    sqlreplace = Replace(streng,"&lt;%","&lt;´´|´´")
    sqlreplace = Replace(streng,vbCrLf,"<br>")
    sqlreplace = Replace(streng," ","&nbsp;")
End Function
SpgID = sqlreplace(Request.Form("spgid"))
FormType = sqlreplace(Request.Form("Type"))
Besked = sqlreplace(Request.Form("Besked"))
BruID = sqlreplace(bruRS("id"))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/db.mdb")
SQL = "SELECT * FROM ForumSvr"
Set bruRS3 = Server.CreateObject("ADODB.RecordSet")
bruRS3.Open sql, conn, 1, 3
bruRS3.AddNew
bruRS3("SpgID") = SpgID
bruRS3("Type") = FormType
bruRS3("Besked") = Besked
bruRS3("Navn") = bruRS("brugernavn")
bruRS3("Email") = "Ja"
bruRS3("BruID") = BruID
bruRS3.Update
if FormType = "Svar" or FormType = "Fortsat svar" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/db.mdb")
    SQL = "SELECT * FROM Forum WHERE ID=" & SpgID & ""
    Set ffrs = Server.CreateObject("ADODB.RecordSet")
    ffrs.Open sql, conn, 1, 3
    ffrs.Update
    ffrs("Ind") = ffrs("Ind") + 1
    ffrs.Update
end if
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT DISTINCT Navn FROM ForumSvr WHERE SpgID='" & SpgID & "' AND Email='Ja'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/xxx/db.mdb")
rs.Open strSQL, strDSN, 1
%>
<%
if rs.EOF then
%>
<%
else
%>
<%
Do Until rs.EOF
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("/xxx/db.mdb")
sql = "select * from medlemmer where id = " & rs("bruid") & ""
Set bruRS2 = Server.CreateObject("ADODB.Recordset")
bruRS2.open sql, conn, 1, 3
%>
<%

  Str_Email=bruRS2("Email")

  ' #### BEGIN ## Find user-details, if an account existe with that e-mail ####
    Str_Realname=bruRS2("Kaldenavn")
  ' #### END ## Find user-details, if an account existe with that e-mail ####

  ' #### BEGIN ## Generate message for e-mail ####
  Str_Message=""
  Str_Message=Str_Message & "beskeden her"
  ' #### END ## Generate message for e-mail ####

  ' #### BEGIN ## Send e-mail to user using JMail component (http://tech.dimac.net/) ####
  Name = "Nicolai M. Persson - Admin(SITE CREATOR)"
  SenderEmail = "n.persson@mail.dk"
  Subject = "Emnet her"
  Recipient = Str_Email

  Set JMail = Server.CreateObject("JMail.SMTPMail")
  ' Enter your own SMTP-server here
  JMail.ServerAddress = "mail.dk"
  JMail.Sender = SenderEmail
  JMail.Subject = Subject
  JMail.Body = Str_Message
  JMail.AddRecipient Recipient
  JMail.Priority = 3
  JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
  JMail.Execute
  ' #### END ## Send e-mail to user using JMail component (http://tech.dimac.net/) ####

  Response.Redirect "./default.asp?mode=join&brugernavn=" & Request.Form("bruger") & ""
%>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
%>
<%
Response.Redirect("spg.asp?id=" & request.form("spgid") & "")
%>
<% end if %>

er du der?????

jeps... jeg kigger lige lidt på den der distinct sætning

oki...

hvad laver den af fejl på den sql sætning som du har nu? altså distinct?

Item cannot be found in the collection corresponding to the requested name or ordinal.

nu gidder den godt....underligt... du får points ...

hvis du vil have dem...det var en lille bitte fejl...der stod

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("/myuniverse/db.mdb")
sql = "select * from medlemmer where id= " & rs("id") & ""
Set bruRS2 = Server.CreateObject("ADODB.Recordset")
bruRS2.open sql, conn, 1, 3

der skulle stå

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("/myuniverse/db.mdb")
sql = "select * from medlemmer where brugernavn = '" & rs("navn") & "'"
Set bruRS2 = Server.CreateObject("ADODB.Recordset")
bruRS2.open sql, conn, 1, 3

SELECT DISTINCT navn, email FROM ForumSvr WHERE SpgID='" & SpgID & "' AND Email='Ja' and navn <> session("brugernavn")"

prøv at ændre din distinct sætning til det her.. og se hvad der så sker? Sender den nogen mails?

hvordan gør jeg så ikke den sender til den der kommenterer/svarer på spørgsmålet?

lige inden du opretter nyheden i databasen laver du en session fks.

session("forumcreator") = request("navn")

Så ændre du bare i distinct til:

SELECT DISTINCT navn, email FROM ForumSvr WHERE SpgID='" & SpgID & "' AND Email='Ja' and navn <> session("brugernavn") and navn <> session("forumcreator")"

oki...hvor mange points vil du have?

bare de 27... det er okay