Kan jeg godt bruge men kan du sætte det ind :D..
index.asp... -v-
<html>
<head>
<title>Tagwall</title>
</head>
<body>
<html>
<head>
</head>
<Body>
<%
strAdd = Replace(strAdd,":)","smiley.gif")
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("gb.mdb")
Conn.Open DSN
strSQL = "Select * from gb"
set rscount = conn.execute("select count(id) as antal from gb")
antal = rscount("antal")
set rscount = nothing
%>
<div align="right"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Der er <%=antal%> indlæg i gæstebogen</b></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></b></div>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("gb.mdb")
Conn.Open DSN
strSQL = "Select TOP 4 * from gb order by ID desc"
set rs = Conn.Execute(strSQL)
Do While not rs.eof
Response.Write rs("dato")
Response.Write "<br>"
Response.Write "<br>"
Response.Write "<a href=""mailto:"
Response.Write rs("email")
Response.Write """>"
Response.Write rs("navn")
Response.Write "</a>"
Response.Write "<br>"
Response.Write "<a href=""
http://"Response.Write rs("hjemmeside")
Response.Write """>"
Response.Write rs("hjemmeside")
Response.Write "</a>"
Response.Write "<br>"
Response.Write "<br>"
Response.Write rs("kommentar")
Response.Write "<hr noshade color=""#000000"">"
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
<p align="center"><a href="arkiv.asp">Vis alle indlæg.</a></p>
<p align="center"></p>
<%
strAdd = Replace(strAdd,":)","<img src=glad.gif>")
strAdd = Replace(strAdd,":P","<img src=tunge.gif>")
strAdd = Replace(strAdd,":(","<img src=sur.gif>")
strAdd = Replace(strAdd,":]","<img src=skæv.gif>")
%>
<p align="center"><font size="5" face="Verdana"><b>Nyt indlæg</b></font></p>
<font face="Verdana" size="2">
<script>
function validate(theForm){
if (theForm.navn.value == ""){
alert("Skriv venligst dit navn!");
theForm.navn.focus();
return false;
}
if (theForm.email.value == "" || theForm.email.value.indexOf('@',1)== -1 || theForm.email.value.indexOf('.',2)==-1){
alert("Skriv en gyldig e-mail!");
theForm.email.focus();
return false;
}
if (theForm.hjemmeside.value == ""){
alert("Skriv din hjemmeside!");
theForm.hjemmeside.focus();
return false;
}
if (theForm.kommentar.value == ""){
alert("Skriv din kommentar!");
theForm.kommentar.focus();
return false;
}
return true;
}
function AddText(NewCode)
{
var msgObj = document.getElementById("kommentar");
if (msgObj.createTextRange && msgObj.caretPos)
{
var caretPos = msgObj.caretPos;
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ? NewCode + ' ' : NewCode;
}
else
{
msgObj.value+=NewCode
}
msgObj.focus();
}
function getActiveText(selectedtext)
{
text = (document.all) ? document.selection.createRange().text : document.getSelection();
if (selectedtext.createTextRange)
{
selectedtext.caretPos = document.selection.createRange().duplicate();
}
return true;
}
</script>
<form method="POST" action="godkend.asp" onsubmit="return validate(this);" name="opretform0submit1">
<p align="center">
Dit navn: <input type="text" name="navn" size="20"></p>
<p align="center">Din e-mail:
<input type="text" name="email" size="20"></p>
<p align="center">Din hjemmeside:
<input type="text" name="hjemmeside" size="20"></p>
<p align="center">Din kommentar:
<textarea rows="4" name="kommentar" cols="20" onChange="getActiveText(this)" onclick="getActiveText(this)" onFocus="getActiveText(this)"></textarea></p>
<p align="center"><img src="glad.gif" onclick="java script:AddText(':)');">
<img src="tunge.gif" onclick="java script:AddText(':P');">
<img src="sur.gif" onclick="java script:AddText(':(');">
<img src="skæv.gif" onclick="java script:AddText(':]');">
<p align="center">
<input type="submit" value="Skriv" name="B1"></p>
</form>
<p align="center">
<br><br>
</font>
</body>
</html>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
