Avatar billede okay Nybegynder
13. maj 2001 - 13:55 Der er 9 kommentarer og
1 løsning

Nemt :-)

jeg ser nogen gang i nogen gæstboge at de ligger den sidste dato til den sidste tilføjelse...hvordan gøre jeg det ??

last entry:
5/12/2001 7:32:38 PM

håber du er med :o)
Avatar billede 3rdpixel.hove Nybegynder
13. maj 2001 - 13:57 #1
<% = now() %>
Avatar billede mikkelk Nybegynder
13. maj 2001 - 13:58 #2
Kom lige med koden til gædtebogen...
Avatar billede okay Nybegynder
13. maj 2001 - 13:59 #3
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From jwgbog\", Conn, 1, 3
rs2.AddNew
rs2(\"navn\") = Request.form(\"navn\")

rs2.Update
rs2.Close
Set rs2 = Nothing

set rscount = conn.execute(\"select count(id) as antal from dintabel\")
antal = rscount(\"antal\")
set rscount = nothing
%>
<html>
<head>
<title>JWgbog 1.0 ASP</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"styles.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%=antal%><form action=\"tilfoj.asp\" method=\"post\">
  <br>
  <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" bgcolor=\"#3399FF\" class=\"1px_ganz\">
    <tr>
      <td width=\"134\">Dit Navn <span class=\"rot\"> *</span><font color=\"#666666\">
        </font> <br>
        <input type=\"text\" name=\"navn\" maxlength=\"100\" class=\"1px_ganz\">
      </td>
      <td width=\"251\">&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"2\">&nbsp;</td>
    </tr>
  </table>
  <br>
  <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"400\">
    <tr>
      <td>
        <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
          <input type=\"Submit\" value=\"Tilf&oslash;j\" name=\"Submit\">
          <input type=\"Reset\" value=\"Slet Alt\" name=\"Reset\">
          </b></font></div>
      </td>
    </tr>
  </table>
  <br>
</form>
</body>
</html>
Avatar billede mikkelk Nybegynder
13. maj 2001 - 13:59 #4
Du skal lave et felt i din database der hedder, StrDato
Avatar billede okay Nybegynder
13. maj 2001 - 14:00 #5
jeg har en der hedder dato og kl
Avatar billede mikkelk Nybegynder
13. maj 2001 - 14:00 #6
Og så tilføje linjen:
rs2(\"strDato\") = now
ca. sådan her:
---
Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From jwgbog\", Conn, 1, 3
rs2.AddNew
rs2(\"navn\") = Request.form(\"navn\")
rs2(\"strDato\") = now

rs2.Update
rs2.Close
Set rs2 = Nothing
---
Avatar billede mikkelk Nybegynder
13. maj 2001 - 14:01 #7
Hvordan ser koden der viser gæste bogen ud?
Avatar billede okay Nybegynder
13. maj 2001 - 18:56 #8
sådan her en simpel en :o)

<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN

strSQL = \"Select * From jwgbog Order by dato Desc\"
Set rs = Conn.Execute(strSQL)

Do

  Response.Write rs(\"navn\") & \" \" & rs(\"efternavn\") & \"<br>\"

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</body>
</html
Avatar billede okay Nybegynder
13. maj 2001 - 21:00 #9
:(
Avatar billede okay Nybegynder
14. maj 2001 - 09:21 #10
?????????
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester