min Response.redirect virker ikke.

er  dit statusfelt et text felt: Hvis det er et talfelt skal du skrive:

if rs("status")=1 then

og så vil jeg anbefale dig at lave en fil du kalder conn.asp som indeholder

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

herefter skal du bare kalde din conn.asp med

<--! #include file="conn.asp" -->

øverst i alle dine asp. dokumenter

:)

Brug dog;

if CInt(rs("status")) = 1 then
Response.redirect ("update.asp")
end if

det kunne man også :)

pointen er at du højst sandsynligt forsøger at smide noget tekst ("1") i et talfelt i db.

tekstfelt:    rs("status")="1"
talfelt:      rs("status")=1

:)

Jeg fik det til at virke med bække 2 løsninger......
men desvære ved nærmere eftertestning havde det ikke lige den funktion som jeg gerne ville havde :-(
Måske hvis i lige kender svaret kunne i poste det her... (så skal jeg nok smide lidt flere point i puljen)

Jeg jeg har en side "form.asp" hvor der bliver indtastet nogle dataer, den sætter så en dato med "date()" og har en kolone i min db som hedder status og lys. feltet status vil enten være 1 el 2... som i kan se i min update.asp skal den ændre kolonen lys hvis der er gået over 14 date fra date().
Jeg vil så havde det sådan at den ser bort fra alle de rækker hvor status er = 2.

Troede jeg kunne løse det med den "Response.redirect" men den tar jo alle daterne (også dem hvor status=2) :-( noget i gider hjælpe med eller skrive hvordan jeg kan gøre... så kan jeg i det mindste selv prøve.

SQL = "UPDATE rep SET lys = '2' WHERE status = 1 AND dato <= DateAdd('d',-14,Date())"

var det sådan du mente??

Visuel >> det var bare helt perfekt....
Ja Det var lige præcis det jeg mente.....

Har smidt 15 point mere ind for dit svar...

fordeler dem 25 / 5

Håber det er okay...

Takker - havde dog ikke behøvet de ekstra point. Er bare glad for at kunne hjælpe

:)

ved ikke om du har gjort det, men den optimale kode ville se ud som følger med 3 filer:

conn.asp

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

updatestatus.asp
<--! #include file="conn.asp" -->
<%
strSQL = "Select * From rep"
Set rs = Conn.Execute(strSQL)

if rs("status")=1 then
Response.redirect ("update.asp")
end if

Conn.Close
Set Conn = Nothing
%>


update.asp

<--! #include file="conn.asp" -->
<%
SQL = "UPDATE rep SET lys = '2' WHERE dato <= DateAdd('d',-14,Date())"

Conn.Execute(SQL)

Conn.Close
Set Conn = Nothing
%>



:)

Det er gjort tak :-)