rs.open fra session

rs.Open "SELECT * FROM tabel where password='" & session("password") & "' AND user='" & session("bruger") & "'
//>Rune

Det er jo en variabel, så variablerne skal adskilles fra din SQL statement..!

//>Rune

rs.Open "SELECT * FROM tabel WHERE password='" & session("password") & "' AND user='" & session("bruger") & "'

-lige for at skrive den ren ;-)
//>Rune

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/community.asp, line 6

rs.Open "SELECT * FROM tabel WHERE password='" & session("password") & "' AND user='" & session("bruger") & "'
--------------------------------------------------------------------------------------------------------------^

Hmm.. må jeg ikke lige prøve at se resten af din kode..?

-for jeg tror hellere at du skal execute din streng lidt før...!

altså, Conn.Execute(SQL)

//>Rune

SQL = "SELECT * FROM tabel WHERE password='" & session("password") & "' AND user='" & session("bruger") & "'
set rs = conn.execute( SQL )

yep, nøjagtig lige som mini-me har gjordt!

//>Rune

eller:

Set rs = Conn.Execute("SELECT * FROM tabel WHERE password='" & session("password") & "' AND user='" & session("bruger") & "')

Kommer jo an på hvad du bedst kan li'.. ;-)

du har sikker noget ala rs.open og så din database-forbindelse

hvis du så vil lave et udtræk skal du gøre sådant

Det virker stadig ikke med det fra mini-me

pis.. hader Enter !!

SQL = "SELECT * FROM tabel WHERE password='" & session("password") & "' AND user='" & session("bruger") & "'
set rs = conn.execute( SQL )

strBruger = rs("Bruger")

response.write "Dette er den bruger der er logget ind" & strBruger

du behøver ikke lægge rs("bruger") i en streng... men kan være med til at gøre det lidt mere overskueligt.. og som regel god kodeskik !!

Nope...
Jeg har en side hvor man logger ind fra. Den går så til en side der tjekker om brugeren er godkendt, hvis han er bliver han sendt videre til den side hvor den kode jeg har skrevet er på.
Er det en besværlig måde?

Øhhhh ja...!! Brug dog en side til det hele...

Jeg gjorde det fordi at jeg ville lave en side der hed community.asp - der tjekker den brugeren udfra en form. Men så kan jeg jo ikke linke til den da den så søger efter en form.

Det er alt for indviklet ja..!

På den side hvor du tjekker om brugeren er ok, er der jo højst sandsynlig en If og Else validering.. der hvor der står Response.Redirect skriver du neden under:

Session("logedon") = "ok"

og så skriver du bare i toppen af alle dine andre dokumenter:
If NOT Session("logedon") = "ok" Then
  Response.Redirect("Duerikkeloggetind.asp")
End If

//>Rune

Her er er et login script jeg har udviklet... det eneste du lige skal er at tipasse din database og dine tabeller... så kan du benyttet dette... det er en del nemmere...1!!


<%
' Variabler
UsernameForm = Server.HTMLEncode(trim(lcase(Request.Form("username"))))
PasswordForm = Server.HTMLEncode(trim(lcase(Request.Form("password"))))
Mode = Request.QueryString("Mode")

If Request.Form("Login") = "Login" then

           
      If (UsernameForm = "" OR PasswordForm = "") Then
            Response.Write("<font>Du mangler at udfylde et, eller begge felter")
            Response.Write("<br><br>")
            Response.Write ("<input type='submit' value='tilbage' onclick='java script:history.back();' id='submit'1 name='submit'1>")
            Response.End
            End if
           
      SQL = "Select * from users where Username='" & Replace(UsernameForm, "'", "''") & "'"
      set RSValidate = Conn.Execute( SQL )
     
   
      do until RSValidate.eof
     
              User = Server.HTMLEncode(trim(lcase(RSValidate("Username"))))
            Pass = Server.HTMLEncode(trim(lcase(RSValidate("Password"))))
           
      RSValidate.movenext
      loop
   
     
      If User = UsernameForm and Pass = PasswordForm Then
            session("username") = UsernameForm
            session("password") = PasswordForm
            Response.Write session("username")
            Response.redirect("../default.asp?mode=test")
           
            else
           
            Response.Write server.HTMLEncode("De indtastede data er ikke korrekte prøv igen")
            Response.Write("<br><br>")
            Response.Write ("<input type='submit' value='tilbage' onclick='java script:history.back();' id='submit'1 name='submit'1>")
            Response.End
           
      end if
      end if
     


%>
<% if session("username") = "" then
   
    Response.Write session("username")
%>
<FORM NAME="Logon" ACTION="/inc/login.asp" METHOD="POST">
  <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><BODY> </font>
  <TABLE align="center">
    <tr>
      <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
        <INPUT name="username" style="BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 10px; BORDER-LEFT-COLOR: black; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: black; BORDER-TOP-COLOR: black;
      FONT-STYLE: normal; FONT-FAMILY: tahoma; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: black"
      maxLength=50 size=15>
        <BR>
        <INPUT type="password" style="BORDER-TOP-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 10px; BORDER-LEFT-COLOR: black; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: black; BORDER-TOP-COLOR: black;
      FONT-STYLE: normal; FONT-FAMILY: tahoma; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: black"
      maxLength=50 size=15 name=password>
        <BR>
        </font></td>
      <font face="Verdana, Arial, Helvetica, sans-serif" size="1"></TD></font>
    <tr>
      <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
        <INPUT type="submit" value="Login" Name="Login">
        </font></td>
    </tr>
  </TABLE>
  <font face="Verdana, Arial, Helvetica, sans-serif" size="1"></BODY> </font>
</FORM>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<% end if %>
<% if session("username") <> "" then


sql = "SELECT * FROM USERS WHERE USERNAME ='" & SESSION("username") & "'"
sql2 = "SELECT * FROM STATS"

set rsSTATS = conn.execute ( SQL2 )
set rs = conn.execute( SQL )


%>
</font>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
  <tr>
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Login information
      : </b></font></td>
  </tr>
  <tr>
    <td align="left" valign="top">
      <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Navn:
        <% = rs("realname")  %>
        <br>
        BrugerID:
        <% = rs("id") %>
        <br>
        Antal oprettede sider:
        <% = rs("created") %>
        <br>
        Antal redigeret sider:
        <% = rs("edited") %></br>
        Administrator :
        <% = rs("admin") %>
        </font>
    </td>
  </tr>
  <tr>
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>Statistik
      :</b></font></td>
  </tr>
  <tr>
    <td height="8" align="left" valign="top">
      <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Unikke hits:
        <br>
        Trafik:<br>
        Andet:</font></p>
    </td>
  </tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<% end if

      conn.close
    set rs = nothing
    %>
</font>

medions > Jamen hvordan får jeg så åbnet til min database?

sigurd> Laver en connection oven over!
//>Rune

Hvis jeg så skal lave en side med brugerens info...
så skal jeg lave en SQL-sætning
Men hvad skal den hedde select from ???

Du kan idet heletaget bare nøjes med at skrive:

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

SQL = "SELECT * FROM tabel WHERE password='" & session("password") & "' AND user='" & session("bruger") & "'

Set rs = Conn.Execute(SQL)
If NOT Session("password") <> "" Then
  Response.Redirect("Duerikkeloggetind.asp")
End If

//>Rune

sql = "SELECT * FROM USERS WHERE USERNAME ='" & SESSION("bruger") & "'"
set rs = conn.execute( SQL )
rs("brugernavn")
rs("Password")

osv..!!

response.redirect("community.asp?id=' & rs('id')'")

fejl?

yep
response.redirect("community.asp?id='" & rs("id") & "')

-men hold dig nu til ét spm! - For jeg har jo besvaret det oprindelige..!- men nu skulle det oxo virke!

//>Rune

Thx 4 Poinz
//>Rune