Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
alle_nyheder.asp: <% Do While Not Record.EOF %> <td><font size="1" face="Verdana"><b><a href="vis_nyhed.asp=?overskrift=<% Response.Write Record("Overskrift")%>"><%Response.Write Record("Overskrift")%></b></font></td>
vis_nyhed.asp: Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato Sql = "SELECT * FROM nyheder ORDER BY Dato DESC Where overskrift='" & Request.QueryStrin("overskrift") & "'" Set Record = Con.Execute(Sql)
Den er da pænt nem. Har lige lavet nogle rettelser: alle_nyheder.asp: <td><font size="1" face="Verdana"><b><a href="vis_nyhed.asp?id=<%= Record("ID")%>"><%= Record("Overskrift")%></a></b></font></td>
vis_nyhed.asp: <% Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
id = Request.QueryString("id") ' Her hiver vi indholdet af databasen ud, som klienten har valgt: Sql = "SELECT * FROM nyheder Where ID=" & id Con.Execute(Sql)
Fejltype: Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401) Slut på sætning var ventet /vis_nyhed.asp, line 2, column 15 Connection til database --------------^
vis_nyhed.asp: <% Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
id = Request.QueryString("id") ' Her hiver vi indholdet af databasen ud, som klienten har valgt: Sql = "SELECT * FROM nyheder Where ID=" & id Con.Execute(Sql)
Response.Write Record("nyhed") %>
ikke akkurat det samme som jeg skrev her:
' Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
strQS = request.querystring("id")
Sql = "SELECT * FROM nyheder where id = strQS" Set Record = Con.Execute(Sql)
musicchart > Næsten, men der er ikke en stor forskel heller fra det jeg skrev først: Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud, sorterer dem efter dato Sql = "SELECT * FROM nyheder ORDER BY Dato DESC Where overskrift='" & Request.QueryStrin("overskrift") & "'" Set Record = Con.Execute(Sql)
<% Connection til database Set Con = Server.CreateObject("ADODB.Connection") DBPath = "DBQ=" & server.mappath("nyheder.mdb") Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
id = Request.QueryString("id") ' Her hiver vi indholdet af databasen ud, som klienten har valgt: Sql = "SELECT * FROM nyheder Where ID= & id" Set Record = Con.Execute(Sql)
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.