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)
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Kom lige med koden til gædtebogen...
<% 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\"> </td> </tr> <tr> <td colspan=\"2\"> </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øj\" name=\"Submit\"> <input type=\"Reset\" value=\"Slet Alt\" name=\"Reset\"> </b></font></div> </td> </tr> </table> <br> </form> </body> </html>
Du skal lave et felt i din database der hedder, StrDato
jeg har en der hedder dato og kl
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 ---
Hvordan ser koden der viser gæste bogen ud?
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
Kurser inden for grundlæggende programmering