Her er koden:
<%@ language="vbscript" %>
<% option explicit %>
<!--#include virtual="/adovbs.inc"-->
<html>
<head>
<title>Sjov-vittig.dk</title>
</head>
<body background="images/baggrund.jpg">
<hr />
<div align="center">
<img src="images/logo001.gif" alt="Sjov og vittig logo" width="451" height="80" />
</div>
<hr />
<%
'Åben en forbindelse til Access databasen
dim Conn
dim DBPath
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("/db/vittigheder.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};"&DBPath
'Dan sql kaldet
dim sql_kald
sql_kald = "select * from tabel1 order by dato asc"
'Dan et objekt med indholdet af den aktuelle tabel
dim obj_rs
set obj_rs = server.createobject("adodb.recordset")
obj_rs.open sql_kald, Conn
response.write "<table width='950' units='pixel'><tr><td width='215'></td><td width='550' valign='top' align='center'><font size='4'>"
'Erklær de variable, der skal bruges
'dato_holder holder den aktuelle dato, som vi arbejder med
dim dato_holder
'dato_hentet holder den sidste dato vi har hentet
dim dato_hentet
'int_flag er nul i første gennemløb, ellers 1
dim int_flag
int_flag = 0
'int_antal holder antallet af vittigheder, der er indsendt på den aktuelle dato
dim int_antal
int_antal = 0
dim str_vit_en
dim str_vit_flere
dim str_vit
str_vit_en = "vittighed."
str_vit_flere= "vittigheder."
'Tyg datoerne igennem, og send hver dato en gang
do while not obj_rs.EOF
dato_hentet = obj_rs("dato")
if int_flag = 0 then
dato_holder = dato_hentet
int_flag = 1
else
if dato_hentet <> dato_holder then
'send datoen i dato_holder til vaelg.asp
if int_antal = 1 then
str_vit = str_vit_en
else
str_vit = str_vit_flere
end if
response.write "På denne dato, <a href='laes.asp?dato_to=" & dato_holder & "'>" & dato_holder _
& "</a> er der indsendt " & int_antal & " " & str_vit & "<br>"
'flyt dato_hentet over i dato_holder
dato_holder = dato_hentet
int_antal = 0
end if
end if
int_antal = int_antal + 1
'Ryk til næste række i tabel1
obj_rs.movenext
loop
'Send den sidste dato
if int_antal = 1 then
str_vit = str_vit_en
else
str_vit = str_vit_flere
end if
response.write "På denne dato, <a href='laes.asp?dato_to=" & dato_holder & "'>" & dato_holder _
& "</a> er der indsendt " & int_antal & " " & str_vit & "<br>"
'Ryd op i ABO objekterne
obj_rs.close
set obj_rs = nothing
Conn.close
set Conn = nothing
%>
</td>
<td valign="top" align="right" width="175">
Tilbage til
<a href="index.html">startsiden.</a><br>
</td></tr></table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
