Kodet til "barometer"

Hmm...


<%
  AntalKr = 10
%>

<html>
<body>
<table>
<tr>
<td bgcolor="336699" width="<%= AntalKr %>"></td>
</tr>
</table>

//>Rune

så er det eneste du skal justere er variablen AntalKr!

//>Rune

Denne er nok lidt pænere:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Untitled</title>
</head>

<body>

<%
  AntalKr = 10
%>
<table>
      <tr>
            <td bgcolor="336699" width="<%= AntalKr %>" height="6"></td>
      </tr>
</table>

</body>
</html>


//>Rune

Jaja, det er nu meget godt, men for at man kan udnytte asp ordentligt, mener jeg at det bør være koblet sammen med en db' ellers kunne man lige have valgt at lave det statisk, og så bare opdatere ex. 2 gange dagligt

/Søren Søndergård

well, det kan man jo sagtens gøre... -det tager 5 min.! - Men jeg vil lige se om det ER det her han vil ha'!

//>Rune

Jeg havde tænkt mig noget lidt mere fancy med dynamisk opdatering via en form

ahh... ok så skal du igang med noget database værk...! - eller noget arbejde med nogle textfiler...!
//>Rune

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%
    If Request.QueryString("sektion") = "" Then
        Dim fso, f, filespec
            Set fso = CreateObject("Scripting.FileSystemObject")
                filespec = Server.Mappath("barometer.txt")
                Set f = fso.OpenTextFile(filespec,1)

                ' Læs linie fra tekstfilen, og skriv indholdet til klienten
                strNu = f.ReadLine
%>
<form action="<%= Request.ServerVariables("SCRIPT_NAME")%>?sektion=gem" method="post">
    <input type="text" name="barometer"><input type="submit" value="stem">
</form>

<table>
    <tr>
        <td width="<%= strNu %>" bgcolor="#336699" height="6"></td>
    </tr>
</table>

<%
    f.Close
    End If
%>

<%
    If Request.QueryString("sektion") = "gem" Then
        Dim fso, f, filespec
            Set fso = CreateObject("Scripting.FileSystemObject")
                filespec = Server.Mappath("barometer.txt")
                Set f = fso.OpenTextFile(filespec,1)

                ' Læs linie fra tekstfilen, og skriv indholdet til klienten
                strNu = f.ReadLine
        f.Close

        Dim fso, f, filespec
            Set fso = CreateObject("Scripting.FileSystemObject")
                filespec = Server.Mappath("barometer.txt")
                Set f = fso.OpenTextFile(filespec,2)

                strIalt = Cint(Request.Form("barometer") + strNu)


            ' Skriv tekst i en linie
            f.WriteLine strIalt

            ' Åbn filen til læsning og læs linie
            Set f = fso.OpenTextFile(filespec,1)
                Response.write f.ReadLine

        f.Close
End If
%>


</BODY>
</HTML>


Det er ikke prøvet af, men se lige om det virker...!

//>Rune

Thx 4 poinz
//>Rune