---
title: "Pling vid nytt inlägg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60767-pling-vid-nytt-inlägg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "kaktusen"
published: "2002-11-30T20:35:48.000Z"
updated: "2002-12-01T18:36:57.000Z"
replies: 29
views: 541
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/60767-pling-vid-nytt-inlägg"
---

# Pling vid nytt inlägg

_Sida 1 av 2._

## #1 — kaktusen, 2002-11-30T20:35Z

Hej, 

Jag har en gästbok/nyhetsforum.
Och då jag skriver ett inlägg så vill jag att man ska höra ett ljud el. ett pling.

Hur gör jag det?

Såhär ser koden för själva gästboksidan ut:

\<!-- #include file="settings.asp" --\>

\<html\>

\<head\>
\</head\>

\<body\>
\<% Session.LCID = 1053 %\>
\<%
If Session("inloggad") \<\> "OK" Then
   Response.Redirect "login.html"
End If
%\>

\<META HTTP-EQUIV="REFRESH" CONTENT="60;URL=nyheter.asp"\>

\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & db

Set RecSet = Server.CreateObject("ADODB.Recordset")

Oppna = "Select \* From Nyheter Order By ID Desc"

RecSet.Open Oppna, Connect

If RecSet.EOF Then %\>
\<table width="470" cellpadding="0" cellspacing="0" border="0"\>
  \<tr\>
    \<td width="470" align="center"\>\<strong\>Inga nyheter är inlagda!\</strong\>\</td\>
  \</tr\>
\</table\>

\<%Else%\>
\<table width="470" cellpadding="0" cellspacing="0" border="0"\>
  \<tr\>
    \<td width="470" align="left"\>\<strong\>\</strong\>\</td\>
  \</tr\>
\</table\>
\<br\>
\<%
Z = 0
Do Until Z = 30 or RecSet.EOF %\>
\<table width="470" cellpadding="0" cellspacing="0" border="0"\>
	\<tr\>
		\<td width="470" align="left"\>\<b\>\<font size="2" color="#0000FF"\>\<%=RecSet("Rubrik")%\>\</b\>&nbsp;\|&nbsp;\<%=FormatDateTime(RecSet("Datum"),0)%\>\</td\>\</font\>
	\</tr\>
	\<tr\>
		\<td colspan="1"\>\<%=RecSet("Nyhet")%\>\</td\>
	\</tr\>\<hr\>
\</table\>
\<br\>
\<%
Z = Z--1
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
End If
%\>

\</body\>

\</html\>

Tack på förhand!

Permalänk: https://www.webforum.nu/p/60767

## #2 — kaktusen, 2002-11-30T21:18Z

Jag la in denna kod i .asp filen:
\<EMBED src="chimes.wav" autostart=true repeat=false height=0 
width=0\>

Men eftersom .asp filen uppdateras automatiskt en gång i minuten så hörs detta ljud varje gång sidan uppdateras (en gång i minuten) vilket är lite irriterande i längden.

Förslag på hur jag ska göra?

Mvh

Permalänk: https://www.webforum.nu/p/870496

## #3 — icaaq, 2002-11-30T23:15Z

Har du något tids-fält så borde du ju kunna kolla om det på den senaste minuten blivit något nytt inlägg, om det har det så skriver du ut \<embed......... annars inte 

mvh icaaq

Permalänk: https://www.webforum.nu/p/870584

## #4 — kaktusen, 2002-11-30T23:22Z

hej icaaq!

vad menar du med tids-fält och var isåfall ser man om jag har det?

Permalänk: https://www.webforum.nu/p/870593

## #5 — crisse6, 2002-12-01T05:37Z

Han menar formodligen if-sats(?) som du kor och kollar, typ har du nagot "status-falt" for meddelanden? Dvs, om det ar ett nytt sa har det varde "Nytt" annars "Gammalt" eller liknande, om det ar nagot inlagg med vardet "Nytt" sa kor du ljudet, annars inte.

Permalänk: https://www.webforum.nu/p/870786

## #6 — icaaq, 2002-12-01T06:06Z

> **kaktusen skrev:**
>
> hej icaaq!
> 
> vad menar du med tids-fält och var isåfall ser man om jag har det?

Jag menar om du har något Date/Time fält i databasen där du ser när inläggen är gjorda. Om du har det eller lägger till det så kan du göra på följande sätt.....när jag kollat igenom koden ser jag ju att du har ett datumfält så du borde kunna göra så här

```
[red]
<!-- #include file="settings.asp" --> 

<html> 

<head> 
</head> 

<body> 
<% Session.LCID = 1053 %> 
<% 
If Session("inloggad") <> "OK" Then 
Response.Redirect "login.html" 
End If 
%> 

<META HTTP-EQUIV="REFRESH" CONTENT="60;URL=nyheter.asp"> 

<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & db 

Oppna = "Select * From Nyheter Order By ID Desc" 

Set RecSet = Connect.Execute(Oppna)

If RecSet.EOF Then %> 
<table width="470" cellpadding="0" cellspacing="0" border="0"> 
<tr> 
<td width="470" align="center"><strong>Inga nyheter är inlagda!</strong></td> 
</tr> 
</table> 

<%
Else
     If DateDiff("S", RecSet("Datum"), Now()) < 60 Then
          Response.Write "<EMBED src='chimes.wav' autostart=true repeat=false height=0 
width=0>" & vbCrLf
     End If
%> 
<table width="470" cellpadding="0" cellspacing="0" border="0"> 
<tr> 
<td width="470" align="left"><strong></strong></td> 
</tr> 
</table> 
<br> 
<% 
Z = 0 
Do Until Z = 30 or RecSet.EOF %> 
<table width="470" cellpadding="0" cellspacing="0" border="0"> 
<tr> 
<td width="470" align="left"><b><font size="2" color="#0000FF"><%=RecSet("Rubrik")%></b> | <%=FormatDateTime(RecSet("Datum"),0)%></td></font> 
</tr> 
<tr> 
<td colspan="1"><%=RecSet("Nyhet")%></td> 
</tr><hr> 
</table> 
<br> 
<% 
Z = Z--1 
RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
End If 
%> 

</body> 
[/red]
```

Sen har jag en fråga vad ger 

```
[red]FormatDateTime(datum, 0)[/red]
```

 för resultat?

mvh icaaq

\</html\>

Permalänk: https://www.webforum.nu/p/870789

## #7 — crisse6, 2002-12-01T06:10Z

hmm... icaaq, gillar min variant mer... :e

pssst... haller med om det med formateringen av datumet.... kan inte ge mycket?!

Permalänk: https://www.webforum.nu/p/870790

## #8 — icaaq, 2002-12-01T06:29Z

Jo efter första koppen kaffe så kommer hjärnan igång lite och jag skulle nog köra på crisse6 variant, det är lite mer kodande men det är en bättre variant.

mvh icaaq

Permalänk: https://www.webforum.nu/p/870793

## #9 — Denniz PoP, 2002-12-01T12:00Z

> **icaaq skrev:**
>
> Sen har jag en fråga vad ger 
>
> ```
> [red]FormatDateTime(datum, 0)[/red]
> ```
>
>  för resultat?
> 
> mvh icaaq
> 
> \</html\>

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctformatdatetime.asp>

Permalänk: https://www.webforum.nu/p/870879

## #10 — icaaq, 2002-12-01T12:14Z

Där ser man.... :)

mvh icaaq

Permalänk: https://www.webforum.nu/p/870892

## #11 — kaktusen, 2002-12-01T16:43Z

När jag klistrade in texten så blev det "The page cannot be displayed"

Vad är fel? 

Mvh

Här är koden jag la in:

\<!-- #include file="settings.asp" --\> 

\<html\> 

\<head\> 
\</head\> 

\<body\> 
\<% Session.LCID = 1053 %\> 
\<% 
If Session("inloggad") \<\> "OK" Then 
Response.Redirect "login.html" 
End If 
%\> 

\<META HTTP-EQUIV="REFRESH" CONTENT="60;URL=nyheter.asp"\> 

\<% 
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & db 

Oppna = "Select \* From Nyheter Order By ID Desc" 

Set RecSet = Connect.Execute(Oppna)

If RecSet.EOF Then %\> 
\<table width="470" cellpadding="0" cellspacing="0" border="0"\> 
\<tr\> 
\<td width="470" align="center"\>\<strong\>Inga nyheter är inlagda!\</strong\>\</td\> 
\</tr\> 
\</table\> 

\<%
Else
     If DateDiff("S", RecSet("Datum"), Now()) \< 60 Then
          Response.Write "\<EMBED src='chimes.wav' autostart=true repeat=false height=0 
width=0\>" & vbCrLf
     End If
%\> 
\<table width="470" cellpadding="0" cellspacing="0" border="0"\> 
\<tr\> 
\<td width="470" align="left"\>\<strong\>\</strong\>\</td\> 
\</tr\> 
\</table\> 
\<br\> 
\<% 
Z = 0 
Do Until Z = 30 or RecSet.EOF %\> 
\<table width="470" cellpadding="0" cellspacing="0" border="0"\> 
\<tr\> 
\<td width="470" align="left"\>\<b\>\<font size="2" color="#0000FF"\>\<%=RecSet("Rubrik")%\>\</b\> \| \<%=FormatDateTime(RecSet("Datum"),0)%\>\</td\>\</font\> 
\</tr\> 
\<tr\> 
\<td colspan="1"\>\<%=RecSet("Nyhet")%\>\</td\> 
\</tr\>\<hr\> 
\</table\> 
\<br\> 
\<% 
Z = Z--1 
RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
End If 
%\> 

\</body\>

Permalänk: https://www.webforum.nu/p/871095

## #12 — solbulle, 2002-12-01T16:52Z

Vad är det riktiga felmeddelandet? 
Slå av "vänliga felmeddelanden" eller vad det nu heter i webläsaren.

Permalänk: https://www.webforum.nu/p/871100

## #13 — kaktusen, 2002-12-01T17:28Z

riktiga felmeddelandet?

\*suck, gillar inte teknikens utveckling\* :)

Permalänk: https://www.webforum.nu/p/871113

## #14 — Jesper T, 2002-12-01T17:36Z

I I.E.

Verktyg/Internet-alternativ/Avancerat/visa egna HTTP-felmeddelanden.(Skall klickas ur. Nästan längst ner i listan.)

Permalänk: https://www.webforum.nu/p/871117

## #15 — kaktusen, 2002-12-01T17:47Z

okej, det riktiga felmeddelandet är:

Microsoft VBScript compilation error '800a0409' 

Unterminated string constant 

/nyheter.asp, line 36 

Response.Write "\<EMBED src='chimes.wav' autostart=true repeat=false height=0
\----------------------------------------------------------------------------^

Permalänk: https://www.webforum.nu/p/871126

## #16 — kaktusen, 2002-12-01T17:50Z

kan det bero på att det automatiskt blir ett "enter" vid vissa meningar?

Permalänk: https://www.webforum.nu/p/871128

## #17 — kaktusen, 2002-12-01T17:52Z

nu verkar det fungera, ska se om ljudet också kommer som det ska :)

Permalänk: https://www.webforum.nu/p/871130

## #18 — kaktusen, 2002-12-01T17:56Z

vad jag kan höra så kommer det inget ljud - fast att jag skriver ett inlägg.

Vad beror detta på? :(

Permalänk: https://www.webforum.nu/p/871133

## #19 — Jesper T, 2002-12-01T18:00Z

Response.Write "\<EMBED src='chimes.wav' autostart=true repeat=false height=0\>"
Skall det kanske vara?!

Permalänk: https://www.webforum.nu/p/871136

## #20 — kaktusen, 2002-12-01T18:02Z

Jo, men den finns redan.

Såhär ser den raden ut:

\<% Else If DateDiff("S", RecSet("Datum"), Now()) \< 60 Then Response.Write "\<EMBED src='chimes.wav' autostart=true repeat=false height=0 width=0\>" & vbCrLf 
End If 

Väldigt tacksam för hjälp!

Permalänk: https://www.webforum.nu/p/871141

---

Tråden på webben: https://www.webforum.nu/amne/asp/60767-pling-vid-nytt-inlägg  
Nästa sida: https://www.webforum.nu/amne/asp/60767-pling-vid-nytt-inlägg/page2.md
