Where = ''

hehe.. nej, sår'n fungerer det ikke

sql = "SELECT * FROM telefonbog order by id desc WHERE sted = '"& RS("username") '"'"

og så skal du lige bytte lidt om på rækkefølgen

sql = "SELECT * FROM telefonbog WHERE sted = '"& RS("username") &"' order by id desc"

nice det var jo meget nemt

jeg vidste godt at der ikke skulle stå <% %> men ikke lige hvordan det skulle sættes op med ded &

det er ikke asp, men SQL

men anyways...

du kan jo læse lidt om SQL sproget her:
http://www.google.com/search?q=sql+reference

lol sorry

skg>> du er rigtig i dit killer-mood her til aften ;)

cyberfessor > nej, jeg synes bare folk bliver dummere og dummere herinde :-)

skg>> det er jo hvad der sker når eksperten.dk bevæger sig fra at været et forum for l33d nørder til et sted alle kan hente hjælp... og sårn vil det altid være !

nu får jeg denne fejl



Microsoft VBScript runtime error '800a000d'

Type mismatch: 'RS'

/~mobil/Bruger/b_tb_list.asp, line 13


min kode ser sådan ud nu

<%
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/db.mdb")
conn.open connString
sql = "SELECT * FROM telefonbog WHERE owner = '"& RS("username") &"' order by id desc"
Set rs = conn.execute (sql)
%>

prøv at lav en

aarg... du skal da heller ikke bruge rs igen...

prøv Set rs1 = conn.execute (sql)

nu ser det sådan her ud
<%
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/db.mdb")
conn.open connString
sql = "SELECT * FROM telefonbog WHERE owner = '"& RS("username") &"' order by id desc"
Set rs1 = conn.execute (sql)
%>

men får stadig samme fejl BTW line 13 er conn.open connString

det skal måske siges at RS("username") er gemt fra en anden side

ah.. så duer det ikke... rs("username") skal være oprettet på samme side.. så må du overføre værdien med f.eks. querystring eller session

nååår så er det nok derfor hehe
men hvis jeg smider <%=RS("username")%>  ind på siden et eller andet sted skriver den fint nok det username den skal der må da være en måde

hmm... prøv at skriv

response.write sql istedet for Set rs1 = conn.execute (sql)

den vil sku stadig ikke

jeg tror nu det er den rs("username") du skal kigge lidt på...

du siger det virker et andet sted på siden... nu er det jo sådan med asp er koden bliver udført fra top til bund, så kan det være at rs bliver sat et andet sted på siden, evt. efter at du har sat den her kode ind?

UPS for at få rs("username") frem bruger jeg
havde sku glemt alt om det sorry

      <% strGame = Session("ID")%>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/db.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * From Users WHERE ID LIKE '%" & Strgame & "%'"
    rs.Open strSQL, myConn, 1, 3
    %>
      <%=RS("username")%>

jeg vil godt smide 100 points oven i hvis jeg får det til at virke

hmm.. hvis din side ikke er alt for stor kunne du evt. poste den her?

kan jeg da godt

-----LOGIN SIDEN-----
<%@ Language=VBScript %>
<%

If Request.Form("Action") = "Login" Then
   
    strID = Trim(Replace(Request.Form("Username"),"'",""))
    strPWD = Trim(Replace(Request.Form("Password"),"'",""))

   
    If Len(strID) > 0 And Len(strPWD) > 0 Then

       
        Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/db.mdb")
       

        strSQL = "SELECT * FROM Users"&_
            " WHERE (Username = '" & strID & "')"&_
            " AND (Password = '" & strPWD & "')"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
           
            intID = rs("ID")
            strlevel = rs("Access_Level")
        Else
           
            strERR = "<H2>HTTP Error 401</H2>"
        End If

        myConn.Close
        Set myConn = Nothing

        If Len(intID) Then
            Session("ID") = intID
            Session("Username") = StrID
            Session("Access_Level") = strlevel
            Response.Redirect("load.asp")
        End If
    Else
       
        strErr = "Username and Password!"
    End If

    If Len(strErr) > 0 Then
       
        strErr = "<p><font color=red>" & strErr & "</font></p>"
    End If
End If
%>

-----den anden side-----

<%
If isEmpty(Session("ID")) Then
    Response.Redirect("../login.asp")
End If
%>
<meta http-equiv="Content-Language" content="da">
<base target="_self">
<body topmargin="0" leftmargin="0">
<% strGame = Session("ID")%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/db.mdb")
conn.open connString
sql = "SELECT * FROM telefonbog WHERE owner = '"& RS("username") &"' order by id desc"
Set rs = conn.execute (sql)
%>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="20" id="AutoNumber3">
    <tr>
      <td width="100%">&nbsp;</td>
    </tr>
  </table>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="550" id="AutoNumber1" height="30">
    <tr>
      <td width="100%" bgcolor="#EAF5FF">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 10pt; text-align: center" bordercolor="#111111" width="100%" id="AutoNumber2" bgcolor="#EAF5FF">
        <tr>
          <td width="56%">Navn</td>
          <td width="22%">Mobil Nummer</td>
        </tr>
      </table>
      </td>
    </tr>
  </table>
  </center>
</div>

<div align="center">
  <center>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-family: Verdana; font-size: 10pt" bordercolor="#000000" width="550" id="AutoNumber2" bgcolor="#EAFFF5">
        <tr>
          <td width="56%" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">
          </td>
          <td width="22%" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">
          </td>
        </tr>
      </table>
      </center>
</div>

slut