den supprorterer asp, ellers ville jeg jo ikke spørge. Og siden er lavet i html/dhtml og desuden asp til nyhedsmondulet og banelikkning osv. Og ja kender lidt til asp, dog ikke meget.
selve nyhedscriptet hvor overskriften hentes ind ser således ud:
<!--#include file ="main_text_01.htm"-->
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mindatabase.mdb") & ";UID=admin;PWD=;"
If Request.Form("Gem") <> "" Then
strNavn = Trim(Request.Form("Overskrift"))
strKommentar = Trim(Request.Form("Kommentar"))
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM news WHERE (ID = 34)"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
If (rs.BOF Or rs.EOF) Then
rs.AddNew
rs("Overskrift") = strNavn
rs("Kommentar") = strKommentar
rs("Dato") =Date()
rs.Update
End If
rs.Close
Set rs = Nothing
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title></title>
<style type="text/css">
<!--
BODY {
font-family: Arial;
font-size: 12px;
font-style: normal;
color: #000000;
}
A:LINK {
font-family: Arial;
font-size: 12px;
font-style: normal;
text-decoration : underline;
color: #b30000;}
A:VISITED {
font-family: Arial;
font-size: 12px;
font-style: normal;
text-decoration : none;
color: #b30000;
}
A:HOVER {
font-family: Arial;
font-size: 12px;
font-style: normal;
text-decoration : none;
color: #008000;
}
TD {
font-family: Arial;
font-size: 12px;
font-weight: normal;
font-style: normal;
color: #000000;
}
-->
</style>
<base target="_self">
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="450" cellspacing="0" cellpadding="10">
<tr>
<td width="100%">
<table border="1" cellpadding="0" width="433" bordercolor="#ffffff" cellspacing="0">
<tr>
<td bordercolor="#294A7B"></td>
</tr>
<tr>
<td bordercolor="#294A7B"><%
Select Case strMode
Case "add"
%> <%
Case Else
Set myConn = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT top 150 * FROM news ORDER BY ID DESC;"
myConn.Open tempConn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<table border=0 cellpadding=3 cellspacing=0>"
Do While Not rs.EOF
Select Case weekday(rs("Dato"))
case 1 dag = "Søndag"
case 2 dag = "Mandag"
case 3 dag = "Tirdag"
case 4 dag = "Onsdag"
case 5 dag = "Tordag"
case 6 dag = "Fredag"
case 7 dag = "Lørdag"
End Select
Select Case month(rs("Dato"))
case 1 maaned = " januar "
case 2 maaned = " februar "
case 3 maaned = " marts "
case 4 maaned = " april "
case 5 maaned = " maj "
case 6 maaned = " juni "
case 7 maaned = " juli "
case 8 maaned = " august "
case 9 maaned = " september "
case 10 maaned = " oktober "
case 11 maaned = " november "
case 12 maaned = " december "
End Select
Response.Write "<tr bgcolor=#294A7B><td><font color=#ffffff><B>" & dag & " d. " & day(rs("Dato")) & maaned & year(rs("Dato")) & " - " & rs("Overskrift") & "</B></td></tr>"
'response.write year(rs("Dato"))
Response.Write "<tr bgcolor=#F3F3F3><td><br>" & rs("kommentar") & "<br> </td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
Response.Write "<p>..:: no tags ::.</p>"
End If
myConn.Close
Set myConn = Nothing
End Select
%> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<!--#include file ="main_bottom.htm"-->
Ny bruger
Nybegynder
Opret
Preview
