Hej hvordan ændrer jeg, så når jeg kigger op i fane menuen, står der fx. Gæstebogen eller lign.
<% response.buffer = true %>
<!-- #include file="setup.asp" -->
<html>
<head>
<title>Læs indlæg i <% =Username %>´s gæstebog</title>
<style type="text/css">
.css
{
font-family:<% =Skrifttype %>;
font-size:<% =Skriftsize %>;
}
<!--
A:link {
font-weight: normal;
color: <% =Linkfarve %>;
text-decoration: underline;
}
A:visited {
font-weight: normal;
color: <% =Linkfarve %>;
text-decoration: underline;
}
A:active {
color: <% =Linkfarve %>;
text-decoration: underline;
}
A:hover {
font-weight: normal;
color: <% =Linkfarve %>;
text-decoration: overline;
}
-->
</style>
</head>
<body bgcolor="<% =Baggrundsfarve %>">
<div align="left" style="width: 100%; height: 330">
<p align="center">
<font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>">
<A HREF="tilfoej_indlaeg.asp" TARGET="_top"><b>Skriv et indlæg i gæstebogen</b></A><br>
</font>
<br>
<font face="<% =Skrifttype %>"><font size="<% =Skriftsize %>"><font color="<% =Skriftfarve %>">
<%
'Connection til databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("gaestebog.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<font face=""Arial"" size=""2"">Der er ingen indlæg i databasen, men skynd dig og skriv et som den første ;-)</font>"
else
Do Until rs.EOF
%>
</font>
<div align="center">
<table border="1" width="80%" height="100" bordercolorlight="#<% =TableColor %>" bordercolordark="#<% =TableColor %>" bordercolor="#FFFFFF">
<tr>
<td width="440" height="11" bordercolor="<% =Baggrundsfarve %>">
<p align="left"><font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>">Indlæg fra <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></font></p>
</td>
<td width="439" height="11" bordercolor="<% =Baggrundsfarve %>">
<p align="right"><a href="<%=RS("hjemmeside")%>"><font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>"><%=RS("hjemmeside")%></font></a></td>
</tr>
<font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>">
<center>
<tr>
<td width="885" height="78" colspan="2" bordercolor="<% =Baggrundsfarve %>">
<font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>"><p align="center"><%=RS("besked")%></font></td>
</tr>
</center>
</font>
<tr>
<td width="50%" height="11" bordercolor="<% =Baggrundsfarve %>">
<p align="left"><font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>">
<%
If rs("icq") = "ingen" then %>
Ingen ICQ
<% Else %>ICQ Status <img src="http://wwp.icq.com/scripts/online.dll?icq=<%=RS("icq")%>&img=9" alt="<%=RS("IP")%>"><% end if %></font></p>
</td>
<td width="50%" height="11" bordercolor="<% =Baggrundsfarve %>">
<p align="right"><font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>">Skrevet d. <%=RS("dato")%></font></font></td>
<font face="<% =Skrifttype %>"><font color="<% =Skriftfarve %>"><font size="<% =Skriftsize %>">
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%>
</tr>
</table>
Hold musen hen over personens ICQ status for og se IP´en!<br>
<a target="_blank" href="http://www.chart.dk/ref.asp?id=23776"><img alt="chart.dk" border="0" src="http://cluster.chart.dk/chart.asp?id=23776"></a>
</html>
</font>
Koden er der, hvis i gider fortælle mig hvor henne jeg skal ændre det ville det være dejligt. Der er 100 point på højkant.! Og på forhånd tak!
Skal siges denne gæstebog er gammel, da jeg har lavet den fra langtid siden! Og kan ikke huske asp mere!