Frem i Søgning

Hvilke felter har du i din db??

Mvh,
Martin

Fornavn, Efternavn, Adresse, Postnr, Bynavn, Mobiltelefon, Telefon, mailm,

Er der ikke også et ID felt???

Egentlig vil jeg også sætte lidt pris på din kode...!

ok jo hi...:-)
SELECT id, Fornavn, Efternavn, Adresse, Postnr, Bynavn, Mobiltelefon, Telefon, mailm, Stilling FROM Kontaktpersoner

det er search.asp filen

<%
' Henter værdien fra search.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("search.htm")

Else

' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")

End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT id, Fornavn, Efternavn, Adresse, Postnr, Bynavn, Mobiltelefon, Telefon, mailm, Stilling FROM Kontaktpersoner WHERE"
strSQL = strSQL & " (id LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Fornavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Efternavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Adresse LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Postnr LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Bynavn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Mobiltelefon LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Telefon LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (mailm LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Stilling LIKE '%" & strKeyword & "%')"


' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)

' Hvis der er fundet poster på søgningen
If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

' Variabler deklæres
id = rs("id")
Navn = rs("Fornavn")
Efternavn = rs("Efternavn")
Adresse = rs("Adresse")

' Generere et link, som er defineret i databasen
Link = "<a href='semedarb.asp?id=" & rs("Id") & "'>"  & Navn & "&nbsp;" & Efternavn &"</a></b>"


' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar
Response.Write "<li>" & Link & "</li>" & "  "

rs.MoveNext
Loop
Else

' Hvis der ikke er fundet poster på søgningen
Response.Write "<li>Sådan en har vi ikke på  ?"

End If

' Databaseforbindelsen lukkes
Conn.Close
Set Conn = Nothing
%>

Så laver du dit link sådan her:

<%
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
%>

Jeg forstår ikke helt hvad du mener, men prøv at leg lidt med koden herover inden du skriver igen.

Mvh,
Martin

Du er da den sejeste koder !!!!! det virker..! men får der så ikke er flere og man trykker næste laver den denne her :
Navn 
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0


kan man komme udenom den ?

er du der :-)

Så kør den her:

<%
if NOT rs.EOF then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
end if
%>

Glemte helt at tage højde får det, sorry makker...! ;-)

hmm den gør det stadig :-(


ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

semedarb.asp

må man se koden i den fil

<%
if NOT rs = EOF then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
end if
%>

<%
' 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 ("database.mdb")
Conn.Open DSN

strSQL = "Select * From Kontaktpersoner Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)



%>



<TABLE width="500"  class="Formindhold">
<TR>
    <TD > <TABLE>
    <TR>
        <TD valign="top" bgcolor="#FFCC66" width="500"><FONT SIZE="2" COLOR="#FF0000"><b>Medarbejdereoplysninger</FONT><TABLE>
    <TR>
        <TD >Navn<td><input type="text" name="Fornavn" class="Formindhold" size="40" value="<%=rs("Fornavn")%>" ></td></TD>    </TR>
        <TD >Efternavn<td><input type="text"  name="Efternavn" class="Formindhold"size="40" value="<%=rs("Efternavn")%>" ></td></TD>    </TR>
        <TD >Adresse<td><input type="text"  name="Adresse" class="Formindhold" size="40" value="<%=rs("Adresse")%>"></td></TD>    </TR>
        <TD >Postnr<td><input type="text"  name="Postnr" class="Formindhold" size="4" value="<%=rs("Postnr")%>"></TD></TD>    </TR>
        <TD >Bynavn<td><input type="text" name="Bynavn" class="Formindhold" size="40" value="<%=rs("Bynavn")%>"></td></TD>    </TR>

    </TR>
    <TR>
   
        <TD >Mobiltelefon<td><input type="text" name="Mobiltelefon" class="Formindhold" value="<%=rs("Mobiltelefon")%>" ></td></TD>    </TR>
        <TD >Hjemme tlf<td><input type="text" name="Telefon" class="Formindhold"  value="<%=rs("Telefon")%>"></td></TD>    </TR>
        <TD >E-mail<TD class="Formindhold" size="40"><a href="mailto:<%=rs("mailm")%>"><%=rs("mailm")%></a></td>    </TR>
        <TD >Stilling<td><input type="text" name="Stilling" class="Formindhold" size="40" value="<%=rs("Stilling")%>"></td></TD>
<%
if NOT rs.EOF then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
end if
%>

if NOT (rs.BOF Or rs.EOF) then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
end if

prøv lige sådan

Prøv så med den her, hvis intet af det andet virker:
<%
If rs = EOF then
'Nothing
else
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
end if
%>

if NOT (rs.EOF) then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
end if

<%
if NOT rs = EOF then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
end if
%>
=
Microsoft VBScript runtime error '800a000d'
Type mismatch

/test/semedarb.asp, line 182

Hvis det er BOF (Beginning of File) så må "Næste"-linket da godt vises!!

prøv med den sidste af mine forslag...! altså den med (rs.EOF)

øv der var ingen af den der virkede :-(
alle laver denne:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

eller:

Microsoft VBScript runtime error '800a000d'
Type mismatch

/test/semedarb.asp, line 182

martinhh = sidste = ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

Så prøv den her:
<%
if rs.EOF then

else
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
end if
%>

desværre :

ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

det er en af de svære denne her...

og højst sansynlig fordi at RS("id") er null

så du skal nok have lavet en if sætning som ser nogenlunde sådan her ud .:
if NOT RS("id") = null THEN

END IF

Så må det blive:
<%
if NOT rs("id") = null then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>

nu starter den med at skrive:Der er ikke flere medarbejdere!"

på den første medabejder der kommer frem..

<%
if NOT rs("id") = null OR rs("id") = 1 then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>

Den skulle virke så!

tør næsten ikke skrive det.nu starter den med at skrive:Der er ikke flere medarbejdere!"

if NOT rs("id") = null AND rs("id") > 0 then

den ser sådan ud nu:
if NOT rs("id") = null AND rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

og siger stadig :Der er ikke flere medarbejdere!"

<%
if NOT rs("id") = null AND rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>
Sådan!!!!!

if NOT rs("id") = null OR rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>
Prøv den!

shit øv nej,,... hjælp... hvor er det vildt.. stadig:Der er ikke flere medarbejdere!"

if NOT rs("id") = null AND rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

hmmm hvor mange medarbejderer er der i databasen ?

Prøv lige min (14:13:14)

lige nu er der 4 stk men kommer mange

Prøv lige min, sendt kl. 14:13:14

hallllo:

if NOT rs("id") = null OR rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

skriver næste men slutter igen med:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

det er 14.13.14

*hmm der må være noget martinhh og jeg overser et sted* <-- tænker højt

Ja, jeg giver snart op ;-))

I er for seje, men hvorfor ved den ikke at EOF kommer ?

Jeg tror ikke rs("id") returnerer værdien "null", så prøv med den her:

<%
if NOT rs("id") = "" OR rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>

IF NOT RS.EOF THEN
if NOT rs("id") = null OR rs("id") > 0 then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
END IF

hihi :)

Eller den her:

if rs("id") <> "" then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

prøvet begge og de giver :ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

Eller den her:
if rs("id") <> "null" then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

prøv lige den sidste martin kom op med

Måske er jeg sulten. Ja, det er helt sikkert det der hør at den øverste etage ikke virker optimalt!!

stadig :på 14:26:53
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

hør = gør

jeg vil gerne give en is

Så prøv 14:28:59

prøv 14:28:59

hvis det ikke virker har jeg en mere omstændig måde.. ;-)

Har også fundet en SQL.Count som tæller records'ne og derfra kan vi så slå fast om vi er nået til sidste record

if rs("id") <> "null" then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
=
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/test/semedarb.asp, line 0

ok, mccannon, lad os se din...

ser til min skræk jeg kun har 86 point tilbage og I skal have 150 hjælp... hvad gør jeg ?

ahh vi tænker ens martin

'åbener recordset
antalrecs = rs.recordcount
taller = 0
do until rs.eof
taller = taller +1
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

åbner HTTP 500
<%


antalrecs = rs.recordcount
taller = 0
do until rs.eof
taller = taller +1
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if


%>

mccannon, den der du har fat i der skulle virke!

taller = 0
do until rs.eof
taller = taller +1
'alt det andet kode :)
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""sidensnavn.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if

hvis den ikke virker..såå..øhh ..ja..så ved jeg ikk :(

Slå lige Friendly errors fra i din browser så vi kan få en fejlmeddelelse der er til at arbejde med

åbner HTTP 500

<%
antalrecs = rs.recordcount
taller = 0
do until rs.eof
taller = taller +1
'alt det andet kode :)
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/test/semedarb.asp, line 199

<%
antalrecs = rs.recordcount
taller = 0
do until rs.eof
taller2 = taller + 1
'alt det andet kode :)
if taller2 < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
%>

<%
antalrecs = rs.recordcount
taller = 0
do until rs.eof
taller2 = taller + 1
'alt det andet kode :)
if taller2 < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
Loop
%>

line 197 = end if


Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/test/semedarb.asp, line 197

Så skulle den være i vinkel

husk lige movenext :)

Prøv 14:45:08

hovsa, jeg er vist virkelig sulten... Hopper ned i kantinen nu! Men mit sidste bud:
<%
antalrecs = rs.recordcount
taller = 0
do until rs.eof
taller2 = taller + 1
'alt det andet kode :)
if taller2 < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
rs.MoveNext
Loop
%>

umm nu har du vel ikke både do until rs.eof og do while not rs.eof ??

nix

med 14:46:59 kommer vi videre men så viser den: Der er ikke flere medarbejdere!"

ser til min skræk jeg kun har 86 point tilbage og I skal have 150 hjælp... hvad gør jeg ?

he he!!

Det er umuligt!!! Har selv lige testet det, og det virker glimragende!!

mit sidste bud ..for det skulle sgu virke
<%
antalrecs = rs.recordcount
taller = 0
do until rs.eof

'alt det andet kode :)
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
taller = taller + 1
rs.MoveNext
Loop
%>

mc, din virker hos mig

viser der er ikke flere medarbejdere:

<%
antalrecs = rs.recordcount
taller = 0
do until rs.eof

'alt det andet kode :)
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
taller = taller + 1
rs.MoveNext
Loop
%>

ang points...du har nok points...du har jo allokeret 150 til dette spørgsmål

martin..mente et nok

VE¤EENT

kan være du skal åbne databsen med en parameter

<%
antalrecs = rs.recordcount
taller = 0
Do While Not rs.EOF

'alt det andet kode :)
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
taller = taller + 1
rs.MoveNext
Loop
%>

Set rs = Conn.Execute(strSQL),1

nu kan jeg ikke huske om man kan gøre det på den måde, jeg plejer nemlig at åbne på en lidt anden måde

http://activedeveloper.dk/brevkassen/default.asp?mode=showquestion&question=151

rs er allerede erklæret i hans kode

jaja..men han kan vel sætte ,1 efter der hvor han gøre det ik :-)

hvor skal jeg sætte den :

<%

Set Conn = Server.CreateObject("ADODB.Connection")

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")

Conn.Open DSN
%>

Hvad skal 1 gøre godt for??

Jeg bliver nødt til at smutte!!

takker for alt....

jeg kan ikke huske om man skal bruge det når man bruger recordcount

det er hvor dynamisk man åbner databasen..default..så åbner man jo kun staticforwardreadonly..så vidt jeg husker ..lol
1 er bare en konstant man kan bruge i stedet for at skrive et langt ord

Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

' Skaber et recordset udfra SQL strengen
Set RS = Server.createObject("ADODB.Recordset")
RS.Open strSQL,Conn,1


sådan ville jeg nok åbne

jeg får fejl på denne line
RS.Open strSQL,Conn,1%>

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/test/semedarb.asp, line 124

umm åbner du ikke i toppen af siden..synes jeg ligsom din kode højere oppe viser..
11.48.36

jo:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

' Skaber et recordset udfra SQL strengen
Set RS = Server.createObject("ADODB.Recordset")
RS.Open strSQL,Conn,1
%>

15.13:44 det var search.asp filen

den vi arbejder i nu er jo semedarb.asp

oki
prøv at fjerne det ,1 igen og så skriv antalrecs ud
altså ...
<%
antalrecs = rs.recordcount
response.write antalrecs
%>

-1

må jeg vende tilbage i morgen ?

og et ekstra frækt sprg.

Lad os sige at man kommer til medarbejder 22 ved at gå frem... og så vil man tilbage og se den søgning man har lavet oprindeligt...

Findes der et script der kan det..

tænkte det nok..fordi der åbenes "forkert"

yepsen..du kan jo se på min bruger info hvordan jeg kan kontaktes.

og ja det kan der godt..kan være vi skal over i noget paging..men lad os nu se

imorgen :)

du/I er for seje tusind tak for kampen... tastes ved imorgen

Hej hej er du klar.. :-)

Peter

Hej hej er du klar.. :-)

Peter

hmm sådan da..har lidt travlt idag..hvor langt kom vi ?

til at den viste -1

oki..vis mig den kode hvor du åbner til databasen og dit recordset

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>

og dit recordset ?

<%
' 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 ("database.mdb")
Conn.Open DSN

strSQL = "Select * From Kontaktpersoner Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)



%>

Er her....

l_otto har du msn/ICQ og det samme med dig mccannon???

msn
l_otto@ofir.dk

Du er ikke online

jeg er online...nu

på igen

jeg er klar...

Sådan ser hele min kode ud på den side:

<%
' 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 ("database.mdb")
Conn.Open DSN

strSQL = "Select * From Kontaktpersoner Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)



%>



<TABLE width="500"  class="Formindhold">
<TR>
    <TD > <TABLE>
    <TR>
        <TD valign="top" bgcolor="#FFCC66" width="500"><FONT SIZE="2" COLOR="#FF0000"><b>Medarbejdereoplysninger</FONT><TABLE>
    <TR>
        <TD >Navn<td><input type="text" name="Fornavn" class="Formindhold" size="40" value="<%=rs("Fornavn")%>" ></td></TD>    </TR>
        <TD >Efternavn<td><input type="text"  name="Efternavn" class="Formindhold"size="40" value="<%=rs("Efternavn")%>" ></td></TD>    </TR>
        <TD >Adresse<td><input type="text"  name="Adresse" class="Formindhold" size="40" value="<%=rs("Adresse")%>"></td></TD>    </TR>
        <TD >Postnr<td><input type="text"  name="Postnr" class="Formindhold" size="4" value="<%=rs("Postnr")%>"></TD></TD>    </TR>
        <TD >Bynavn<td><input type="text" name="Bynavn" class="Formindhold" size="40" value="<%=rs("Bynavn")%>"></td></TD>    </TR>

    </TR>
    <TR>
   
        <TD >Mobiltelefon<td><input type="text" name="Mobiltelefon" class="Formindhold" value="<%=rs("Mobiltelefon")%>" ></td></TD>    </TR>
        <TD >Hjemme tlf<td><input type="text" name="Telefon" class="Formindhold"  value="<%=rs("Telefon")%>"></td></TD>    </TR>
        <TD >E-mail<TD class="Formindhold" size="40"><a href="mailto:<%=rs("mailm")%>"><%=rs("mailm")%></a></td>    </TR>
        <TD >Stilling<td><input type="text" name="Stilling" class="Formindhold" size="40" value="<%=rs("Stilling")%>"></td></TD>

    </TR>    </TR>
    </TABLE>
   
    </TD>
    </TR>
    </TABLE>
   
<center>
<BR>

<%
antalrecs = rs.recordcount
taller = 0
Do While Not rs.EOF

'alt det andet kode :)
if taller < antalrecs then
NewID = rs("id") + 1
Response.Write "<a href=""semedarb.asp?ID=" & NewID & """>Næste</a>"
else
Response.Write "Der er ikke flere medarbejdere!"
end if
taller = taller + 1
rs.MoveNext
Loop
%>

Skal vi prøve igen ? eller er det blevet for irriterende ?

se her:

http://www.kriegbaum.dk/medarb/search.htm

der kan I se at den frem script heller ikke virker som den skal .. som om der kun er en i søgningen så tager den bare den næste ... såå

er vi gået i stå skal jeg lukke den... ?

hejsa

jeg for nok først tid sidst på ugen..er lidt presset lige nu

men hvis du kan maile filen eller de filer til mig..så kan det være jeg kan kigge på det ind imellem

det kan jeg godt... hvor til ?

har vi tid idag .. :-)