sql i tilmelding ???????

Brug Recordset til at indsætte i databasen, der er mere overskueligt og mindre fejlbehæftet.

set rs = server.createobject("ADODB.recordset")
rs.open "medlemmer", Conn, 2, 3

rs.Addnew
rs("brugernavn") = Request.Form("brugernavn")
rs("kode") = Request.Form("kode")
osv....

rs.Update

rs.close
set rs=nothing

Jeg får denne fejl :

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

/flash/login/tilretur2.asp, line 18


Her er et link til den nye fil

http://iceb.ljnet.dk/flash/login/tilretur2.asp

her er hele den nye KODE:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN


set rs = server.createobject("ADODB.recordset")
rs.open "medlemmer", Conn, 2, 3

rs.Addnew
rs("brugernavn") = Request.Form("brugernavn")
rs("kode") = Request.Form("kode")
rs("navn") = Request.Form("navn")
rs("efternavn") = Request.Form("efternavn")
rs("adresse") = Request.Form("adresse")
rs("postnummer") = Request.Form("postnummer")
rs("by") = Request.Form("by")
rs("email") = Request.Form("email")
rs("telefon") = Request.Form("telefon")
rs("tiddato") = Request.Form("tiddato")
rs("taeller") = Request.Form("taeller")



rs.Update

rs.close
set rs=nothing

%>

Hvordan kan det være ? hvad er fejlen i koden ?

hvilken linie er nummer 46 ?

Kan det være dette her ?

strSQL = "insert into medlemmer (brugernavn, kode, navn, efternavn, adresse, postnummer, by, email, tele, td, tae ) values ('" & bn & "', '" & ko & "', '"& na &"','"& enav &"', '"& ad &"', '"& po &"', '"& by &"', '"& ema &"', '"& tele &"', '#"& td &"#', '"& tae &"' )"

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/flash/login/tilretur.asp, line 58


Her er linjen der er fejl i:

strSQL = "insert into medlemmer (brugernavn, kode, navn, efternavn, adresse, postnummer, by, email, tele, td, tae ) values ('" & bn & "', '" & ko & "', '"& na &"','"& enav &"', '"& ad &"', '"& po &"', '"& by &"', '"& ema &"', '"& tele &"', '#"& td &"#', '"& tae &"' )"

hvordan kan det være der er fejl ?

BY er reserveretord i SQL (ORDER BY) så sæt [] omring by [by]:

strSQL = "insert into medlemmer (brugernavn, kode, navn, efternavn, adresse, postnummer, [by], email, tele, td, tae ) values ('" & bn & "', '" & ko & "', '"& na &"','"& enav &"', '"& ad &"', '"& po &"', '"& by &"', '"& ema &"', '"& tele &"', '#"& td &"#', '"& tae &"' )"

så får jeg denne fejl :

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/flash/login/tilretur.asp, line 56

Sådan er koden nu:

<%

Dim bn,ko,na,enav,ad,po,by,ema,tele,td,tae

bn=(request.form("brugernavn"))
response.write bn

ko=(request.form("kode"))
response.write ko

na=(request.form("navn"))
response.write na


enav=(request.form("efternavn"))
response.write enav

ad=(request.form("adresse"))
response.write ad

po=(request.form("postnummer"))
response.write po

by=(request.form("by"))
response.write by

ema=(request.form("email"))
response.write ema

tele=(request.form("telefon"))
response.write tele

td=(request.form("tiddato"))
response.write td

tae=(request.form("taeller"))
response.write tae
     





' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
Conn.Open DSN


' SQL forespørgsel

strSQL = "insert into medlemmer (brugernavn, kode, navn, efternavn, adresse, postnummer, [by], email, telefon, tiddato, taeller ) values ('" & bn & "', '" & ko & "', '"& na &"','"& enav &"', '"& ad &"', '"& po &"', '"& by &"', '"& ema &"', '"& tele &"', '#"& td &"#', '"& tae &"' )"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)


' Gennemløb Recordset (rs) med en løkke


  ' Udskriv værdien af kolonnen Fornavn og fødselsdato



  ' Gå til næste Record i rs


' Fortsæt indtil rs er gennemløbet (EOF = End Of File)


' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>

hvad kan der være galt ?

Denne:
'#"& td &"#'

hvis det er en dato så skal der kune # omkring:
strSQL = "insert into medlemmer (brugernavn, kode, navn, efternavn, adresse, postnummer, [by], email, telefon, tiddato, taeller ) values ('" & bn & "', '" & ko & "', '"& na &"','"& enav &"', '"& ad &"', '"& po &"', '"& by &"', '"& ema &"', '"& tele &"', #"& td &"#, '"& tae &"' )"

Hvis der er nogle kolonner som er defineret som Tal skal der ikke ' omkring tallet i SQL'sætningen.

aha fedt jeg tror den funker nu .....

har du nogle links hvor man kan læse om sql asp html syntaks med

eksempler osv ?
s

Jeg har dette: http://www.w3schools.com/sql/default.asp

hm der har jeg kigget synes den er meget overfladisk ....

nå men der er problemer med postnummer og telefon de tal jeg indtaster kommer ikke ALLE i min db hvordan kan det være ?

http://iceb.ljnet.dk/flash/login/tilretur.asp

kig det her....?

Får du en fejl eller kommer tal'et ikke med?

jeg indtaster dette i telefon

56356734

og får dette ud

telefon126

kan det være fordi de to felter står til byte ? og ikke long integrer?

ja det kan være, men du indsætter som telefonnummer som tekst i SQL'en, '"& tele &"', fordi du har ' omkring data.

eksempler ? hvad mener du ?

hvis du indsætter data i tal felt så skal der ikke ' omkrting:

Eks: INSERT INTO tb (tal_kol, text_kol) VALUES (12, 'tekst')

nej nu virker det ....

jeg har ændret postnummer og telefon fra byte til long integrer

Jeg ved ikke hvad du skal bruge det til men jeg har lavet nogle sider hvor man har bruger oplysninger og jeg har defineret kolonnerne Postnummer samt Telefonnummer som tekst i databasen.

ok så ved du hvordan jeg laver et login på baggrund af de oplysninger man har indtastet her ? og en session eller en cookie der checkes efter når man prøver at komme ind på en side ?

du kan når man er logget ind lave en session("brugernavn") eller brugerID eller sådan noget.

Din login side som tjekker om password og brugernavn er rigitg kan indeholde dette:
if loginOk then
  Session("brugerID") = rs("id")
else
  Session("brugerID")
end if

på de sider du vil beskykke med password:

<%
if Session("brugerID") <> "" then
%>
<html>
... hele siden
</html>
<%
else
  'her kan du lave en redierct til den default side eller skrive en fejl besked
  response.redirect("login.asp")
end if
%>

og hvad med cookie ? er det ikke den man tjekker om er på brugerens

pc når brugeren prøver at gå ind på en beskyttet side ?

Det kan man også, du kan også benytte cookies. Det hedder bare response.cookies("navn") når man skriver den og request.cookie("navn") når man læser den.

Dette script kikker efter om der findes en cookie på ens PC og hvis der gør logges man automatisk ind. Det viser lidt hvordan man kan bruge cookies, jeg bruger dog stadig Session til at tjekke man er logget ind.

'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "natulivis" then
  if request.cookies("forumData")("brugerID") <> Session("loginMemberID") then
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "naturligvis"
    else
      session("loginMemberID") = ""
    end if
  end if
end if

og hvis cookien ikke er på computeren hvad så ?

hvis cookien ikke findes sker der ikke noget..

if request.cookies("navn") = "" then
  'Cookien findex ikke, evt redirect til login side???
end if

ja nemlig hvis der ikke er en cookie får brugeren

at vide du er ikke logget ind gå til login siden ...

du kan udbygge den :


'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "natulivis" then
  if request.cookies("forumData")("brugerID") <> Session("loginMemberID") then
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "naturligvis"
    else
      session("loginMemberID") = ""
    end if
  else
    response.redirect("login.asp")
  end if
end if

kan du skrive de 2 scripts til mig

1. hvor den tjekker efter cookie og hvis den er der logger ind og

hvis ikke redirecter til reg / login siden

2. en login side hvor der er mulighed for at gemme brugernavn pass

i cookie ?

Ja det kan jeg.. Du skal bare lige vide at forskellen fra en cookie til en Session er at Cookien bliver gemt fra gang til gang man bruger browseren men en Session kun bliver gemt så længe man er på siden.

ja ved jeg .....

du har vist skrevet login tjek siden ik ?

så skal jeg bare have login siden s

Ja det har jeg og her er det tilsvarne login check, du skal så lave en login form med et felt som hedder username og et som hedder password:

Set rs = Server.CreateObject("ADODB.RecordSet")
username = replace(Request.Form("username"),"'","")
password = replace(Request.Form("password"),"'","")
strSQL= "SELECT * FROM dp_members WHERE (username = '" & username & "' AND userpassword='" & password & "');"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
  session("loginOK") = "naturligvis"
  session("loginMemberID") = rs("memberID")
  response.cookies("forumData")("brugerID") = Session("loginMemberID")
  response.cookies("forumData").Expires = now + 365
  Conn.Close
  'Den side man skal til når man er logget ind
  Response.Redirect("loginokside.asp")
else
  session("loginOK") = ""
  session("loginMemberID") = ""
end if
Conn.Close
'Rediret til denne side hvos username og password ikke kunne findes.
Response.Redirect("login.asp")
%>

det her er login siden ?

Set rs = Server.CreateObject("ADODB.RecordSet")
username = replace(Request.Form("username"),"'","")
password = replace(Request.Form("password"),"'","")
strSQL= "SELECT * FROM dp_members WHERE (username = '" & username & "' AND userpassword='" & password & "');"
Set rs = Conn.Execute (strSQL)
if not rs.EOF then
  session("loginOK") = "naturligvis"
  session("loginMemberID") = rs("memberID")
  response.cookies("forumData")("brugerID") = Session("loginMemberID")
  response.cookies("forumData").Expires = now + 365
  Conn.Close
  'Den side man skal til når man er logget ind
  Response.Redirect("loginokside.asp")
else
  session("loginOK") = ""
  session("loginMemberID") = ""
end if
Conn.Close
'Rediret til denne side hvos username og password ikke kunne findes.
Response.Redirect("login.asp")
%>

og det her er login check jeg sætter på toppen af hver side der ska

beskyttes ik ?

'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "natulivis" then
  if request.cookies("forumData")("brugerID") <> Session("loginMemberID") then
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "naturligvis"
    else
      session("loginMemberID") = ""
    end if
  else
    response.redirect("login.asp")
  end if
end if

Ja. Jeg har en login.asp siden som indeholder en form:

<html>
<head></head>
<body>
<center><p>Velkommen til denne site login her:</p>
<table border="1">
<form method="post" action="login_chk.asp">
  <tr><td>Brugernavn:</td><td><input name="username"></td></tr>
  <tr><td>Password:</td><td><input type="password" name="password"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action"></td></tr>
</form></table></center>
</body>
</html>


Siden login_chk.asp  skal indeholde det som du skriver som login.asp

Den sidste del beskytter siden, du kan lige rette den til dette:
'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "natulivis" then
  if request.cookies("forumData")("brugerID") <> Session("loginMemberID") then
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "naturligvis"
    else
      session("loginMemberID") = ""
      response.redirect("login.asp")
    end if
  else
    response.redirect("login.asp")
  end if
end if

sådan har lagt den på serveren nu .....

http://iceb.ljnet.dk/flash/login/formular.asp

du kan se koden nedenfor er det det du mener på den måde ? s

eller skal jeg lægge koden på en seperat asp ?

ja du kan også ligge det i en fil sådan her:

filen: login.asp

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  ' Databaseforbindelse - husk at angive sti til din database
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
  Conn.Open DSN
  Set rs = Server.CreateObject("ADODB.RecordSet")
  username = replace(Request.Form("username"),"'","")
  password = replace(Request.Form("password"),"'","")
  strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & kode & "' AND userpassword='" & password & "');"
  Set rs = Conn.Execute (strSQL)
  if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("loginokside.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
    response.cookies("forumData")("brugerID") = ""
  end if
  Conn.Close
  'Rediret til denne side hvos username og password ikke kunne findes.
  Response.Redirect("login.asp")
end if
%>
<html>
<head></head>
<body>
<center><p>Velkommen til denne site login her:</p>
<table border="1">
<form method="post" action="login.asp">
  <tr><td>Brugernavn:</td><td><input name="username"></td></tr>
  <tr><td>Password:</td><td><input type="password" name="password"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action"></td></tr>
</form></table></center>
</body>
</html>

strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & kode & "' AND userpassword='" & password & "');"

jeg forstår ikke lige den her ?

skulle det ikke begrænse selektionen til lige netop den bruger

som har indtastet brugernavn og kode i formularen ?

Jo der er  rigtigt, men jeg har skrvet forkert i den den skal se sådan ud:

strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & username & "' AND kode ='" & password & "');"

ok det virker stadig ikke .....

http://iceb.ljnet.dk/flash/login/formular.asp

bruger ice

pass ic

hvordan ser din login.asp ud nu?

ah ok så virker den ....

men kan man lave sådan en checkbox der hedder husk mine oplysninger

eller noget i den stil ? sådan brugeren selv bestemmer om det skal

huskes i cookien ?

Ja det kan man..
så skal dutilføje en checkbox til formular.asp:

<input type=checkbox name=huskmig value=ja>




Dette styk kode i login.asp:
  if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("loginokside.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
    response.cookies("forumData")("brugerID") = ""
  end if


skal laves om til:
  if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("loginokside.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
  if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    if request.form("huskmig") = "ja" then
      response.cookies("forumData")("brugerID") = Session("loginMemberID")
      response.cookies("forumData").Expires = now + 365
    end if
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("loginokside.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
    response.cookies("forumData")("brugerID") = ""
  end if
  end if

Ligeledes skal dette styk kode:
'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "natulivis" then
  if request.cookies("forumData")("brugerID") <> Session("loginMemberID") then
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
  end if
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "naturligvis"
    else
      session("loginMemberID") = ""
    end if
  else
    response.redirect("login.asp")
  end if
end if


skal laves om til dette da det ellers automatisk opretter en cookie hvis den ikke findes:
'Tjek om der findes en cookies og log automatisk hvis der gør.
if Session("loginOK") = "natulivis" then
else
  if request.cookies("forumData") <> "" then
    session("loginMemberID") = request.cookies("forumData")("brugerID")
    strSQL = "SELECT * FROM dp_members WHERE memberID = " & session("loginMemberID")
    set rs = Conn.Execute(strSQL)
    if NOT rs.EOF then
      session("loginOK") = "naturligvis"
    else
      session("loginMemberID") = ""
    end if
  else
    response.redirect("login.asp")
  end if
end if

ok det vil den ikke .....

her er fejlen .....

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/flash/login/formular.asp, line 13


<%

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  ' Databaseforbindelse - husk at angive sti til din database
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
  Conn.Open DSN
  Set rs = Server.CreateObject("ADODB.RecordSet")
  username = replace(Request.Form("username"),"'","")
  password = replace(Request.Form("password"),"'","")
  strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & kode & "' AND userpassword='" & password & "');"
  Set rs = Conn.Execute (strSQL)

if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("loginokside.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
  if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    if request.form("huskmig") = "ja" then
      response.cookies("forumData")("brugerID") = Session("loginMemberID")
      response.cookies("forumData").Expires = now + 365
    end if
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("loginokside.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
    response.cookies("forumData")("brugerID") = ""
  end if
  end if
end if
%>
<html>
<head></head>
<body>
<center><p>Velkommen til denne site login her:</p>
<table border="1">
<form method="post" action="formular.asp">
  <tr><td>Brugernavn:</td><td><input name="username"></td></tr>
  <tr><td>Password:</td><td><input type="password" name="password"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action">
<input type=checkbox name=huskmig value=ja>
</td></tr>
</form></table></center>
</body>
</html>

SQL sætningen til:
strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & username & "' AND kode='" & password & "');"

Hejsa den virker ikke .....

når jeg indtaster forkert kode og bruger så bliver den på samme side

og når jeg indtaster rigtigt skriver den .....

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/flash/login/formular.asp, line 17



<%

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  ' Databaseforbindelse - husk at angive sti til din database
  Set Conn = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
  DSN = DSN & "DBQ=" & Server.MapPath("hp.mdb")
  Conn.Open DSN
  Set rs = Server.CreateObject("ADODB.RecordSet")
  username = replace(Request.Form("username"),"'","")
  password = replace(Request.Form("password"),"'","")
  strSQL= "SELECT * FROM medlemmer WHERE (brugernavn= '" & username & "' AND kode='" & password & "');"
  Set rs = Conn.Execute (strSQL)

if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    response.cookies("forumData")("brugerID") = Session("loginMemberID")
    response.cookies("forumData").Expires = now + 365
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("til.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
  if not rs.EOF then
    session("loginOK") = "naturligvis"
    session("loginMemberID") = rs("memberID")
    if request.form("huskmig") = "ja" then
      response.cookies("forumData")("brugerID") = Session("loginMemberID")
      response.cookies("forumData").Expires = now + 365
    end if
    Conn.Close
    'Den side man skal til når man er logget ind
    Response.Redirect("dokument.asp")
  else
    session("loginOK") = ""
    session("loginMemberID") = ""
    response.cookies("forumData")("brugerID") = ""
  end if
  end if
end if
%>
<html>
<head></head>
<body>
<center><p>Velkommen til denne site login her:</p>
<table border="1">
<form method="post" action="formular.asp">
  <tr><td>Brugernavn:</td><td><input name="username"></td></tr>
  <tr><td>Password:</td><td><input type="password" name="password"></td></tr>
  <tr><td colspan="2" align="center"><input type="submit" value="Login" name="Action">
<input type=checkbox name=huskmig value=ja>
</td></tr>
</form></table></center>
</body>
</html>

session("loginMemberID") = rs("memberID")

det er denne linie den laver fejl i kan det være fordi jeg ikke

har en memberid men kun et id i min db ? s

nu har jeg ændret det til ID i stedet men nu er der stadig problemet

med når man indtaster forkert kommer man ikke til en anden side ?

nå jeg tror du har hjulpet mig nok takker .....og lukker ....

s