og filen lag.asp: <html> <head> <title>Tak :)</title> </head>
<body> <% strSQL = \"SELECT * FROM Gbog\" Set dbConnection = Server.CreateObject(\"ADODB.Connection\") Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\") dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\" rsRecordSet.Open strSQL, dbConnection, 2, 3 rsRecordSet.AddNew rsRecordSet(\"navn\") = Request.Form(\"navn\") rsRecordSet(\"email\") = Request.Form(\"email\") rsRecordSet(\"besked\") = Request.Form(\"besked\") rsRecordSet.Update rsRecordSet.Close dbConnection.Close Set rsRecordSet = Nothing Set dbConnection = Nothing %> Tak fordi du skrev i min gæstbog </body> </html>
og til sidste filen vis.asp: <html> <head> <title> Look I\'m sooo popular</title> </head>
<body> <% strSQL = \"SELECT * FROM Gbog\" Set dbConnection = Server.CreateObject(\"ADODB.Connection\") Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\") dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\" rsRecordSet.Open strSQL, dbConnection if rsRecordSet.EOF and rsRecordSet.BOF then rsRecordSet.MoveFirst while not rsRecordSet.EOF %> <%=rsRecordSet(\"navn\")%> <%=rsRecordSet(\"email\")%> <%=rsRecordSet(\"besked\")%> <% rsRecordSet.MoveNext wend else Response.Write(\"Intet :(\") end if rsRecordSet.Close dbConnection.Close Set rsRecordSet = Nothing Set dbConnection = Nothing %> </body> </html>
simple gæstbog ik :) men hvad er der galt med den...og jeg har oprettet en database..
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.
<body> <% strSQL = \"SELECT * FROM Gbog\" Set dbConnection = Server.CreateObject(\"ADODB.Connection\") Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\") dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\" rsRecordSet.Open strSQL, dbConnection, 1, 3 if rsRecordSet.EOF and rsRecordSet.BOF then rsRecordSet.MoveFirst while not rsRecordSet.EOF %> <%=rsRecordSet(\"navn\")%> <%=rsRecordSet(\"email\")%> <%=rsRecordSet(\"besked\")%> <% rsRecordSet.MoveNext wend else Response.Write(\"Intet :(\") end if rsRecordSet.Close dbConnection.Close Set rsRecordSet = Nothing Set dbConnection = Nothing %> </body> </html>
<body> <% strSQL = \"SELECT * FROM Gbog\" Set dbConnection = Server.CreateObject(\"ADODB.Connection\") Set rsRecordSet = Server.CreateObject(\"ADODB.RecordSet\") dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=gbog.mdb\" rsRecordSet.Open strSQL, dbConnection, 1, 3 if recordet.eof or recordset.bof then Response.Write(\"ingen poster\") else Do until recordset.eof %> <%=rsRecordSet(\"navn\")%> <%=rsRecordSet(\"email\")%> <%=rsRecordSet(\"besked\")%> <% recordsset.movenext loop end if rsRecordSet.Close dbConnection.Close Set rsRecordSet = Nothing Set dbConnection = Nothing %> </body> </html>
først var der noget galt her i linje 12, så jeg skiftede det til: dbConnection.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.Mappath(\"gbog.mdb\")
og skrev den at der er noget galt her if recordet.eof or recordset.bof then
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.