problemer med et ad script

Your add has been posted successfully!

Virker fint her.

Har oprettet en under gggg.

prøv at klik tilbage til forsiden og se om den er der???

http://www.tjekind.dk/auto/viewdetail.asp?id=10

nej vel

hvorfor er den der så ikke når man klikker "home"?

jo min annonce er der problemet er at kategorien gggg ikke stemmer overens med den annonce der er tilføjet

Lad mig lige få adgang til admin delen.

Skriv nu så jeg kan hjælpe dig færdig.

admin
psw: login

Login Name: admin

Hvad hedder database filen?

XcClassifiedLite

altså XcClassifiedLite.mdb

Lige en sidebemærkning:

Dette er ikke smart:

http://www.tjekind.dk/auto/XcClassifiedLite.mdb

Men som du kan se har den ikke gemt mine annoncer i denne database.

>schulze< det er et rigtig godt website du har! (har klikke på alle reklamer)

jeg skal se kildekoden på newaddform.asp

kommer...2 sek

<!-- #include file="classlib.asp" -->
<%
catID = Request.Querystring("catID")
sFont="Tahoma"

Set GobjConnect = server.createobject("ADODB.Connection")
GobjConnect.open gsConnect

Call DoPageHeader

tSQL = ""
tSQL = tSQL & "SELECT ID, CategoryName FROM categories WHERE ID = " & catID
Set Categoryrs = GobjConnect.Execute(tSQL)

    Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
    Response.Write("<P><CENTER><BIG>Post Ad Under <BIG> " & Categoryrs.Fields("CategoryName"))
    Response.Write("</BIG></BIG></CENTER><BR>")
    Response.Write("<CENTER><SMALL><SMALL><FONT COLOR=""RED"">If this is incorrect,  please go to the category you would like your ad to appear under, and click on the<B> ""Post Ad"" </B>link there.</FONT></SMALL></SMALL></CENTER><BR>")
    Response.Write("<CENTER><SMALL>Items marked with ""<FONT COLOR=""RED"">***</FONT>"" must be filled in!</SMALL></CENTER><BR>")
    Response.Write("<FORM METHOD = ""POST"" ACTION=""postad.asp"">")
    Response.Write("<INPUT TYPE=""HIDDEN"" NAME=""catID"" VALUE=" & chr(34) & catID & chr(34) & ">")

Categoryrs.Close
Set Categoryrs = Nothing
Set GobjConnect = Nothing
%>
<CENTER>
<table border="0" cellspacing="1" width="550">
  <tr>
    <td width="571" height="54" colspan="2" bgcolor="#ECF1F4"><big><big><font face="Tahoma">Your
    Information</font></big></big></td>
  </tr>
  <tr>
    <td width="191" height="3" bgcolor="#ECF1F4"><font face="Tahoma">Your Name</font></font><FONT COLOR="RED">***</FONT></td>
    <td width="380" height="3" bgcolor="#ECF1F4"><input type="text" name="name" size="27"></td>
  </tr>
  <tr>
    <td width="191" height="7" bgcolor="#ECF1F4"><font face="Tahoma">Email Address</font></font><FONT COLOR="RED">***</FONT></td>
    <td width="380" height="7" bgcolor="#ECF1F4"><input type="text" name="email" size="27"></td>
  </tr>
  <tr>
    <td width="191" height="6" bgcolor="#ECF1F4"><font face="Tahoma">Street Address</font></td>
    <td width="380" height="6" bgcolor="#ECF1F4"><input type="text" name="address" size="27"></td>
  </tr>
  <tr>
    <td width="191" height="16" bgcolor="#ECF1F4"><font face="Tahoma">City</font></font><FONT COLOR="RED">***</FONT></td>
    <td width="380" height="16" bgcolor="#ECF1F4"><input type="text" name="city" size="27"></td>
  </tr>
  <tr>
    <td width="191" height="14" bgcolor="#ECF1F4"><font face="Tahoma">State</font></font><FONT COLOR="RED">***</FONT></td>
    <td width="380" height="14" bgcolor="#ECF1F4"><input type="text" name="state" size="3"></td>
  </tr>
  <tr>
    <td width="191" height="4" bgcolor="#ECF1F4"><font face="Tahoma">Zip Code</font></td>
    <td width="380" height="4" bgcolor="#ECF1F4"><input type="text" name="zip" size="11"></td>
  </tr>
  <tr>
    <td width="571" height="3" colspan="2" bgcolor="#FFFFFF"><font face="Tahoma">
    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></td>
  </tr>
  <tr>
    <td width="571" height="57" colspan="2" bgcolor="#ECF1F4"><font face="Tahoma"><big><big>Ad
    Information</big></big></font></td>
  </tr>
  <tr>
    <td width="191" height="14" bgcolor="#ECF1F4"><font face="Tahoma">Add Title</font></font><FONT COLOR="RED">***</FONT></td>
    <td width="380" height="14" bgcolor="#ECF1F4"><input type="text" name="title" size="27"></td>
  </tr>
  <tr>
    <td width="191" height="14" bgcolor="#ECF1F4"><font face="Tahoma">Price</font></td>
    <td width="380" height="14" bgcolor="#ECF1F4">$<input type="text" name="price" size="10"></td>
  </tr>
  <tr>
    <td width="191" height="7" valign="top" bgcolor="#ECF1F4"><font face="Tahoma">Ad Content</font></font><FONT COLOR="RED">***</FONT></td>
    <td width="380" height="7" valign="top" bgcolor="#ECF1F4"><textarea rows="9"
    name="adcontent" cols="39"></textarea> </td>
  </tr>
    <tr>
    <td width="571" height="40" colspan="2" bgcolor="#ECF1F4"><CENTER><font color = "red" face="Tahoma"><SMALL><B>Be sure to include "http://" before your image and/or link URLS's!!!<B></SMALL></font></CENTER></td>
  </tr>
  <tr>
    <td width="191" height="2" valign="top" bgcolor="#ECF1F4"><font face="Tahoma">Link<small><font
    color="#FF0000"> </font></font><font face="Tahoma" color="#FF0000">(OPTIONAL)</font></small><font
    face="Tahoma"></font></td>
    <td width="380" height="2" valign="top" bgcolor="#ECF1F4"><input type="text" name="link"
    size="27"></td>
  </tr>
  <tr>
    <td width="191" height="2" valign="top" bgcolor="#ECF1F4"><font face="Tahoma">Image URL <font
    color="#FF0000"><small>(OPTIONAL)</small></font></font></td>
    <td width="380" height="2" valign="top" bgcolor="#ECF1F4"><input type="text"
    name="imageurl" size="27"></td>
  </tr>
  <tr>
    <td width="191" height="14" bgcolor="#ECF1F4">&nbsp; </td>
    <td width="380" height="14" bgcolor="#ECF1F4"><input type="submit" value="Submit"
    name="B1"><input type="reset" value="Reset" name="B2"></td>
  </tr>
</table>
</FORM>
</CENTER>

<%
Call DoPageFooter
%>

også postad.asp

<!-- #include file="classlib.asp" -->
<%
sName = Request.Form("name")
sEmail = Request.Form("email")
sAddress = Request.Form("address")
sCity = Request.Form("city")
sState = Request.Form("state")
sZip = CStr(Request.Form("zip"))
sTitle = Request.Form("title")
sContent = Request.Form("adcontent")
sLink = Request.Form("link")
sImage = Request.Form("imageurl")
cPrice = Request.Form("price")
CatID = Request.Form("catID")
sString = ""

Call DoPageHeader

Response.Write("<FONT FACE=" & chr(34) & sFONT & chr(34) & ">")
    If Len(Trim(sName)) = 0 Then
        sString = sString & "There is something wrong with the ""NAME"" field.<BR>"
    End If
   
    If Len(Trim(sEmail)) = 0 Then
        sString = sString & "There is something wrong with the ""EMAIL"" field.<BR>"
    End If
   
    If Len(Trim(sCity)) = 0 Then
        sString = sString & "There is something wrong with the ""CITY"" field.<BR>"
    End If
   
    If Len(Trim(sState)) = 0 Then
        sString = sString & "There is something wrong with the ""STATE"" field.<BR>"
    End If
   
    If Len(Trim(sTitle)) = 0 Then
        sString = sString & "There is something wrong with the ""TITLE"" field.<BR>"
    End If
   
    If Len(Trim(sContent)) = 0 Then
        sString = sString & "There is something wrong with the ""CONTENT"" field.<BR>"
    End If
   
    If sString <> "" Then
        Response.Write ("<CENTER>" & sString & "Please click the ""BACK"" button on your browser to try again.</CENTER>")
    Else
        Set GobjConnect = server.createobject("ADODB.Connection")
        GobjConnect.open gsConnect

            sSQL = ""
            sSQL = sSQL & "INSERT INTO adcontent (TopicID, name, email, address, city, state, zip, adtitle, content, link, dateposted, image, price) "
            sSQL = sSQL & "VALUES(" & SQLVal(catID) & ", "
            sSQL = sSQL & SQLStr(sName) & ", "
            sSQL = sSQL & SQLStr(sEmail) & ", "
            sSQL = sSQL & SQLStr(sAddress) & ", "
            sSQL = sSQL & SQLStr(sCity) & ", "
            sSQL = sSQL & SQLStr(sState) & ", "
            sSQL = sSQL & SQLStr(sZip) & ", "
            sSQL = sSQL & SQLStr(sTitle) & ", "
            sSQL = sSQL & SQLStr(sContent) & ", "
            sSQL = sSQL & SQLStr(sLink) & ", "
            sSQL = sSQL & SQLDate(Now) & ", "
            sSQL = sSQL & SQLStr(sImage) & ", "
            sSQL = sSQL & SQLVal(cPrice) & " )"

            GobjConnect.Execute(sSQL)
   
            tSQL = ""
            tSQL = tSQL & "SELECT ID, CategoryName FROM categories WHERE ID = " & catID
            Set CatRS = GobjConnect.Execute(tSQL)
   
            Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & "><CENTER>")
            Response.Write("Your add has been posted successfully!<P>")
            Response.Write("<A HREF=" & chr(34) & "viewads.asp?catID=" & catID & chr(34) & ">Back to " & CatRS.Fields("CategoryName") & "</A>&nbsp;&nbsp;|&nbsp;&nbsp;")
            Response.Write("<A HREF=""default.asp"">Home</A></CENTER>")

        CatRS.Close
        Set CatRS = Nothing
        Set GobjConnect = Nothing
    End If

Call DoPageFooter

%>

Jeg er også nødt til at se: classlib.asp

<!-- #include file="config.asp" -->
<%
'****************************************************************************
'* XcClassifed Lite - (C)Copyright 1999-2000 - XCENT - www.xcent.com        *
'****************************************************************************
'* 
Dim gobjConnect
Dim gsConnect
Dim gsPageTemplate
Dim gsPageHeader
Dim gsPageFooter
Dim gsEmbeddedCode

datAddLength = dateAdd("D",-AdRunLength,now)

Function SQLStr(pvValue)
  Dim sTemp
  Select Case VarType(pvValue)
      Case 0, 1:
        SQLStr = "NULL"
      Case 2, 3, 4, 5, 6:
        sTemp = "" & pvValue
        sTemp = Replace(sTemp, "'", "''")
        SQLStr = "'" & sTemp & "'"
      Case 7: 'DateTime
        sTemp = FormatDateTime(pvValue)
        sTemp = Replace(sTemp, "'", "''")
        SQLStr = "'" & sTemp & "'"
      Case 8: 'String
        sTemp = pvValue
        sTemp = Replace(sTemp, "'", "''")
        If Len(Trim(sTemp)) > 0 Then
            SQLStr = "'" & sTemp & "'"
        Else
            SQLStr = "NULL"
        End If
      Case Else
        SQLStr = "NULL"
  End Select
End Function

Function SQLBool(pvValue)
  Dim sTemp
  Select Case VarType(pvValue)
      Case 0, 1:
        SQLBool = "'N'"
      Case 2, 3, 4, 5, 6:
        If pvValue Then
            SQLBool = "'Y'"
        Else
            SQLBool = "'N'"
        End If
      Case 8: 'String
        sTemp = UCase(Left(Trim(pvValue), 1))
        Select Case sTemp
            Case "Y", "T", "1", "-":
              SQLBool = "'Y'"
            Case "N", "F", "0", "":
              SQLBool = "'N'"
            Case Else
              SQLBool = "'N'"
        End Select
      Case 11:
        If pvValue Then
            SQLBool = "'Y'"
        Else
            SQLBool = "'N'"
        End If
      Case Else
        SQLBool = "'N'"
  End Select
End Function

Function SQLVal(pvValue)
  Dim sTemp

  Select Case VarType(pvValue)
      Case 0, 1:
        SQLVal = "NULL"
      Case 2, 3, 4, 5, 6:
        SQLVal = "" & pvValue
      Case 8: 'String
        sTemp = Trim(pvValue)
        On Error Resume Next
        SQLVal = "" & CDbl(sTemp)
        If Err.Number <> 0 Then
            Err.Clear
            SQLVal = "NULL"
        End If
      Case 11:
        SQLVal = "" & Cint(pvValue)       
      Case Else
        SQLVal = "NULL"
  End Select
End Function

Function SQLDate(pvDate)
  Select Case VarType(pvDate)
      Case 7: 'Date
        If giSQLDateAsSystem Then
            SQLDate = gsSQLDateDelimiter & FormatDateTime(pvDate,2) & " " & FormatDateTime(pvDate,4) & gsSQLDateDelimiter
        Else
            SQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(pvDate),4) & NumToStrLeadDigits(Month(pvDate),2) & NumToStrLeadDigits(Day(pvDate),2) & " " & FormatDateTime(pvDate,4) & gsSQLDateDelimiter
        End If
      Case 8: 'String
        If IsDate(pvDate) Then
            If giSQLDateAsSystem Then
              SQLDate = gsSQLDateDelimiter & FormatDateTime(CDate(pvDate),2) & " " & FormatDateTime(CDate(pvDate),4) & gsSQLDateDelimiter
            Else
              SQLDate = gsSQLDateDelimiter & NumToStrLeadDigits(Year(CDate(pvDate)),4) & NumToStrLeadDigits(Month(CDate(pvDate)),2) & NumToStrLeadDigits(Day(CDate(pvDate)),2) & " " & FormatDateTime(CDate(pvDate),4) & gsSQLDateDelimiter
            End If
        Else
            SQLDate = "NULL"
        End If
      Case Else
        SQLDate = "NULL"
  End Select
End Function

Function NumToStrLeadDigits(pvValue, piDigits)
  Dim sTemp
  sTemp = Trim("" & pvValue)
  Do While Len(sTemp) < piDigits
      sTemp = "0" & sTemp
  Loop
  NumToStrLeadDigits = sTemp
End Function

Sub DoPageFooter
  If UCase(Session("DEBUG")) = "ON" Then
      Call ShowDebug
  End If
  If Len(Trim(gsPageFooter)) > 0 Then
      OutputTemplate(gsPageFooter)
  End If
End Sub

Sub DoPageHeader
  Dim sPrePageFooter
  Dim lEmbeddedAt
  gsPageFooter = Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(80) & Chr(62) & Chr(60) & Chr(67) & _
            Chr(69) & Chr(78) & Chr(84) & Chr(69) & Chr(82) & Chr(62) & Chr(60) & Chr(70) & _
            Chr(79) & Chr(78) & Chr(84) & Chr(32) & Chr(83) & Chr(73) & Chr(90) & Chr(69) & _
            Chr(61) & Chr(34) & Chr(49) & Chr(34) & Chr(62) & Chr(60) & Chr(69) & Chr(77) & _
            Chr(62) & Chr(84) & Chr(114) & Chr(97) & Chr(110) & Chr(115) & Chr(109) & Chr(105) & _
            Chr(116) & Chr(116) & Chr(101) & Chr(100) & Chr(58) & Now
  gsPageFooter = gsPageFooter & _
            Chr(60) & Chr(66) & Chr(82) & Chr(62) & Chr(68) & Chr(82) & Chr(73) & Chr(86) & _
            Chr(69) & Chr(78) & Chr(32) & Chr(66) & Chr(89) & Chr(32) & Chr(60) & Chr(65) & _
            Chr(32) & Chr(72) & Chr(82) & Chr(69) & Chr(70) & Chr(61) & Chr(34) & Chr(104) & _
            Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(119) & Chr(119) & _
            Chr(119) & Chr(46) & Chr(120) & Chr(99) & Chr(101) & Chr(110) & Chr(116) & Chr(46) & _
            Chr(99) & Chr(111) & Chr(109) & Chr(34) & Chr(62) & Chr(88) & Chr(67) & Chr(69) & _
            Chr(78) & Chr(84) & Chr(32) & Chr(60) & Chr(47) & Chr(65) & Chr(62) & Chr(32) & _
            Chr(88) & Chr(99) & Chr(67) & Chr(108) & Chr(97) & Chr(115) & Chr(115) & Chr(105) & _
            Chr(102) & Chr(105) & Chr(101) & Chr(100) & Chr(115) & Chr(32) & Chr(76) & Chr(105) & _
            Chr(116) & Chr(101) & Chr(60) & Chr(47) & Chr(69) & Chr(77) & Chr(62) & Chr(60) & _
            Chr(47) & Chr(70) & Chr(79) & Chr(78) & Chr(84) & Chr(62)
  sPrePageFooter = gsPageFooter
  sTemp = ""
  If Len(Trim(gsPageHeader)) > 0 Then
      On Error Resume Next
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set ts = fs.OpenTextFile(gsPageHeader)
      sTemp = ts.ReadAll
      ts.Close
      Set ts = Nothing
      Set fs = Nothing
      On Error Goto 0
  End If
  If Len(Trim(sTemp)) = 0 Then
      sTemp = "<TITLE>XcClassified Lite</TITLE>"
  End If
  lEmbeddedAt = Instr(1, sTemp, gsEmbeddedCode, 1)
  If lEmbeddedAt > 0 Then
      gsPageFooter = sPrePageFooter & Right(sTemp, Len(sTemp) - lEmbeddedAt - Len(gsEmbeddedCode) + 1)
      sTemp = Left(sTemp, lEmbeddedAt - 1)
  End If
  OutputTemplate(sTemp)
End Sub

Sub ShowHTMLFile(psFile)

  If Instr(psFile, "\") > 0 Then
      sFile = psFile
  Else
      sFile = Server.MapPath(".") & "\" & psFile
  End If

  On Error Resume Next
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set ts = fso.OpenTextFile(sFile)
  sTemp = ts.ReadAll
  ts.Close

  If Len(Trim( "" & sTemp )) = 0 Then
      'Could not open file
      sTemp = "<B>Error</B><BR>File:" & sFile & " could not be read."
  End If

  Response.Write(sTemp)

End Sub


Sub OutputTemplate( psStream )
  Dim lEmbeddedAt
 
  sTemp = "" & psStream
  If Len(Trim(sTemp)) > 0 Then
      lEmbeddedAt = Instr(1, sTemp, gsAuxCode, 1)
      If lEmbeddedAt > 0 Then
        Response.Write( Left(sTemp, lEmbeddedAt - 1) )
        Response.Write( Right(sTemp, Len(sTemp) - lEmbeddedAt - Len(gsAuxCode) + 1 ) )
      Else
        Response.Write( sTemp )
      End IF
  End If
End Sub

Sub DeleteOldAds 
  delSQL = ""
  delSQL = delSQL & "DELETE FROM adcontent WHERE dateposted < " & SQLDate(datAddLength)
  GobjConnect.Execute(delSQL) 
End Sub

Sub CheckLoginInfo
    If IsLoggedOn Then
        Call AdminNavigation
    Else
        Response.Write("Sorry,  but you are not logged on.<BR>")
        Response.Write("<A HREF=""adminlogin.asp"">Click here</A> to log in.")
    End If
End Sub

Function IsLoggedOn()
  If Session("LoggedOn") = "YES" Then
      IsLoggedOn = True
  Else
      IsLoggedOn = False
  End If     
End Function

Sub AdminNavigation
    Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
    Response.Write("<CENTER><BIG>Classified Administration</BIG></CENTER><BR></FONT>")
    Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & "><CENTER>")
    Response.Write("<A HREF=""adminadd.asp"">Add a Topic</A>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
    Response.Write("<A HREF=""admindeletetopic.asp"">Delete a Topic</A><BR>")
    Response.Write("OR <BR> Navigate to the message that you want to edit or delete.<P>")
    Call DoAdmin
End Sub
%>

Ok har fundet problemet

ok

Når man opretter en annonce bliver den gemt i databasen.

jep - men..

Men når man så går tilbage til forsiden undersøger scriptet dette:

Sub DeleteOldAds 
  delSQL = ""
  delSQL = delSQL & "DELETE FROM adcontent WHERE dateposted < " & SQLDate(datAddLength)
  GobjConnect.Execute(delSQL) 
End Sub

Hvilken server kører du på?

?

Hvilken pc ligger din hjemmeside på?

er du med på hvad der er galt?

NT ved struernet

hvorfor?

Lav lige et asp dokument med en linie der hedder:
<%
Response.Write Now ()
%>

opload det til din server og åben det og skriv hvad der kom frem her.

16-04-2002 22:10:08

?

øjeblik

Jeg oprettede en annonce og downloadede så din database.
Her var min annonce oprettet.
Men når man åbner default.asp altså klikker på home aktiveres dette script:

Sub DeleteOldAds 
  delSQL = ""
  delSQL = delSQL & "DELETE FROM adcontent WHERE dateposted < " & SQLDate(datAddLength)
  GobjConnect.Execute(delSQL) 
End Sub

Problemet her er at alle poster der er mindre end det aktuelle tidspunkt bliver slettet. Er du med?

ja ja, det var ikke for at jage med dig :) - jeg er så glad for at du gider bruge tid på at hjælpe.

Synderen er her:

datAddLength = dateAdd("D",-AdRunLength,now)

nope - men jeg er også først ved at lære asp.

hvad skal der så stå?

Det er et ret typisk problem.

Subrutinen DeleteOldAds sletter gamle annoncer fra din database så den ikke bliver for fuld.

Den tager dagens dato trækker AdRunLength fra (altså den tid annoncen har kørt i) og sletter de poster i databasen der er mindre end denne dato.

Lad mig lige se config.asp også.

ok - adrunlength er sat til 10 dage i config filen

er her:


<%
gsConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("XcClassifiedLite.mdb")

'Set the font
sFont = "Tahoma"

'This sets the color for the headers and footers of tables
tablecolor = "#B3CEF7"

'This sets the color for the cells containing the ad content
detailcolor = "#EDF0F3"

'Set the number of days that ads are to run
AdRunLength = 10

gsEmbeddedCode = "<COMMENT>XcMainView</COMMENT>" 
gsPageHeader = Server.MapPath("template.htm")

'System Library Database Configuration Settings
gsSQLDateDelimiter = Chr(35)
'gsSQLDateDelimiter = Chr(39)
'gsSQLWildCardChar = "*"
gsSQLWildCardChar = "%"
giSQLDateAsSystem = True
%>

er det ikke også kun i config filen jeg skal ændre det hvis jeg giver databasen nyt navn?

Ja men datoer i Access databaser er ikke så nemme at have med at gøre.

Ret følgende i classlib.asp

Sub DeleteOldAds 
  delSQL = ""
  'delSQL = delSQL & "DELETE FROM adcontent WHERE dateposted < " & SQLDate(datAddLength)
  'GobjConnect.Execute(delSQL) 
End Sub

Og prøv så at tilføje annoncer på din hjemmeside.

er det ikke det der allerede står?

Sub DeleteOldAds 
  delSQL = ""
  delSQL = delSQL & "DELETE FROM adcontent WHERE dateposted < " & SQLDate(datAddLength)
  GobjConnect.Execute(delSQL) 
End Sub

equip.dk>er det ikke også kun i config filen jeg skal ændre det hvis jeg giver databasen nyt navn?

Jo

bemærk '

sorry - 2 sek....

du er så sej....:o)

hvad gør den "'"?

altså '

Den gør at linien bliver ignoreret

ok - vil det så gøre sådan at man selv skal slette ann.?

Ja

ved du hvorfor det ikke virker?

Det er fordi access databasen gemmer datoen i dansk format. Og så kokser det når datoerne skal sammenlignes.

ok

tusind tak for hjælpen -

Det var så lidt :)

og der var lige lidt point - endnu engang tak....og sov godt

u2