Det der betyder den ikke kan finde feltet. Kan det passe? Måske kigger du efter det i den forkerte tabel... Det er ikke meget vi har fået lov at se af din kode, så man kan vel kun gætte sig frem.
'Tæller antallet af profiler set rs = Conn.Execute("select count(*) as antal from bruger") antal_profiler = rs("antal") rs.close set rs = nothing
Set rs = Server.CreateObject("ADODB.Recordset") sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'" rs.open sql, conn, 1, 3
%>
<table border="0" cellspacing="0" cellpadding="0" id="table7" width="97%"> <tr> <td></td> </tr> <tr> <td height="20"><h1> <img src="images/red_pil.gif" border="0" vspace="1"> Du er logget ind som<%if session("brugernavn") <> "" then%>, <%=rs("brugernavn")%>...<% else %><% end if %> </td> </tr> <tr> <td>Velkommen til Bruger-zonen. Lige nu har vi <%=antal_profiler%> Profiler rigistreret. <br> <br> Her er det muligt at;<br> - Sende mail til andre brugere<br> - Redigere din profil<br> - Se komplet brugerliste<br> - Have din indbakke<br> - Få flere information fra dit distrikt <font color="#800000">(<i>inaktiv</i>)<br> </font>- Finde næste arrangementer <font color="#800000">(<i>inaktiv</i>)<br> </font>- Tilmelde dig arrangementer. <font color="#800000">(<i>inaktiv</i>)<br> </font>- Deltage i forum<font color="#800000"><h1>Distrikt: <%=rs("brugerdistrikt")%></h1> <% intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If
Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("jittytre.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tabel Where distrikt=" & rs("brugerdistrikt") & " order by dato DESC" rs.Open strSQL, connection, 1, 3
Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("jittytre.mdb") Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tabel Where distrikt=" & rs("brugerdistrikt") & " order by dato DESC" rs.Open strSQL, connection, 1, 3
til noget i stil med:
Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("jittytre.mdb") Set rs2 = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM tabel Where distrikt=" & rs("brugerdistrikt") & " order by dato DESC" rs2.Open strSQL, connection, 1, 3
HUSK så at ret længere nede i koden da hele din rs er blevet omdøbt.
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.