hvis ip findes then

sqlstr = "Select * from tbl where ip = '" & request.ServerVariables("REMOTE_ADDR") & "'"
set hent = conn.execute(sqlstr)
If hent.EOF Then
response.write("hejsa ven")
End If
Set hent = Nothing

<%
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db.mdb")'
   
    Set objRs = Server.CreateObject("ADODB.Recordset")
    strSQL ="SELECT * FROM TABEL"
    objRs.Open strSQL, objConn
%>
<%
if not objRs("ip") <> then
Koden den skal udføre hvis der ikke er en i feltet ip
else
%>

ipnr = Request.ServerVariables ( 'REMOTE_ADDR' );       
admin = ('192.168.0.1');
if (admin != ipnr);

bla bla

er ikke testet...

fatter ikke hvad der er galt her

<%if Request.Form("B1") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Conn.Execute "INSERT INTO ip(ip, dato, tid, navn) VALUES ('" & Request.ServerVariables("REMOTE_ADDR") & "',  '" & Date() & "', '" & Time() & "', '" & Request.Form("navn") & "')"
end if
%>

<p><%if Request.Form("B2") <> "" then %> <%
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

Dim SQLquery
call objConn.Execute("Delete From ip")
objConn.Close
%> <% end if %></p>

<p><%set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from ip"
Set rs = Conn.Execute(strSQL)
if rs("ip") <> Request.ServerVariables("REMOTE_ADDR") then%></p>

<form action="ip.asp" method="post">
  <p><input type="text" name="navn" size="20"><input type="submit" value="Ok" name="B1"><input
  type="submit" value="Slet alt" name="B2"></p>
</form>

<p><%else%><%set rs = server.CreateObject("ADODB.Recordset")
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
strSQL = "select * from ip order by dato DESC"
Set rs = Conn.Execute(strSQL)
do while not rs.EOF%> <%=rs("dato")%>-<%=rs("Tid")%> - [<%=rs("ip")%>] - <%If rs("navn") <> "" Then
response.write rs("navn")
else%>Annonym<%end if%><br>
<% rs.movenext %><%loop%></p>

<form action="ip.asp" method="post">
  <p><input type="submit" value="Slet alt" name="B2"></p>
</form>

<p><%end if%>

Det jeg vil have er selvfølgelig at hvis ipen ikke er i databasen skal man skrive sit navn også skal man insertes. ellers skal alle bare listes.

thanks