data expire

**emilianom** · 25-08-2005, 19:17

ciao ragazzi, devo inpostare in una pagina asp che recupera news da un database, una data di expire.
finora sono riuscito con successo ad inserire la data di expired nel databese tramite form ma adesso mi sono impantanato.

per piacere chi mi da una manina? almeno per cominciare :-)

<%
'!!! START NEWS SCRIPT
dim cConn, RS2, sConn

Application.Lock

'<-- IMPORTANT: SET THE FOLLOWING LINE TO CORRESPOND WITH YOUR DATABASE'S FOLDER
Application("\mdb-database\db.mdb")="\mdb-database\"

Application.Unlock

sConn="Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("\mdb-database\db.mdb")
set cConn=Server.CreateObject("ADODB.Connection")
cConn.Open sConn
set RS2=cConn.Execute("SELECT * FROM News ORDER BY Dates DESC")

do while RS2.EOF=False
%>

<head>
<title></title>
<base target="_self">
<meta name="Microsoft Theme" content="none, default">
</head>

<body>

<p align="center"><font face="arial,sans-serif,verdana,times new roman" size="5" color="#FF0000">
LAST MINUTE</font></p>

<font size="2" face="arial,sans-serif,verdana,times new roman">
<div align="center">
<center>
<table border="1" width="700">
<tr>
<td>

<a href="news.asp?index=<%=RS2("Index")%>"><%=RS2("He adLine")%>

</a></font>

Prenota (Reservation): "><%=RS2("Author")%>

<%=RS2("ShortText")%> <%=RS2("Author")%></a></td>
</tr>
</table>
</center>
</div>
<p align="center">

<%
RS2.MoveNext
loop
set RS2=Nothing
'### END NEWS SCRIPT
%></p>
<p align="center"></p>

-----

**santino83** · 25-08-2005, 19:39

expire di che? :master:

**emilianom** · 25-08-2005, 19:42

della news!!
la news che nella colonna expire ha data precedente seccessiva a quel giorno ..non deve essere vista o addirittura cancellata se è possibile ma.....nn ci sta capendo molto

**emilianom** · 25-08-2005, 19:44

ops :-) mi sono espresso male.
la news non deve più vedersi dopo quella data

**santino83** · 25-08-2005, 19:50

provato con:

codice:

data_cerca=date()

sql="SELECT * FROM News where cdate(Dates)=#" & cdate(data_cerca & "# ORDER BY Dates DESC"

set RS2=cConn.Execute(sql)

? ovvero prendi solo le news che hanno data odierna?

**emilianom** · 25-08-2005, 19:59

no nn va .. queto è ò'errore:

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/news/index2.asp, line 18

sql="SELECT * FROM News where cdate(Dates)=#" & cdate(data_cerca & "# ORDER BY Dates DESC"
------------------------------------------------------------------------------------------^

**santino83** · 25-08-2005, 20:03

scordato una parentesi

codice:

sql="SELECT * FROM News where cdate(Dates)=#" & cdate(data_cerca) & "# ORDER BY Dates DESC"

**emilianom** · 25-08-2005, 20:03

ma non potrei settare il database in modo che se la data di un campo è passata tutta la riga si cancella in automatico?

**santino83** · 25-08-2005, 20:04

no, però puyoi farlo in automatico all'apertura di quella pagina...se pensi ti convenga

codice:

data_cerca=cdate(date)

sql="delete * from tua_tabella where cdate(Dates)<#" & data_cerca & "#"

conn.execute(sql)

**emilianom** · 25-08-2005, 20:07

è tutta bianca la pagina

Discussione: data expire

Strumenti discussione

Ricerca discussione

Visualizza

data expire

Permessi di invio