Deep 6 Jervis Bay Messenger

<% Response.Expires=0 'Seite jedesmal neu abrufen %> Deep 6 Jervis Bay Messenger

<% session.lcid=3081%> <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq= " & mydb strSQL="SELECT * FROM whales WHERE entryID >0 ORDER BY sightingdate Desc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, conn ,3 ,3 rSightingDate=rs.fields("SightingDate").value rComments=rs.fields("comments").value %> Dive update: <%=rsightingdate%> - <%=rcomments%>