Opdeling af poster

http://www.eksperten.dk/spm/194745

Mit SQL-udtræk er følgende...


<div style="overflow-y:scroll;height:430Px;" width="40">

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("fix/db.mdb")
Conn.Open DSN

strSQL = "Insert into tag (nick, dato, besked) values('" & Request.Form("nick") & "','" & Date() & "','" & Request.Form("besked") & "')"

Conn.Execute(strSQL)

Response.Redirect("site.asp?mode=hallo")

else %>

<img src="gfx/but/hilsen2.gif"><br>
        <font face="verdana, arial, helvetica" size="1" color="#676767">

<FORM action="site.asp?mode=hallo" METHOD="post" NAME="tagwall">
<TABLE border=0 cellPadding=0 cellSpacing=0>
<TR>
    <td valign="top" align="right" valign="middle"><font face="verdana, arial, helvetica" size="1" color="#676767"><b>Navn:</b> </td>
    <TD><INPUT TYPE="text" name="nick" SIZE="45" MAXLENGTH="200" style='background-color: rgb(240,240,240); color: rgb(103,103,103); border: 1px solid #676767; font-size:10px'></TD>
</TR>


<TR>
    <TD valign="top" align="right"><font face="verdana, arial, helvetica" size="1" color="#676767"><b>Besked:</b> </TD>
    <TD><textarea rows="6" cols="34" name="besked" style='background-color: rgb(240,240,240); color: rgb(103,103,103); border: 1px solid #676767; font-size:11px'></textarea></TD></font>
</TR>
<TR>
    <TD>&nbsp;</TD>
    <td><br><center><input type="image" src="gfx/send.gif" name="B1"></center></td>
   
</TR>
</TABLE>
</FORM>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("fix/db.mdb")
Conn.Open DSN
strSQL = "Select * from tag ORDER BY id DESC"
Set rs = Conn.Execute(strSQL)

Do %>

 
  <TABLE WIDTH="300" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD WIDTH="300">
    <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" >
    <TR>
        <TD><img src="gfx/star.gif"><B><font face="verdana, arial, helvetica" size="1" color="#676767"><%=RS("nick")%> </font></B></A> - <B><font face="verdana, arial, helvetica" size="1" color="#676767"><%=day(RS("dato"))%>/<%=month(RS("dato"))%>&nbsp;<%=year(RS("dato"))%></TD>
        </B>

       
    </TR>

    <TR>
        <TD><B><font face="verdana, arial, helvetica" size="1" color="#676767"></B><%=rs("besked")%> </font></A></TD>

       
    </TR>
    </TABLE>
    </TD>
</TR>

</TABLE>
<BR>

 
<%  rs.MoveNext


Loop While Not rs.EOF



end if %>
</div>


Nogle ideer????

<div style="overflow-y:scroll;height:430Px;" width="40">

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("fix/db.mdb")
Conn.Open DSN

strSQL = "Insert into tag (nick, dato, besked) values('" & Request.Form("nick") & "','" & Date() & "','" & Request.Form("besked") & "')"

Conn.Execute(strSQL)

Response.Redirect("site.asp?mode=hallo")

else
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

%>

<img src="gfx/but/hilsen2.gif"><br>
        <font face="verdana, arial, helvetica" size="1" color="#676767">

<FORM action="site.asp?mode=hallo" METHOD="post" NAME="tagwall">
<TABLE border=0 cellPadding=0 cellSpacing=0>
<TR>
    <td valign="top" align="right" valign="middle"><font face="verdana, arial, helvetica" size="1" color="#676767"><b>Navn:</b> </td>
    <TD><INPUT TYPE="text" name="nick" SIZE="45" MAXLENGTH="200" style='background-color: rgb(240,240,240); color: rgb(103,103,103); border: 1px solid #676767; font-size:10px'></TD>
</TR>


<TR>
    <TD valign="top" align="right"><font face="verdana, arial, helvetica" size="1" color="#676767"><b>Besked:</b> </TD>
    <TD><textarea rows="6" cols="34" name="besked" style='background-color: rgb(240,240,240); color: rgb(103,103,103); border: 1px solid #676767; font-size:11px'></textarea></TD></font>
</TR>
<TR>
    <TD>&nbsp;</TD>
    <td><br><center><input type="image" src="gfx/send.gif" name="B1"></center></td>
   
</TR>
</TABLE>
</FORM>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("fix/db.mdb")
Conn.Open DSN
strSQL = "Select * from tag ORDER BY id DESC"
Set rs = Conn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
%>

 
  <TABLE WIDTH="300" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
    <TD WIDTH="300">
    <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" >
    <TR>
        <TD><img src="gfx/star.gif"><B><font face="verdana, arial, helvetica" size="1" color="#676767"><%=RS("nick")%> </font></B></A> - <B><font face="verdana, arial, helvetica" size="1" color="#676767"><%=day(RS("dato"))%>/<%=month(RS("dato"))%>&nbsp;<%=year(RS("dato"))%></TD>
        </B>

       
    </TR>

    <TR>
        <TD><B><font face="verdana, arial, helvetica" size="1" color="#676767"></B><%=rs("besked")%> </font></A></TD>

       
    </TR>
    </TABLE>
    </TD>
</TR>

</TABLE>
<BR>

 
<% 
intRecCount = intRecCount - 1
rs.MoveNext


Loop

<%
<a href="site.asp?page=<%=intPage-1%>">Prev</a><a href="site.asp?page=<%=intPage+1%>">Next</a>


%>

end if

%>
</div>

Ikke testet så der kan være små fejl!