Lars Blounsø wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej
- øøøh hej!! ;)
> Nogen der lige ved.. om der findes noget frit ASP script
> til en kommentarspalte ?
Hmm ved jeg ikke, men nu har jeg lavet et selv, og det kan da
frit benyttes!
[klip]
> og her var det jeg godt kunne tænke mig en ASP kommentarboks,
sådan
> at der øverst var en input boks med navn, email og kommentar.
> Kommentarerne skulle så vises lige nedenunder boksen,
Altså en slags "tagwall"??
Her er et eksempel som jeg tror kan bruges (har ikke testet
det!).
Højre frame skal være "kommentarer.asp"!!
Jeg er "kommet til" at tilføje "hjemmeside", men det kan du vel
let slette igen hvis du ikke har brug for det?!
Håber det virker, ellers er du meget velkommen til at skrive
igen!
(Og da jeg selv skriver fra html.dk, synes jeg ikke det betyder
noget, hvorfra man skriver - det er jo en gruppe for alle!)
' kommentarer.asp
<html>
<head>
<title>Kommentarer fra besøgende...</title>
</head>
<body>
<%
If Request.Querystring("showmsg") = "tilfoejet" Then
Response.Write "<b style=""font-weight: bold; color:
#00CC00;"">Tak! Din kommentar er nu tilføjet!</span>" & VbCrLf
Else
%>
<form name="tilfoej" action="tilfoejkommentar.asp" method="post">
<input type="hidden" name="referer" value="<%=
Request.Servervariables("SCRIPT_NAME") %>">
<input type="hidden" name="defaultHjemmeside"
value="
http://www.dinhjemmeside.dk">
<input type="hidden" name="defaultEmail" value="Din@email">
<input type="text" name="navn" value="Dit navn"><br>
<input type="text" name="email" value="Din@email"><br>
<input type="text" name="hjemmeside"
value="
http://www.dinhjemmeside.dk">
<textarea name="kommentar" style="width: 150px;"
rows="6"></textarea><br>
<input type="submit" value="Tilføj kommentar!">
</form>
<%
End If
%>
<br><hr><br>
<div style="width: 155px; height: 400; overflow: auto;">
<%
Set objFS=Server.CreateObject("Scripting.FilesystemObject")
Set objTextS = objFS.OpenTextFile("kommentarer.txt",1,0)
strLine = objTextS.ReadlAll
Response.Write strLine & VbCrLf
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
%>
</div>
</body>
</html>
' tilfoejkommentar.asp
<%
Response.Buffer = True
strDefaultHjemmeside = Request.Form("defaultHjemmeside")
strDefaultEmail = Request.Form("defaultEmail")
strReferer = Request.Form("referer")
strDateAndTime = Now()
strNavn = Request.Form("navn")
strEmail = Request.Form("email")
If strEmail = strDefaultEmail Then
strEmail = ""
Else
strEmail = "<a href=""mailto:" & strEmail & """>Mail</a>"
End If
strHjemmeside = Request.Form("hjemmeside")
If strHjemmeside = strDefaultHjemmeside Then
strHjemmeside = ""
Else
strEmail = "<a href=""" & strHjemmeside & """
target=""_blank"">Hjemmeside</a> "
End If
strKommentar =
Replace(Server.HTMLEncode(Request.Form("kommentar")),VbCrLf,"<br>
" & VbCrLf)
Set objFS=Server.CreateObject("Scripting.FilesystemObject")
Set objTextS = objFS.OpenTextFile("kommentarer.txt",8,False,0)
objTextS.Write "<i style=""font-size:9pt;"">Af " & strNavn & " "
& strDateAndTime & "<br>" & strHjemmeside & strEmail & "</i><br>"
& "Kommentar: <b style=""font-size:9pt;"">" & strKommentar &
"</b>" & VbCrLf & VbCrLf & "<hr>" & VbCrLf & VbCrLf
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
Response.Redirect strReferer & "?showmsg=tilfoejet"
%>
MVH Jonas (aka Juke)
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials