Tænd et lys

Hvad mener du med et "Tænd et lys script" ?

Det er jo bare en animeret gif.

nej har du ikke været inde på siden og se http://www2.postcards.org/go2/candles

Man skriver dit navn og så kommer navnet frem under lyset..
sådan et script

Ok, du skal bruge en database. Det nemmeste er nok en Access, hvis du ikke har MSSQL eller MySQL. Når en person skriver en tekst og trykker på "light a candle", bliver sætningen gemt i databasen, og derefter vist frem på siden.

Hvis du ikke har mulighed for at lave en database, kan du også bruge en text-fil istedet.

Jeg kan godt hurtig bikse noget sammen med en text-fil.

Jeg kan godt bruge Access database på mit webhotel...
Men vil blive glad ligemeget hvad du vil lave :D

Har du msn eller icq ?

jo, men det er bedst at holde tingene her på eksperten, så andre kan se hvad der foregår.

Ved du i forvejen hvordan du connecter til databasen ?

øhhh nej ikke rigtigt :(

ok, så laver jeg bare en text-fil

Kanon... men jeg har da ting liggende som køre på database på mit webhotel.... og det køre fint

ok, så må du da også have opretttet forbindelse til den ?

Nej fik en til det... dengang :D

Så har jeg lavet en simpel version. Den ser ikke så køn ud, men du han jo style den som du vil.

Du kan se det her:
http://83.72.34.212/pics/candle.asp
(hvis min firewall ellers opfører sig ordenligt) :-)

Jeg har bare taget billedet fra den anden hjemmeside, men du må hellere lave et selv (copyright o.s.v.)

KANON :D

det ser super godt ud

Her er koden til filen candle.asp:

<html>
<head>
</head>
<body>
<form name="candle" action="saveCandle.asp" method="post">
<input type="text" name="tekst">
<input type="submit" name="submit" value="Light a Candle">
</form>
<table>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("candles.txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream
%>
  <tr>
    <td align="center">
        <%if not f.AtEndOfStream then%>
            <img src="c2.gif"><br>
            <%=f.ReadLine%>
        <%end if%>
    </td>
    <td align="center">
        <%if not f.AtEndOfStream then%>
            <img src="c2.gif"><br>
            <%=f.ReadLine%>
        <%end if%>
    </td>
    <td align="center">
        <%if not f.AtEndOfStream then%>
            <img src="c2.gif"><br>
            <%=f.ReadLine%>
        <%end if%>
    </td>
    <td align="center">
        <%if not f.AtEndOfStream then%>
            <img src="c2.gif"><br>
            <%=f.ReadLine%>
        <%end if%>
    </td> 
  </tr>
<%
Loop
f.Close
%>
</table>
</body>
</html>

Her er koden til filen saveCandle.asp:

<%
tekst = request("tekst")
if tekst <> "" then
    Dim fso, f, filespec
    Set fso = CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath("candles.txt")
    Set f = fso.OpenTextFile(filespec,8)
    f.WriteLine tekst
    f.Close
end if
response.redirect("candle.asp")
%>

Derudover skal du have en almindelig tekstfil ved navn:

candles.txt

Det er vigtigt, at du sætter skriverettighederne til filen, så internetbrugere kan skrive og læse fra den.

1000000000000 Tak

Hvordan giver jeg dig dine points ?

Han skal smide et svar, og så kommer der en lille boks over tekstboksen ved dig,
Så kan du markere hans navn, og trykke på accepter ;)

hov, det havde jeg glemt :-)

Her er et svar...

1000 Tak rbl

fik du dem ?

Ja han gjorde ;)

Du behøver ikke selv smide et svar for det ;)

*LOL* er ny :)

det var så lidt, og tak for point.

Hvis der er nogle ting, du er i tvivl om, kan du bare spørge.
Du kan også læse mere om tekstfiler her:
http://html.dk/tutorials/asp/lektion14.asp

1000 tak.. jeg er bare sådan en spasser til sådan noget... og tit jeg lige står og mangle nogle små ting til min hp :(

Men meget glad for du gad