Rullgardin flytter det hele....
http://www.hillerodgolf.dk/news/test/Siden er en default.asp med en includefil til toppen, hvor rullgardinet skal rulle ned og op igen.
Se evnt. www.hillerodgolf.dk.
Men ned flytter hele defaultsiden, kan der gøres noget.
Default ser således ud:
<!--#include file ="main_text_01.htm"-->
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../news_02.mdb") & ";UID=admin;PWD=;"
If Request.Form("Gem") <> "" Then
strNavn = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM news WHERE (ID = 34)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Overskrift") = strNavn
rs("Kommentar") = strKommentar
rs("Dato") =Date()
rs.Update
End If
rs.Close
Set rs = Nothing
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title></title>
<base target="_self">
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="450" cellspacing="0" cellpadding="10">
<tr>
<td width="100%">
<table border="1" cellpadding="0" width="433" bordercolor="#ffffff" cellspacing="0">
<tr>
<td bordercolor="#294A7B"></td>
</tr>
<tr>
<td bordercolor="#294A7B"><%
Select Case strMode
Case "add"
%> <%
Case Else
Set myConn = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT top 150 * FROM news ORDER BY ID DESC;"
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table border=0 cellpadding=3 cellspacing=0>"
Do While Not rs.EOF
Select Case weekday(rs("Dato"))
case 1 dag = "Søndag"
case 2 dag = "Mandag"
case 3 dag = "Tirdag"
case 4 dag = "Onsdag"
case 5 dag = "Tordag"
case 6 dag = "Fredag"
case 7 dag = "Lørdag"
End Select
Select Case month(rs("Dato"))
case 1 maaned = " januar "
case 2 maaned = " februar "
case 3 maaned = " marts "
case 4 maaned = " april "
case 5 maaned = " maj "
case 6 maaned = " juni "
case 7 maaned = " juli "
case 8 maaned = " august "
case 9 maaned = " september "
case 10 maaned = " oktober "
case 11 maaned = " november "
case 12 maaned = " december "
End Select
Response.Write "<tr bgcolor=#294A7B><td><font color=#ffffff><B>" & dag & " d. " & day(rs("Dato")) & maaned & year(rs("Dato")) & " - " & rs("Overskrift") & "</B></td></tr>"
'response.write year(rs("Dato"))
Response.Write "<tr bgcolor=#F3F3F3><td><br>" & rs("kommentar") & "<br> </td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p>..:: no tags ::.</p>"
End If
myConn.Close
Set myConn = Nothing
End Select
%> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<!--#include file ="main_bottom.htm"-->
