29 svar · 519 visningar · startad av kaktusen
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> | <%=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!
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
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
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.
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>
hmm... icaaq, gillar min variant mer... :e
pssst... haller med om det med formateringen av datumet.... kan inte ge mycket?!
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
icaaq skrev:
Sen har jag en fråga vad ger
[red]FormatDateTime(datum, 0)[/red]för resultat?
mvh icaaq
</html>
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>
Vad är det riktiga felmeddelandet?
Slå av "vänliga felmeddelanden" eller vad det nu heter i webläsaren.
I I.E.
Verktyg/Internet-alternativ/Avancerat/visa egna HTTP-felmeddelanden.(Skall klickas ur. Nästan längst ner i listan.)
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
----------------------------------------------------------------------------^
kan det bero på att det automatiskt blir ett "enter" vid vissa meningar?
nu verkar det fungera, ska se om ljudet också kommer som det ska :)
vad jag kan höra så kommer det inget ljud - fast att jag skriver ett inlägg.
Vad beror detta på? :(
Response.Write "<EMBED src='chimes.wav' autostart=true repeat=false height=0>"
Skall det kanske vara?!
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!
