Hej,
Behöver er hjälp, det är lite smått kris. Har försökt i en timme nu men får inte i ordning på det. Är generellt dålig på detta med datorer och ASP/Javascript.
Jag har en gästbok som uppdateras automatiskt. Och när ett nytt inlägg har skrivits vill jag att ett ljud ska plinga. Bara när ett nytt inlägg har skrivits - inte annars!
Hur fixar jag det? Vet inte om det är ASP eller i Javascript som är den enklaste lösningen? Vill bara ha ett script som jag lägger in i filen. Är mkt tacksam till den som kan hjälpa mig!
Här är koden till min gästbok:
<%
If Session("LoginName") = "" then
response.redirect "login.asp"
End IF
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("chatt.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select TOP 29 * From chatt ORDER BY date DESC"
RecSet.Open Addera, Conn, 1, 3
Session("color") = "#96A3C1"
%>
<html>
<head>
<title>MTS</title>
<meta http-equiv="refresh" content="5;chatta.asp">
</head>
<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF">
<style type="text/css">
<!-- DRT
function doscriptwin(path) {
window.open(path, "_blank", "scrollbars,width=350,height=400,resizable=yes,left=150,top=80");
}
// DRT-->
<!--
A {font-weight: bold; text-decoration: none; color: black}
A:visited {font-weight: bold; text-decoration: none; color: black}
A:hover {text-decoration: underline;}
// -->
</style>
<table width="500" cellspacing="0" cellpadding="1" bgcolor="#FFFFFF">
<%
Do Until RecSet.EOF
Dim text
text = RecSet("text")
%>
<tr>
<td bgcolor="<%=Session("color")%>" width="100%">
<font size="2"><b><%=RecSet("date")%></B><br><%=Server.HTMLEncode(text)%></font>
</td>
</tr>
<%
If Session("color") = "#96A3C1" Then
Session("color") = "#FFFFFF"
Else
Session("color") = "#96A3C1"
End If
RecSet.MoveNext
Loop
RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
%>
</table>
