Förhindra multisändning av meddelande....

om innehållet som skickas är exakt samma som skribentens föregående inlägg så går det inte att posta...

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=19" TARGET=_blank>Skulle du äta på restaurang, om det var rökförbud?
</A>Varför blir mina isbitar inte lika klara som i reklamen?

Ska jag göra en koppling till databasen innan jag lägger in det ordentligt och kolla ifall någon post har ett exakt likadant innehåll eller?

------------------
MVH
Harback

Jo, det är ett sätt. Ett annat alternativ är att man definerar, i databasen, att vissa kolumner skall vara unika och man sedan kontrollerar vilket fel man får vid insert.

------------------
essentitia preter non sans multiplicandum

När personen skickar sitt meddelande,
så kollar först kollar du om det senaste meddelandet från honom inte är exakt likadant som det innan. såhär gör du

förts hämtar du det senaste meddelandet han skickade
antar att du använder en session som identifierare, den kallar jag Session("Id")
antar också att du har någon slags datumordning

<%
SQL = "Select * From Messages Where UsrId = '"&Session("Id")&"' Order By Datum desc;"
Set Rs = Conn.Execute
%>

Nu får du ut meddelandet som t.ex. Rs("Message")
säg att det skickade meddelandet sparas i variabeln
sMessage

If sMessage <> Rs("Message") Then
'du lägger in meddelandet eftersom det inte stämde med det andra

SQL = "Input Into messages(MessageID,HostId,RemoteID,Subject,Message,Datum)"
SQL = SQL&" Values('"&Session("Id")&"','"&sRemoteId&"','"&sSubject&"','"&sMessage&"',#"&Now()&"#)"

så det borde vara det =)

------------------
"Brott kanske inte lönar sig, men det är kul"

SQL = "Input Into messages(MessageID,HostId,RemoteID,Subject,Message,Datum)"

??
ska det inte vara INSERT ;)

------------------
Korvfarbror--Med ring på fingret

Okej, tack så mycket för alla svaren!

Men är det inte bättre ur prestandasynpunkt att hämta ut enbart den senaste posten med sql-strängen

Select TOP 1 * From Messages Where UsrId = '"&Session("Id")&"' Order By Datum desc

?

------------------
MVH
Harback

Nej, men däremot så borde du skicka med message i villkoret

sql = "Select 1 From Messages " & _
"Where UsrId = '"&Session("Id")& _
"' and message = '" & sMessage & _
"' Order By Datum desc"
set rs = connect.execute(sql)
if rs.eof then
'insert data
end if

------------------
essentitia preter non sans multiplicandum

Okej, gjorde en liten tabbe där...
Insert istället för input

------------------
"Brott kanske inte lönar sig, men det är kul"

borde inte detta funka då???

SQL = "SELECT TOP 1 \* FROM gastbok where nickid like '" & request.cokkies("nickid") & "' AND inlagg = '"& request.form("inlagg") &"' ORDER by datum desc"
Set kolla = Connect.execute(SQL)
if kolla.EOF then
    skriver till databas

end if

för det gör det nämligen inte.
Det blir bara att jag inte kan ha 2 likadana inlägg i databasen..
och jag skriver inte inläggen direkt efter varandra

jag skrev
test1
test2
test1

En tanke från min sida är att man skulle kunna använda distinct() när man listar inläggen.

Detta i sig hindrar ju inte från att lägga in massa likadana inlägg men det kommer ju endast att visas ett.

------------------
// David - Probably the best guy in the world