HMmm det er da mærkelig - men linie 68 = Function nultjek(vari)
Her er siden
http://www.lystfiskerens.net/forum/aktuelletest.asp og hele koden ser sådan ud :
-------------------o-----------------
<% Session.LCID = 1030 %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/forum/database/fladbuk.mdb")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Aktuelle Nyheder</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.anmeldelse {
font-family: "Times New Roman", Times, serif;
font-size: 12px;
}
-->
</style>
</head>
<body>
<table width="180" height="100%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="180" border="0" cellpadding="10" cellspacing="0" class="anmeldelse">
<tr>
<td></td>
</tr>
<tr>
<td><table width="180" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#333333" bgcolor="#2687D0">
<div align="center"><font color="#FFFFFF">FORUM</font></div></td>
</tr>
<tr>
<td>
<br>
<%
sql = "SELECT TOP 2 * FROM PORTAL_TOPICS ORDER BY T_LAST_POST DESC"
Set rs = Conn.Execute (sql)%>
<%
if rs.EOF then
%>
<%
else
%>
<%
Do Until rs.EOF
%>
<strong><font size="2"> <% = rs("T_SUBJECT") %> </strong> <br>
<% dato = rs("T_LAST_POST")
aar = Cint(Left(dato,4)) ' Cint laver om til et tal
md = MonthName(mid(dato,5,2))
dag = Cint(mid(dato,7,2))
tim = nultjek(Cint(mid(dato,9,2)))
minutter = nultjek(Cint(mid(dato,11,2)))
sec = nultjek(Cint(mid(dato,13,2)))
Function nultjek(vari)
if vari < 10 then
strtal = "0" & Cstr(vari)
else
strtal = Cstr(vari)
end if
nultjek = strtal
end function
Response.Write " " & dag & " " & md & " " & aar & " kl. " & tim & "." & minuter & "." & sec
%>
<br>
<a href=/forum/link.asp?TOPIC_ID=<% = rs("TOPIC_ID") %>> >> læs mere</font><br> </a> <font color="#FF0000" size="2"> </font></font></td>
</a>
</td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>
<p>
<% end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
<tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/forum/database/fladbuk.mdb")
%>
<td><table width="180" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#333333" bgcolor="#2687D0"><div align="center"><font color="#FFFFFF">BILLEDER</font></div></td>
</tr><%
sql = "SELECT TITLE, POST_DATE, TURL, PIC_ID FROM PIC ORDER BY POST_DATE DESC"
Set rs = Conn.Execute (sql)%>
<tr>
<td><div align="center"><%
billed_url = rs("TURL")
if billed_url<>"" then
Response.write "<br>" & "<br>" & "<img src='" & billed_url & "'"
end if
%></div>
</td>
</tr>
<tr>
<td> <br>
<strong><font size="2"> <% = rs("TITLE") %> </strong><br>
<% dato = rs("POST_DATE")
aar = Cint(Left(dato,4)) ' Cint laver om til et tal
md = Cint(mid(dato,5,2)) +1
mdr = MonthName(Month(md))
dag = Cint(mid(dato,7,2))
tim = Cint(mid(dato,9,2))
minuter = Cint(mid(dato,11,2))
sec = Cint(mid(dato,13,2))
Response.Write " " & dag & " " & mdr & " " & aar & " kl. " & tim & "." & minuter & "." & sec
%>
<br>
<a href=/forum/pic_display.asp?id=<% = rs("PIC_ID") %>> >> se mere</font><br> </a> <font color="#FF0000" size="2"> </font></td>
</a>
</td>
</tr>
</table>
<tr>
<td><table width="180" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
<tr>
<td bordercolor="#333333" bgcolor="#2687D0"><div align="center"><font color="#FFFFFF">ANMELDELSER</font></div></td>
</tr>
<tr>
<td class="anmeldelse"><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/anmeldelse/jerg.mdb")
str_sql2 = "SELECT TOP 1 * FROM anm ORDER BY id desc"
Set rs = Conn.Execute (str_sql2)
%>
<strong>
<% = rs("kategori") %>
</strong><br>
* <% = rs("produkt") %> <% = rs("butik") %> * <br>
indsat af
<% = rs("navn") %>
den
<% = rs("dato") %><br>
<a href="/anmeldelse/popup.asp?rid=<%=rs("id") & "&t=" & rs("kategori")%> & "> >> læs mere</a>
</td>
</tr>
</td>
</tr>
</td>
</tr>
</table></td>
</tr>
</table>
<%
if rs.EOF then
%>
<%
else
%>
<%
Do Until rs.EOF
%>
<%
rs.MoveNext
Loop
%>
<% end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
