Søg
Avatar billede no_doubt Nybegynder
25. marts 2002 - 21:56 Der er 18 kommentarer og
1 løsning

weekend eller andre festdage, vis billede eller andet billede

Hvordan kan jeg få et script til at vise et bestemt billede på specielle dage, f.eks. hvis jeg angiver en dato i en database, så viser den et og så fremdeles ?

Det ville være endnu mere smart hvis den selv fandt det bestemte billede frem, Fredage og Lørdage, og bagefter tjekkede om jeg havde lagt en dato i databasen *s*
Avatar billede qspi Nybegynder
25. marts 2002 - 21:59 #1
Lytter lige med her =)
Avatar billede medions Nybegynder
25. marts 2002 - 22:00 #2
If date() = "14-09-02" Then
  Response.Write("<img src='billede.gif'>")
End If

osv..
//>Rune
Avatar billede nixon Juniormester
25. marts 2002 - 22:03 #3
tjek evt dette link .. billede "mandag" er lavet ved hjælp af et script
http://www.bergsoe.dtu.dk/
Avatar billede medions Nybegynder
25. marts 2002 - 22:03 #4
If date() = "14-09-02" Then
  Response.Write("<img src='billede.gif'>")
ElseIf date() = "15-09-02" Then
  Response.Write("<img src='ettilbillede.gif'>")
End If

sådan kan du bare blive ved...

//>Rune
Avatar billede no_doubt Nybegynder
25. marts 2002 - 22:04 #5
èj det skal være sådan at den viser et fest billede¨på fredag og lørdag og de datoer jeg har sat i databasen
Avatar billede no_doubt Nybegynder
25. marts 2002 - 22:05 #6
nixon kan du lave det med Fredag og Lørdag ?
Avatar billede nixon Juniormester
25. marts 2002 - 22:08 #7
Hvis du læser kilden:)

<script language="JavaScript"><!--

function MakeArray2(size)
{
    this.length = size;
    for(var i = 1; i <= size; i++)
    {
        this[i] = 0;
    }

    return this;
}

function daypic()
{
    dag = new Date();
    document.writeln("<IMG SRC='grafik/"  + convertDay(dag.getDay()) + ".gif' alt='" + convertDay(dag.getDay()) + "' valign='top'>");
}
function convertDay(dayValue) {
    strDay= new MakeArray2(7);
    strDay[0] = "soendag";
    strDay[1] = "mandag";
    strDay[2] = "tirsdag";
    strDay[3] = "onsdag";
    strDay[4] = "torsdag";
    strDay[5] = "fredag";
    strDay[6] = "loerdag";
    return strDay[dayValue];
}
// --></script>
Avatar billede no_doubt Nybegynder
25. marts 2002 - 22:23 #8
Medions kigger på det men kan sige at scriptet skal.

Kigge i en database om jeg har tastet en dato ind, har jeg det og det er den pågælende dato skal den vise det billede jeg har angivet i en anden kolonne.

så skal den kontrollere om det er er fredag eller lørdag, vise ét billede hvis det er det, og else then vise et andet.
Avatar billede nixon Juniormester
25. marts 2002 - 22:29 #9
ups glemte denne "skal være der hvor billede skal ligge

<script><!-- daypic() // --></script>

du kan evt ændre soendag,mandag,tirsdag,onsdag og torsdag til hverdage
så vil de altid vise hverdage.gif de dage :)
Avatar billede medions Nybegynder
25. marts 2002 - 22:45 #10
There you go:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If dag = rs("dag") Then
            Response.Write("<img src='" & rs("billede") & "'>")
        End If
    rs.MoveNext
    Wend
%>

Kom lige med din mail adresse, så sender jeg dig lige databasen!

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 22:46 #11
nixon> Det er jo ikke JavaScript kategorien vi er inde under...! - Det er ASP!

Så det er jo nok en ASP løsning han leder efter!

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 22:50 #12
Du kan jo bare bygge videre på den:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If rs("dag") = "Lørdag" Then
            Response.Write("<img src='lørdag.gif'>")
        End If
    rs.MoveNext
    Wend
%>

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 22:56 #13
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If rs("dag") = "Lørdag" Or rs("afsatdag") = Date() Then
            If rs("afsatdag") = Date() Then
                Response.Write("<img src='" & rs("afsatdagimg") & "'>")
            Else
                Response.Write("<img src='lørdag.gif'>")
            End If
        End If
    rs.MoveNext
    Wend
%>

-Sender dig lige en ny database...

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 23:12 #14
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If Dag = "Mandag" Or Dag = "Tirsdag" Or Dag = "Onsdag" Or Dag = "Torsdag" Then
            Response.Write("<img src='hverdag.jpg'>")
        ElseIf rs("dag") = Date() Then
            Response.Write("<img src='afsatdag.jpg'>")
        ElseIf Not rs("dag") = Date() Or Dag = "Mandag" Or Dag = "Tirsdag" Or Dag = "Onsdag" Or Dag = "Torsdag" Then
            Response.Write("<img src='weekend.jpg'>")           
        End If
    rs.MoveNext
    Wend
%>

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 23:21 #15
Så.. nu skulle den gerne funge!:

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If Not Dag = "Fredag" Or Dag = "Lørdag" Then
            If Dag = rs("dag") Then
                Response.Write("<img src='" & rs("billede") & "'>")
            End If
        ElseIf rs("afsatdato") = Date() Then
            Response.Write("<img src='" & rs("afsagdatoimg") & "'>")
        ElseIf Dag = "Fredag" Or Dag = "Lørdag") Then
            Response.Write("<img src='" & rs("billede") & "'>")
        End If
    rs.MoveNext
    Wend
%>

-Sender dig lige databasen...!

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 23:23 #16
Ups...

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If Not Dag = "Fredag" Or Dag = "Lørdag" Then
            If Dag = rs("dag") Then
                Response.Write("<img src='" & rs("billede") & "'>")
            End If
        ElseIf rs("afsatdato") = Date() Then
            Response.Write("<img src='" & rs("afsagdatoimg") & "'>")
        ElseIf Dag = "Fredag" Or Dag = "Lørdag" Then
            Response.Write("<img src='" & rs("billede") & "'>")
        End If
    rs.MoveNext
    Wend
%>

//>Rune
Avatar billede medions Nybegynder
25. marts 2002 - 23:51 #17
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If rs("afsatdato") = Date() Then
            Response.Write("<img src='" & rs("afsatdatoimg") & "'>")
            Dag = 0
        Else
            If Not Dag = "Fredag" Or Dag = "Lørdag" Then
                If Dag = rs("dag") Then
                    Response.Write("<img src='" & rs("billede") & "'>")
                End If
            ElseIf Dag = "Fredag" Or Dag = "Lørdag" Then
                Response.Write("<img src='" & rs("billede") & "'>")
            End If
        End If
    rs.MoveNext
    Wend
    Response.Write("<p>" & Date())
%>

</BODY>
</HTML>


//>Rune
Avatar billede medions Nybegynder
26. marts 2002 - 00:01 #18
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")
   
        SQL = "SELECT * FROM billede"
        Set rs = Conn.Execute(SQL)

            strDato = Array("Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag", "Søndag")
            Dag = strDato(Weekday(Now) -1)
   
    While Not rs.EOF
        If rs("afsatdato") = Date() Then
            Response.Write("<img src='" & rs("afsatdatoimg") & "'>")
            Dag = 0
        Else
            If Not Dag = "Fredag" Or Dag = "Lørdag" Then
                If Dag = rs("dag") Then
                    Response.Write("<img src='" & rs("billede") & "'>")
                End If
            ElseIf Dag = "Fredag" Or Dag = "Lørdag" Then
                Response.Write("<img src='" & rs("billede") & "'>")
            End If
        End If
    rs.MoveNext
    Wend
    Response.Write("<p>" & Date())
%>

//>Rune
Avatar billede medions Nybegynder
26. marts 2002 - 00:40 #19
Thx 4 Poinz!
//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:36 Kan man gøre skriften i Libre Office 26.8 - På en PC med Windows 10 mere stabil ? Af Ikke-ekspert i Office & Kontorpakker
I går 07:10 Problemer med PC Af sorensen84 i PC
28/1017:10 Installation af software til UPS Af ErikHg i Andet hardware
26/1012:28 slet gemte logind Af knuldefar1942 i Diverse
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
White papers
Flere white papers »