Her er de scripts jeg brug til min nyhedsside:
Indtastningsformular:
<!---
<body>
<%
If Request.Form("header") = "" Then
%>
<br><br><br>
<table align="center" width="80%">
<tr>
<td colspan="2" align="center"><h2>Indtast nyheder</h2>
[<a href="
http://www.skakklubbenspringeren.dk" target="_top">Springerens hjemmeside</a>][<a href="vis_webmaster.asp">Se nyheder</a>]<p>
</td>
</tr>
<form method="POST" action="indtast_nyheder.asp">
<tr>
<td>Overskrift</td>
<td><input type="text" size="20" name="header"></td>
<tr>
<td>Kommentar:</td>
<td><textarea rows="6" name="kommentar" cols=54"></textarea></td>
</tr>
<tr>
<td colspan="3" align="center">
<input type="hidden" name="dato" value="<%=Date%>">
<input type="hidden" name="tid" value="<%=Time%>">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="submit" value="Send kommentar">
</td>
</tr>
</form>
</table>
<%Else%>
<%
Dim Query, rs
Query = "SELECT * FROM webmaster WHERE 1=2"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Query, Connect, 1, 2
rs.AddNew
rs("Dato") = Request.Form("dato")
rs("Tid") = Request.Form("tid")
rs("Overskrift") = Request.Form("header")
rs("Kommentar") = Request.Form("kommentar")
rs.Update
rs.Close
%>
<br><br><br>
<table align="center">
<tr>
<td align="center">
<h2>Send kommentar</h2>
[<a href="
http://www.skakklubbenspringeren.dk target="_top">Springerens hjemmeside</a>][<a href="vis_webmaster.asp">Se nyheder</a>]<p>
</td>
</tr>
<tr>
<td>
Din kommentar er nu sendt til databasen. Klik på "Se nyheder" for at læse den og de øvrige kommentarer.
</td>
</tr>
<%End If%>
</body>
Visningsformular:
<%
Function DKdato(datDato)
DKdato = day(datDato) & "-" & month(datDato) & "-" & year(datDato)
End function
%>
</head>
<body>
<table align="center" border="1" cellspacing="0" width="95%">
<tr>
<td colspan="2" align="center"><h2>Nyheder</h2>
[<a href="
http://www.skakklubbenspringeren.dk" target="_top">Springerens hjemmeside</a>][<A HREF="indhold.asp">Andre overskrifter</A>]
<p>
</td>
</tr>
<%
Dim Query, rs
Query = "SELECT * FROM webmaster WHERE Id=" & Request.QueryString("Id")
Set rs = Connect.Execute(Query)
Do Until rs.eof
%>
<tr>
<td><p>Dato:</td>
<td>
<%
Response.Write DKDato(rs("Dato"))
%></td>
</tr>
<tr>
<td>Tidspunkt:</td>
<td><%=FormatDateTime(rs("Tid"),4)%></td>
</tr>
<tr>
<td colspan="2"><h4><%=rs("Overskrift")%></h4></p></td>
</tr>
<tr>
<td colspan="2"><%=rs("Kommentar")%></p></td>
</tr>
<%
rs.MoveNext
Loop
'Connect.Close
'Set Connect = Nothing
%>
</table>
</body>
---!>
Det eneste der ikke helt virker som jeg vil have det er datoen. Min host kører tilsyneladende med en amerikansk server med ditto datoformat, og det konverteringsscript jeg har tilføjet virker kun betinget (efter den 12. i en måned
)
Polyglot