HJÆLP!!!!

http://www.eksperten.dk/spm/61427

det sagde hjalp mig ikke rigtig, dette er det jeg selv er kommet frem til nogen som hurtig lige kan se en fejl??

  if (Request.Form(\"bruger\") == connection.execute(\"SELECT bruger FROM bruger\")) {

    Response.write(\"bruger er okay\")
} else {
    Response.write(\"bruger er ikke okay\");
}

/ZIRON

Du vil gerne se om brugeren er reg. i databasen - right?

nej jeg har lavet connection til en database.... men jo jeg vil gerne se om brugeren er der???

/ZIRON

Lav et script der tjecker din DB :o)

eks.:

<!--#include file = \"connection.asp\"-->
<%
SQLstmt = \"SELECT ID,Password FROM oplevelse\"
Set RS = conn.Execute(SQLstmt)
\'RS.MoveFirst

\'Session(\"bruger\") = request.form(\"bruger\")
Session(\"password\") = request.form(\"password\")
\'response.write (session(\"bruger\"))
Do While NOT RS.EOF

\'--bruger
ConvString = request.form(\"bruger\")
                    ConvString = Replace(ConvString,\"\'\",\"\'\'\")
                    ConvString = Replace(ConvString,\"|\",\"&#124;\")
Session(\"Bruger\") = ConvString
\'------------------------------------------------------------------
ConvString = RS(\"Id\")
                    ConvString = Replace(ConvString,\"\'\",\"\'\'\")
                    ConvString = Replace(ConvString,\"|\",\"&#124;\")
Session(\"bruger2\") = ConvString
\'------------------------------------------------------------------
\'Session(\"Bruger2\") = RS(\"ID\")

If Session(\"Bruger\") = Session(\"Bruger2\") AND Session(\"password\") = RS(\"password\") then
    Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=VisBruger.asp\'>\")
ElseIf Session(\"bruger\") = \"\" then
    Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=login.asp?svar=1\'>\")
ElseIf Session(\"password\") = \"\" then
    Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=login.asp?svar=2\'>\")
ElseIf Session(\"password\") = \"\" AND Session(\"bruger\") = \"\" then
    Response.write(\"<meta http-equiv=\'refresh\' content=\'0;URL=login.asp?svar=3\'>\")
End If

RS.MoveNext
Loop


%>

er der ikke letter måde at gøre det på???

jo du kan fjerne alt så den kun kigger efter om navnet er i databasen *S*

jaaa, det er det jeg gerne vil... men hvordan jeg kan bare ikke få det til at virke???

PS hvad er forskellen på det du skrev før og det jeg gerne vil nu???

Den jeg skrev, den fortæller hvad fejlen er.

eks.

Der mangler password, der mangler brugernavn eller navnet findes ikke i datasen.

Din fortæller bare at brugeren ikke er okey

okay men min virker ikke hvad har jeg lavet forkert???

Kan ikke lige se løsningen på din, andet end at det kan jo være Connectionen til databasen. 

Fandt lige denne, det kan du jo prøve med:

        Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"community.mdb\")
    strSQL = \"SELECT * FROM bruger where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\"
    Set rs = myConn.Execute(strSQL)
        \'//Hvis der ingen bruger findes med det ønskede navn
        If rs.BOF Or rs.EOF Then
        Response.Redirect(\"default.asp?error=Ingen bruger med det navn!\")
        end if

hvor meget kender du til aså?

strSQL = \"SELECT * FROM bruger where brugernavn = \'\" & Request.form(\"brugernavn\") & \"\'\"

i denne sætning skal det så være \"&\" tegn og ikke \"+\" tegn???

jeg kender det en smule...

/ZIRON

er det ikke VBScript??? hvis det skal være Javascript, hvad skal så laves om???

jeg spørger lidt meget gør jeg ik???

Det var måske lettere om du gav et link til siden hvor du har den samt smed hele koden..

Jeg er mega træt og forvirret nu *gg*

siden er:

http://212.242.17.144/kulhytten/indhold/login.asp

og min kode kommer her:

<%@ Language=JavaScript%>

<%

  connection = Server.CreateObject(\"ADODB.Connection\");
  connection.open(\"kulhytten\");

  if (Request.Form(\"bruger\") == connection.execute(\"SELECT bruger FROM bruger\")) {

    Response.write(\"bruger er okay\")
  } else {
    Response.write(\"bruger er ikke okay\");
  }

%>

håber du kan bruge det???

/ZIRON

Ja okey..

Hvis jeg skriveret forkert brugernavn, så skriver den da \"bruger er ikke okay\"  det er da korrekt

okay min fejl i database ligger der en bruger ved navn \"ZIRON\"....

Ja og password?

Vi er enige om at hvis man skriver forkert brugernavn eller password, så virker det helt fint ik´?

den bruge slet ikke password endnu, nu checker den bare om der findes en bruger men den siger: \"bruger er ikke okay\" lige meget hvad????

jeg lukker ned nu, så du behøver ikke kigge mere på mit lort. jeg finder ud af det imorgen, men ellers tak for hjælpen...

/ZIRON

Smid det script af h til og vælg et andet..

prøv evt.

<%

sub doHtml( referring_page )
%>
    <HTML>
    <HEAD>
    <TITLE>Login i whatever</TITLE>
    </HEAD>
    <BODY>
    <form  action=\'onelogin.asp\' method=post id=form1 name=form1>
      <input type=hidden name=referring_page value=\'<%=referring_page%>\'>
      <P>
    <TABLE cellSpacing=1 cellPadding=1 width=\'75%\' border=1>
     
      <TR>
        <TD>brugernavn:&nbsp;</TD>
        <TD><INPUT type=text name=username></TD></TR>
      <TR>
        <TD>kodeord</TD>
        <TD><INPUT type=password name=password></TD></TR>
      <TR>
        <TD></TD>
        <TD><INPUT type=submit value=Login name=submit.x></TD></TR></TABLE></P>
   
    </form>
    </BODY>
    </HTML>
<%
            Response.end
end sub

    If Session(\"usr_id\") = \"\" then
        if not isempty(Request.Form(\"submit.x\")) then
            username = Request.Form(\"username\")
            password = Request.Form(\"password\")

            referring_page = Request.Form(\"referring_page\")

            Set DBConn = Server.CreateObject(\"ADODB.Connection\")
            DBConn.Open \"menus\"

            If    (username <> \"\") AND (password <> \"\") Then
                sql = \"SELECT * FROM tblUsers WHERE username = \'\" & username & \"\' AND password = \'\" & password & \"\'\"
                Set adm = DBConn.Execute(sql)
           
                if adm.EOF then
                    adm.close
                    set adm = nothing
                    doHtml( referring_page )
                else
                    Session(\"usr_id\") = adm(\"id\")
           
                    adm.close
                    set adm = nothing
   
                    Response.Redirect( referring_page )
                    Response.End       
                end if
            else
                doHtml( referring_page )
            end if
        else
            referring_page = Request.ServerVariables(\"SCRIPT_NAME\")

            doHtml( referring_page )
        end if
    End If

%>

ja okay... men jeg har gang i nogle sider med javascript og vil jeg helst ikke have VBScript midt i det hele, så jeg prøver mig lige frem. men tak for hjælpen indtil nu...

/ZIRON

jeg fået det script som jeg sad og leget med i starten til at virke... men tak for hjælpen....