Minutter?

Function AddZ(str)
If Len(str) = 1 Then
  AddZ = "0" & str
Else
  AddZ = str
End if
End Function

tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

Sådan her:

while NOT RS.EOF
Function AddZ(str)
If Len(str) = 1 Then
  AddZ = "0" & str
Else
  AddZ = str
End if
End Function

tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

response.write "<tr><td valign=""top""><span class=""tekst11"">" &  RS("nick") & ":" & "</span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><a href=""debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
RS.MoveNext
text=""
wend

Nej nej, den Function skal kun stå engang i toppen af filen.

Hm?

Siden kan ikke vises
Der er problemer med den side, du prøver at åbne, og den kan ikke vises.

Du er dog utrolig. Bedste ven :o)

Jeg tror jeg skal i praktik hos dig, hvis du da tager praktikanter :o)

:-) Tager ikke praktikanter, ikke før om et års tid ihverfald :)

netsrac, ved du hvordan jeg får en celle på 1 px i højden mellem en masse response.write? Jeg skal bruge sådanne to til at "indkredse" en liste med indlæg.

Den celle skal have en given baggrundsfarve, så den virker som seperator.

Jeg forsøgte mig med dette, men det blev for kompliceret:

<table border="0" width="100%" cellpadding="6" cellspacing="0">
    <tr>
        <td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
dbConn = "SERVER=Local;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/include.mdb")
Conn.open dbConn

SQL = "SELECT TOP 25 * FROM debat ORDER BY emneID DESC"
Set RS = Conn.Execute( SQL )

response.write "<tr><td valign=""top""><span class=""tekst11""><b>" & "Forfatter" & "</b></span></td>"
response.write "<td valign=""top""><span class=""tekst11""><b>" & "Artiklens navn" & "</b></span></td>"
response.write "<td valign=""top""><span class=""tekst11""><b>" & "Lagt på" & "</b></span></td></tr>"
'response.write "<tr><td width=""100%"" colspan=""3"" bgcolor=""#AF0000"" style=""height:1px;overflow:hidden;""></td></tr>"

while NOT RS.EOF
tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

response.write "<tr><td valign=""top""><span class=""tekst11"">" &  RS("nick") & ":" & "</span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><a href=""debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
RS.MoveNext
text=""
wend

'response.write "<tr><td width=""100%"" colspan=""3"" bgcolor=""#AF0000"" style=""height:1px;overflow:hidden;""></td></tr>"

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>
        </td>
    </tr>
</table>


Det var meningen, at

'response.write "<tr><td width=""100%"" colspan=""3"" bgcolor=""#AF0000"" style=""height:1px;overflow:hidden;""></td></tr>"

skulle agere seperator, men så var der for meget, der skulle rettes til bagefter :o\

<TD HEIGHT="1" bgcolor="000000"><img src="1X1pixel.gif"></td>

Brug ovenstående også lav et gennemsigtigt billede på 1x1 pixel.

Ok, det forsøgte jeg til at starte med. Prøver igen.

Forresten skal cellpadding og cellspacing være 0, for at det virker:

<table border="0" cellpadding="0" cellspacing="0">
<tr><TD HEIGHT="1" bgcolor="000000"><img src="1X1pixel.gif"></td></tr>
</table>

Ja, men cellpadding=4 :o(

Jeg kan heller ikke få denne her til at virke:

response.write "<tr><td height="1" bgcolor=""AF0000"">" & "<img src=""/images/1x1.gif"">" & "</td></tr>"

Bare lav en

<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><TD HEIGHT="1" bgcolor="000000"><img src="1X1pixel.gif"></td></tr>
</table>
</td>
</tr>

i slutningen af din løkke...

Sådan ser koden ud:

response.write "<tr><td valign=""top""><span class=""tekst11"">" &  RS("nick") & ":" & "</span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><a href=""debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
RS.MoveNext
text=""
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="1" bgcolor="AF0000"><img src="/images/1x1.gif"></td></tr>
</table>
</td>
</tr>
wend

Og sådan ser fejlmeddelelsen ud:

Microsoft VBScript compilation error '800a0400'

Expected statement

/debat/lst_debat.asp, line 26

<tr>
^

Linie 26:

<tr>

Desuden skal den jo FØR og EFTER løkken, ellers får jeg seperatoren ind mellem hvert indlæg.

Du skal jo selvfølgelig stoppe ASP inden du sætter html´en ind eller også skal du lave dem om til response.writes

response.write "<tr><td valign=""top""><span class=""tekst11"">" &  RS("nick") & ":" & "</span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><a href=""debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
RS.MoveNext
text=""
%>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="1" bgcolor="AF0000"><img src="/images/1x1.gif"></td></tr>
</table>
</td>
</tr>
<%
wend
%>

Sorry :o) nu ser det sådan ud:

while NOT RS.EOF
tidspunkt = addZ(day(RS("tid"))) & "-" & addZ(month(RS("tid"))) & "-" & year(RS("tid")) & " " & addZ(hour(RS("tid"))) & ":" & addZ(minute(RS("tid")))

response.write "<tr><td valign=""top""><span class=""tekst11"">" &  RS("nick") & ":" & "</span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><a href=""debatemne.asp?emneID=" & RS("emneID") & """>" & RS("emne") & "</a></span></td>"
    response.write "<td valign=""top""><span class=""tekst11""><nobr>" & tidspunkt & "</nobr></span></td></tr>"
RS.MoveNext
text=""
wend

'response.write "<tr><td height="1" bgcolor=""AF0000""> & "<img src=""/images/1x1.gif"">" & "</td></tr>"
'response.write "<tr><td width=""100%"" colspan=""3"" bgcolor=""#AF0000"" style=""height:1px;overflow:hidden;""></td></tr>"

%>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="1" bgcolor="AF0000"><img src="/images/1x1.gif"></td></tr>
</table>
</td>
</tr>
<%

RS.Close
Set RS = nothing
Conn.Close
Set Conn = nothing
%>

Men den bliver kun vist under Forfatter? Har prøvet med colspan="3" m.m.

Har du også prøvet med colspan="3" sådan her:

<tr>
<td colspan="3">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr><td height="1" bgcolor="AF0000"><img src="/images/1x1.gif"></td></tr>
</table>
</td>
</tr>

Det virkede! Gider du svare her? http://www.eksperten.dk/spm/190669