Opdater dato

Se evt. eksempel på http://www.wmahitlist.dk/djs/111azeir/

Det er top10 listen det drejer sig om i dette tilfælde...

Kan du ikke komme med koden!

Den øverste part. Har lige gjort sådan man tekst mæssigt kan gå ind og rette datoen, men det skal som sagt gøres automatisk:

<%Dim ID,opslag

id=Request.QueryString("ID")

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")

if request.querystring("knap")<>"Ret" then

    SQLstringK="SELECT * FROM jwgbog WHERE id="&id
    SET opslag=Connection.Execute(SQLstringK)
else
   
    SQLstringK="UPDATE jwgbog SET et='"&Request.QueryString("et")&"', kl='"&Request.QueryString("kl")&"', dato='"&Request.QueryString("dato")&"', ti='"&Request.QueryString("ti")&"' WHERE id="&id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>

Pg her er den part som viser TOP10 listen:<%


PageSize = 1

    Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
If Request("PageTo") <> "" Then
    strPageTo = Request("PageTo")
    If strPageTo <> "" Then
        nPageTo = int(strPageTo)
        If nPageTo <  1 Then
            nPageTo = 1
        End If
    Else
        nPageTo = 1
    End If
    Set RS = Session("ListingRS")
    RS.AbsolutePage = nPageTo

else
    Set Conn=Server.CreateObject("ADODB.Connection")
    Conn.ConnectionTimeout=15
    Conn.CommandTimeout=30

    Conn.Open Conn_String
    Set Cmd=Server.CreateObject("ADODB.Command")
    Set RS=Server.CreateObject("ADODB.Recordset")
    Cmd.CommandType = 1
    Set Cmd.ActiveConnection = Conn
    Cmd.CommandText="SELECT * From jwgbog order by ID desc;"
           
    RS.Open Cmd, , 1, 1
    RS.PageSize = PageSize
    Set Session("ListingRS") = RS
    nPageTo = 1
    If not (RS.BOF and RS.EOF) Then
        Set RS = Session("ListingRS")
        RS.AbsolutePage = nPageTo
    End If
   
end if
    If RS.EOF Then
    Response.Write(" <br><br><font size=4 color='red'<b>Der er ikke udarbejdet nogle TOP10 liste endnu!<br></b></font><br>")
Else

    nRowCount = RS.PageSize


    While not RS.EOF and nRowCount > 0
        Count = 0   
        for i = 1 to Count           
        next
        dagar=DateDiff("d", Dato, RS("Dato"))+2
if dagar >= 0 then
        %>

Stadig ikke forstået:

Den tekst de skriver har intet med deres profil at gøre eller hvad/er en sperate datbase?

Jeg kan de af ovenstående script at du rette dato tid når brugeren returnere en form, hvori der er en data er det denne der skal være automatisk?

Denne her har ingenting med deres profil at gøre, men det er det samme problem, bruger nemlig samme database. Det jeg gerne ville have er at når de rette deres profil ell. top10 liste, så går den automatisk ind i databsen og retter datoen...

Jeg har lidt svært ved at forklare det på andre måder..

Prøv evt. at logge på her og ret i top10:
listen:http://www.wmahitlist.dk/djs/111azeir/

Bruger: alizee
Kode: deejames

Heysa !

prøve lige denne...

SQLstringK = "UPDATE jwgbog SET et='"&Request.QueryString("et")&"', kl='"&Request.QueryString("kl")&"', dato = now , ti='"&Request.QueryString("ti")&"' WHERE id="&id

venligst

<ATN/>

<%Dim ID,opslag

id=Request.QueryString("ID")

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")

if request.querystring("knap")<>"Ret" then

    SQLstringK="SELECT * FROM jwgbog WHERE id="&id
    SET opslag=Connection.Execute(SQLstringK)
else
   
    SQLstringK="UPDATE jwgbog SET et='"&Request.QueryString("et")&"', kl='"& Time &"', dato='"&Month(date) ) & "-" & Day(date ) & "-" & Year(date )&"', ti='"&Request.QueryString("ti")&"' WHERE id="&id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>

Uuuups!

<%Dim ID,opslag

id=Request.QueryString("ID")

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../database.mdb")

if request.querystring("knap")<>"Ret" then

    SQLstringK="SELECT * FROM jwgbog WHERE id="&id
    SET opslag=Connection.Execute(SQLstringK)
else
   
    SQLstringK="UPDATE jwgbog SET et='"&Request.QueryString("et")&"', kl='"& Time &"', dato='"&day(date) ) & "-" & Month(date ) & "-" & Year(date )&"', ti='"&Request.QueryString("ti")&"' WHERE id="&id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect "oversigt.asp"
    response.end

end if
    %>

You got it!!!

Takker. Husk at besøge www.wmahitlist.dk, hvis du er lidt interreseret i musik!