Mellemrum i nyheds kode (koden er her men der skal mellemrum i mellem nyhederne altså en ny linie)
<%\'Åbn databasen
Set conntemp = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"nyheder/ind_og_udland/db.mdb\") & \"; UID=Administrator; PWD=\"
conntemp.open DSN
response.write \"<HTML><HEAD><TITLE>::::::[Netmus.dk Din søgeside]::::::</TITLE></HEAD><BODY bgcolor=\"\"#ffffff\"\">\"
response.write \"<DIV align=\"\"center\"\"><TABLE width=\"\"124%\"\" cellspacing=\"\"0\"\" cellpadding=\"\"5\"\" BORDER=\"\"0\"\" height=\"\"80%\"\"><TR><TD style=\"\"BORDER: #006699 1px solid\"\" bgcolor=\"\"#006699\"\" valign=\"\"top\"\">\"
mode=request(\"mode\")
\' ********************************* Tilføj nyhed
if mode=\"news\" and request(\"functions\") = \"add\" then
If Request.Form(\"Add\") <> \"\" Then
\'Indsæt i databasen
SQL = \"INSERT INTO [Nyheder] (navn,mail,emne,kommentar) VALUES (\'\" & request(\"navn\") & \"\', \'\" & request(\"mail\") & \"\', \'\" & request(\"emne\") & \"\', \'\" & request(\"kommentar\") & \"\')\"
conntemp.execute(sql)
response.write \"<FONT face=\"\"arial\"\" size=\"\"2\"\"><B>Nyheden er nu oprettet!, klik <a href=\"\"default.asp\"\"><B>her</B></a></FONT>\"
Else
response.write \"<FORM action=\"\"default.asp?mode=news&functions=add\"\" method=\"\"post\"\"><FONT face=\"\"arial\"\" size=\"\"2\"\">\"
response.write \"<B>Navn:<br></B><input name=\"\"navn\"\" size=\"\"35\"\" class=\"\"oneline\"\"><br><br>\"
response.write \"<B>Email:<br></B><input name=\"\"mail\"\" size=\"\"35\"\" class=\"\"oneline\"\"><br><br>\"
response.write \"<B>Emne:<br></B><input name=\"\"emne\"\" size=\"\"35\"\" class=\"\"oneline\"\"><br><br>\"
response.write \"<B>Kommentar:<br></B><TEXTAREA name=\"\"kommentar\"\" cols=\"\"35\"\" rows=\"\"8\"\" class=\"\"box\"\"></TEXTAREA><br><br>\"
response.write \"<input type=\"\"submit\"\" name=\"\"add\"\" class=\"\"box\"\" value=\"\"OPRET NYHED\"\"></FORM>\"
response.write \"Bemærk at nyheden ikke vil blive vist før at den er blevet accepteret!!</FONT>\"
End if
\' ********************************* Vis nyhed
Elseif mode=\"news\" and request(\"id\") <> \"\" then
sql = \"SELECT * from Nyheder WHERE id=\"& request(\"id\") &\" \"
set rstemp = conntemp.execute(sql)
\'Hvis nyheden er accepteret
if rstemp(\"vis\") = true then
response.write \"<FONT face=\"\"arial\"\" size=\"\"2\"\">\" & rstemp(\"emne\") & \" (<B>\" & rstemp(\"dato\") & \" \" & rstemp(\"tid\") & \"</B>)<br>\"
response.write \"\" & rstemp(\"kommentar\") & \"\"
response.write \"<br><br>Læs mere: <a href=\"\"\" & rstemp(\"mail\") & \"\"\"target=_blank>\" & rstemp(\"navn\") & \"</a></FONT>\"
\'Hvis nyheden ikke er accepteret
else
response.write \"<FONT face=\"\"arial\"\" size=\"\"2\"\"><B>Denne nyhed kan ikke vises!!</B></FONT>\"
end if
rstemp.close
\' ********************************* Vis alle nyheder
else
sql = \"SELECT * from [Nyheder] where vis=-1 ORDER BY dato desc,tid desc\"
set rstemp = conntemp.execute(sql)
response.write \"<FONT face=\"\"arial\"\" size=\"\"2\"\"><B></B><BR>\"
do while not (rstemp.eof or rstemp.bof)
response.write \"<a href=\"\"nyheder/ind_og_udland/default.asp?mode=news&id=\" & rstemp(\"id\") & \"\"\">\" & rstemp(\"emne\") & \"</a><br>\"
rstemp.movenext
loop
rstemp.close
end if
response.write \"</TD></TR></TABLE></DIV>\"
response.write \"</BODY></HTML>\"
\'Luk databasen
conntemp.close
set conntemp=nothing
%>
