Login system...

<%
SQL = (\"Select * From Table where TELEFON = TELEFONNUMMER\")

If Rs.EOF then
  sql1 = (\"Insert into table (TELEFON) values(TELEFONNUMMER)
  Conn.Execute (sql1)
%>

  Indhold i html for nye brugere

<% Else %>

  Indhold for oprettet brugere

<% End If %>

Hej bojohansen,

Jeg tror du har fat i noget af det rigtige... men jeg kan desværre stadig ikke få det til at virke, kan du evt. hjælpe mig med at rette koden lidt til? Her er hvad jeg har i min login fil:

<!-- #include file=\"password.asp\"-->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN
%>
<%
strSQL = (\"Select * From Table where Telefon = \" & Request.Form(\"telefon\"))

If Rs.EOF then
  sql1 = (\"Insert into table (telefon) values \" & Request.Form(\"telefon\"))
  Conn.Execute (sql1)
%>

<HTML>
<BODY
DU HAR IKKE VÆRET LOGGET DIN FØR
</BODY>
</HTML>

<% Else %>

<HTML>
<BODY
DU HAR VÆRET LOGGET DIN FØR
</BODY>
</HTML>

<% End If %>

Noget lignende dette så ??

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<!-- #include file=\"password.asp\"-->
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
  DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
  Conn.Open DSN
Dim Tlf
Tlf = Request.Form(\"telefon\")
%>
<%
\'Se om telefonnummer allereder er i databasen.
Set RsSelect = Conn.Execute (\"Select * From Table where Telefon = \" & Tlf )

If RsSelect.EOF then
  \'Hvis telefonnummer ikke findes oprettes det.
  Set RsInsert = Conn.Execute(\"Insert into table (telefon) values(\" & Tlf & \"))
 
%>
DU HAR IKKE VÆRET LOGGET DIN FØR<br>

<% Else %>

DU HAR VÆRET LOGGET DIN FØR<br>
Dit Tlf = <% = RsSelect(\"TELEFON\") %><br>

<% End If %>
</body>
</html>

Set RsSelect = Conn.Execute (\"Select * From Table where Telefon = \" & Tlf & \"\")

If RsSelect.EOF then
  \'Hvis telefonnummer ikke findes oprettes det.
  Set RsInsert = Conn.Execute(\"Insert into table (telefon) values(\" & Tlf & \")\")

De skal lige ændres til dette istedet for.

Regner med at du selv har styr på om der skal sættes \' omkring din foespørgelse i sqllen.

Det virker... du så har sandelig fortjent dine 100 point, tusind tak for hjælpen!! :o)

Det var så lidt.

Tak for points :-)