mellanrum när det är en ny dag.

3 svar · 173 visningar · startad av medialabs 10 nov. 2002

medialabsMedlem sedan mars 20023 686 inlägg

Frågan10 nov. 2002 19:53#1

Undrar hur man gör så att det blir ett mellanrum när det är en ny dag. så att det blir så här:

2002-11-11 9364632492

2002-11-10 fdsfjdfljdsf
2002-11-10 fdsfjdfljdsf
2002-11-10 fdsfjdfljdsf

Iindex.asp sidans kod.

<!-- #include file = "adovbs.inc" -->
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>Artiklar</title>
<link href="style.css" rel="stylesheet" type="text/css">
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("hacked.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM tblhacked ORDER BY id DESC"
	RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
%>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="left">

<table border="0">
    <tr>
        <td><font size="1" face="Verdana">Datum</font></td>
        <td>&nbsp;</td>
        <td><font size="1" face="Verdana">Hackare</font></td>
        <td>&nbsp;</td>
        <td><font size="1" face="Verdana">Original</font></td>
        <td>&nbsp;</td>
        <td><font size="1" face="Verdana">Mirror</font></td>
    </tr>
    <tr>
        <td><% IF RecSet.EOF then %></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
    </tr>
    <tr>
        <td><% 
ELSE 
Do until RecSet.EOF 
%><font size="1" face="Verdana"><%=RecSet("datum")%></font></td>
        <td>&nbsp;</td>
        <td><font size="1" face="Verdana"><%=RecSet("hacker")%></font></td>
        <td>&nbsp;</td>
        <td><a href="<%=RecSet("orginal")%>" target="top"><font
        size="1" face="Verdana">Titta</font></a></td>
        <td>&nbsp;</td>
        <td><a href="<%=RecSet("mirror")%>" target="top"><font size="1"
        face="Verdana">Titta</font></a></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
    </tr>
    <tr>
        <td><%
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = Nothing
Set Connect = Nothing
END IF
%></td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
    </tr>
</table>
</div>
</body>
</html>

EitrazMedlem sedan sep. 2002366 inlägg

10 nov. 2002 19:58#2

så här kan man göra...

lastdate = ""

Do until RecSet.EOF
%><% If NOT lastdate = RecSet("datum") Then %> <% End If %><%=RecSet("datum")%></td>
<td> </td>
<td><%=RecSet("hacker")%></td>
<td> </td>
<td><a href="<%=RecSet("orginal")%>" target="top">Titta</a></td>
<td> </td>
<td><a href="<%=RecSet("mirror")%>" target="top">Titta</a></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td><%
lastdate = RecSet("datum")
RecSet.MoveNext
Loop

Har alltså lagt in en "lastdate" som kollar om det är ett annorlunda datum
<% If NOT lastdate = RecSet("datum") Then %> <% End If %>
och isåfall så lägger den in ett (du får ju ändra som du vill sen)

sen lägger jag lastdate som RecSet("datum") där i slutet.

-Eitraz

LarsGMedlem sedan dec. 200012 464 inlägg

10 nov. 2002 20:00#3

[b]pDatum = ""[/b]
Do until RecSet.EOF
[b]     if  pDatum <> "" then 
         if  cDate(pDatum) <> cDate(RecSet("datum")) then
             pDatum = cDate(RecSet("datum"))
             response.write "<br>"
         end if
      else
            pDatum = cDate(RecSet("datum"))
      end if
[/b]
%><font size="1" face="Verdana"><%=RecSet("datum")%></font></td>
        <td> </td>
        <td><font size="1" face="Verdana"><%=RecSet("hacker")%></font></td>
        <td> </td>
        <td><a href="<%=RecSet("orginal")%>" target="top"><font
        size="1" face="Verdana">Titta</font></a></td>
        <td> </td>
        <td><a href="<%=RecSet("mirror")%>" target="top"><font size="1"
        face="Verdana">Titta</font></a></td>
        <td> </td>
        <td> </td>
    </tr>
    <tr>
        <td><%
RecSet.MoveNext
Loop

medialabsMedlem sedan mars 20023 686 inlägg

10 nov. 2002 20:04#4

LarsG: Tack,tack,tack....

det funkar nu.