"Automatisk" Delete av post

Jag har en sida som det ligger jobb på.
När man lägger till ett jobb så skriver man ett sista ansökningsdatum, detta datum vill jag även använda för att senare ta bort jobbet från databasen.

Jag vill att jobbet ligger kvar 3 dagar efter sista ansökningsdatumet.

Använder mig av en Access databas (om det hjälper att Ni vet)

jag har tittat runt på forumet och hittat en

Dim datum
datum = Date()
strSQL = "DELETE * FROM jobb WHERE datum < #datum#"
Set objRS = objConn.Execute(strSQL)

jag får inte denna att fungera.
(Känns som att jag måste ha något mer till denna kod.)

Kan nån ge en grundlig förklaring hur jag löser detta?

Tack på förhand

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

strSQL = "DELETE * FROM jobb WHERE datum < #" & datum & "#"

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Jag lägger väl koden på den sida där alla jobb visas ur databasen?

För jag får det inte att fungera med din kod.

Finns det nån annan kod som är bättre?

mvh

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

felmeddelanden?
hur ser resten av koden ut?

heter ditt datumfält verkligen datum? du måste du klamra fältnamnet om din access är av svensk version:

strSQL = "DELETE * FROM jobb WHERE [datum] < #" & datum & "#"

du måste ge oss en bättre beskrivning på vad det är som inte funkar, om vi ska kunna hjälpa dig.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Detta är felmedelandet

Microsoft VBScript runtime error '800a01a8'

Object required: ''

Detta är min [KOD]
<%
Dim datum
datum = Date()
strSQL = "DELETE * FROM jobb WHERE [datum] < #" & datum & "#"
Set objRS = objConn.Execute(strSQL)
%>
[KOD]

Jag lägger väl koden där alla jobb visas ur databasen?

Behöver du hela HTML koden??

mvh

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

1. var skapas objConn någonstans?
2. du skall inte skapa något recordset för att köra en delete-fråga, utan bara dra den genom .execute på ditt connectionobjekt.

stämmer fältnamnen i frågan överens med fältnamnen du använt i tabellen?

<%
Dim datum
datum = Date()
strSQL = "DELETE * FROM jobb WHERE [datum] < #" & datum & "#"
objConn.Execute(strSQL)
%>

felmeddelandet du får beror sannolikt på att du inte skapat något connection-objekt, och om du gjort det, hur du inte kallat det för objConn.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Nej jag har inga av de saker du nämner
har ingen conn-obj

jag vet inte hur man skall göra

har du lust att visa?

Fältnamnen stämmer.

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

Jag lägger väl koden på den sida där alla jobb visas ur databasen?

huh? då måste du ju ha ett connectionobjekt :q eller missförstår jag dig totalt? du kan (och bör) alltså använda samma connectionobjekt för all databaskommunikation på sidan.

exempel på hur du kan göra för att skapa ett connectionobjekt:

set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objConn.ConnectionString = "Data Source=" & Server.MapPath ("../db/databas.mdb")

ändra sökvägen till din databas...

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

i din andra tråd (dropdownmenyer) har du ju skapat ett connectionobjekt.

varför inte använda det :q

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Ok jag har tänk fel.

Nu är jag med vad du menar jag hadde tänkt helt fel på den koden.

tack för hjälpen

------------------
-----------------------
-{CHRYSTAL}-
Lesch rular CS

okidoki, vassego!

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>