<% Set personer = Server.CreateObject ("ADODB.Recordset") personer.Open "SELECT * FROM members", database set svar = personer.fields("id")
Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open forbindelse strSQL = "SELECT COUNT(id) AS Antal FROM beskeder WHERE id = svar" Set rs = myConn.Execute(strSQL) %>
<html> <head> </head> <body bgcolor="White"> <br> <br><br> <table> <tr><td> <% While NOT personer.EOF %> <a target="main" href="profiler.asp?id=<% = personer.Fields("id")%>"><% = personer.Fields("name")%></a> <%Response.Write "<p>Der er " & rs("Antal") & " beskeder i databasen fra denne bruger</p>" %> <br>
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
altså her Set rs = myConn.Execute(strSQL) andre virker fint feks hvis jeg tæller alle emner i db'en altså ssådan her
'strSQL = "SELECT COUNT(Beskedid) AS Antal FROM beskeder WHERE svarid = 0" 'Set rs = myConn.Execute(strSQL) 'Response.Write "<p>Der er " & rs("Antal") & " emner i databasen</p>"
<% Set personer = Server.CreateObject ("ADODB.Recordset") personer.Open "SELECT * FROM members", database set svar = personer.fields("id")
Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open forbindelse strSQL = "SELECT *, COUNT(id) AS Antal FROM beskeder WHERE id = " & CInt(svar) Set rs = myConn.Execute(strSQL) %>
<html> <head> </head> <body bgcolor="White"> <br> <br><br> <table> <tr><td> <% While NOT personer.EOF %> <a target="main" href="profiler.asp?id=<% = personer.Fields("id")%>"><% = personer.Fields("name")%></a> <%Response.Write "<p>Der er " & rs("Antal") & " beskeder i databasen fra denne bruger</p>" %> <br>
Tak medions din virked næsten =) laved SELECT *, COUNT(id) til SELECT COUNT(id) også lige have den lukket for hver recordset den henter altså <a target="main" href="profiler.asp?id=<% = personer.Fields("id")%>"><% = personer.Fields("name")%></a> <%Response.Write "<p>Der er " & rs("Antal") & " beskeder i databasen fra denne bruger</p>" %> <br>
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.