link to DISTINCTROW

or maybe a connection like this
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse ,telefon FROM adresse WHERE id=<%=user%>
%>

hmmm :)

Something like this ?

strSQL = \"SELECT DISTINCT Id, navn ,adresse ,telefon FROM adresse WHERE id=\" & user & \";\"

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse ,telefon FROM adresse WHERE id=\'\" & request(\"id\") & \"\'\"
%>

This <%=user%> won\'t work, instead you just concentate the two string with \" & user & \"

(my prev. comment should\'ve been an answer)

This <%=user%> won\'t work, instead you just concentate the two string with \" & user & \"

(my prev. comment should\'ve been an answer)

guzzie:> i completely forgot the \'\' around it .. sorry

tpiil:> a little correction:

strSQL = \"SELECT DISTINCTROW Id, navn ,adresse ,telefon FROM adresse WHERE id=\'\" & request(\"user\") & \"\';\"

And by the way .. why don\'t you use SELECT DISTINCTROW * FROM .. instead of specifiying each field to select ?

thanks i will try that it sounds good ;)
i´ll write a bit later have go out for a while
guzzie :)

ok heres how it looks now
<html>
<body>


<form method=\"POST\" action=\"userinfo.asp?id=<%=id%>\">
<input type=\"text\" name=\"navn\" size=\"20\">
<input type=\"submit\" value=\"Search\" name=\"Action\">


</body>
</html>


then the userinfo.asp page


<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse FROM adresse WHERE id=\'\" & request(\"user\") & \"\';\" 

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>


<html>
<body>

<table>
<tr>
    <td><%=rs(\"navn\")%></td><td><%=rs(\"adresse\")%></td>
</tr>
</table>

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>


</body>
</html>

thanks for your help
guzzie

ok corection for userinfo.asp

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW * FROM adresse WHERE id=\'\" & request(\"user\") & \"\';\" 

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
%>


<html>
<body>

<table>
<tr>
    <td><%=rs(\"navn\")%></td><td><%=rs(\"adresse\")%></td>
</tr>
</table>

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>


</body>
</html>


:) sniff
Guzzie

<html>
<body>


<form method=\"POST\" action=\"userinfo.asp\">
<input type=\"text\" name=\"navn\" size=\"20\">
<input type=\"submit\" value=\"Search\" name=\"Action\">


</body>
</html>


then the userinfo.asp page

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse FROM adresse WHERE (user LIKE \'%\" & request(\"navn\") & \"%\');\" 

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
if not (rs.BOF Or rs.EOF) Then
%>

<html>
<body>

<table>
<tr>
    <td><%=rs(\"navn\")%></td><td><%=rs(\"adresse\")%></td>
</tr>
</table>

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>

<% else %>
Ingen brugere med det navn :(
</body>
</html>
<% end if %>

Navnet på kolonnen skal du nok rette for der skrev jeg user!

er ikke så god til engelsk :)

Hey there again Guys

I tried the advice you gave all that happens is that I get \"siden kan ikke vises\"

heres how it looks now

first page is

<html>
<body>


<form method=\"POST\" action=\"userinfo.asp\">
<input type=\"text\" name=\"navn\" size=\"20\">
<input type=\"submit\" value=\"Search\" name=\"Action\">


</body>
</html>


then the userinfo.asp page looks like this

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse FROM adresse WHERE (navn LIKE \'%\" & request(\"navn\") & \"%\');\" 

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
if not (rs.BOF Or rs.EOF) Then
%>

<html>
<body>

<table>
<tr>
    <td><%=rs(\"navn\")%></td><td><%=rs(\"adresse\")%></td>
</tr>
</table>

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %>

<% else %>
Ingen brugere med det navn :(
</body>
</html>
<% end if %>

hope some can help
heres some more points
if need be i can send you a link to the page or mail you the script....
Guzzie Sniff Nubi ;(

link the page :)

8)
http://www.guzzie.dk/kongen/login.asp

thanks :)
Guzzie

in userinfo.asp:

Conn.Execute (SQLstmt)
to
Conn.Execute (strSQL)

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse FROM adresse WHERE (navn LIKE \'%\" & request(\"navn\") & \"%\');\" 

Conn.Execute (strSQL)

Set rs = conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then
%>

<html>
<body>

<table>
<tr>
    <td><%=rs(\"navn\")%></td><td><%=rs(\"adresse\")%></td>
</tr>
</table>

<%
conn.Close
Set conn = nothing
%>

<% else %>
Ingen brugere med det navn :(
</body>
</html>
<% end if %>

Thank you Thank you Thank you
yippee !!!!!!

thanks so much for your help
Guzzie :)

hehe så lidt!

/hey tpiil :)

it works great but even if i only right part of the navn then it can find the userinfo
is there any way to change

(navn LIKE \'%\" & request(\"navn\") & \"%\');\"

the LIKE part to something more precise ?
Guzzie     

den er faktisk lige meget med like men det kan bruges til søgninger, vent lidt så laver jeg om på koden!

ved ikke helt om det her virker:
<html>
<body>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"adresse.mdb\")
strSQL = \"SELECT DISTINCTROW Id, navn ,adresse FROM adresse WHERE navn=\'\" & request(\"navn\") & \"\';\" 

Conn.Execute (strSQL)

Set rs = conn.Execute(strSQL)
%>
<table>
<tr>
    <td><%=rs(\"navn\")%></td><td><%=rs(\"adresse\")%></td>
</tr>
</table>


</body>
</html>
<%
conn.Close
Set conn = nothing
%>

thanks tpiil
I tried to just remove the LIKE
but it didnt work
i dont want it to search
just only that Id :)
Guzzie ;)

jesus you r good :)
its works just perfect now
you are 1 cool dude
and i thank u again
:)
Guzzie