onomastico

[Stanislao]

ho un database con tre campi uno è
l'onomasticol'altro è la data in cui si festeggia

come faccio a far si che la data di oggi mi dia in risposta il nome

oggi si festeggia s.stanislao :gren:

grazie amiconi!

[salvo8788]

in che formato è la data?

[Stanislao]

12/11/2004

[salvo8788]

sql = "SELECT * FROM nometabella WHERE nomecampodata = '" & date() & "';"
Set rs = cn.execute(sql)
if rs.eof or rs.bof then
response.write "errore"
else
response.write "Oggi si festeggia " & rs("nome_campo_onomastico")
End if

Spero di non aver sbagliato niente!
Ciao

[Jmdef]

se ho inquadrato bene il problema, basta una query sql con cui estrarre il nome associato alla data odierna.
Quindi se oddi è il 02/06/2004, con la funzione date() ti ricavi la data corrente e la metti in nella variabile oggi:

 
oggi = date()

poi, se il nome della colonna contenente il santo è "santo" ( ) e quella contenente la data è "data_onomastico" puoi fare una query sql in questo modo:

dim sql_onomastico
sql_onomastico = "SELECT santo WHERE data_onomastico='" & oggi & "'"

penso che dovrebbe andare.
fammi sapere....

byez

[Jmdef]

[salvo8788]

Jmdef non per fare il sapientone ma mi sa che nella query hai mancato il "from"!
Ciao :tongue:

[Jmdef]

ehm... giusto....

dim sql_onomastico
sql_onomastico = "SELECT santo FROM nometabella WHERE data_onomastico='" & oggi & "'"

anche se il problema è già risolto 4 thread più in alto...

[Stanislao]

mi sa che ci manca qualcosa

data la mia ignoranza la tabella del database è Onomastici

e i due campi interni sono onomastico(data) e nome(il nome)

la buonavolontà mi da questo

<%

oggi = date()
sql_onomastico = "SELECT nome WHERE onomastico='" & oggi & "'"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("../db/database.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,Conn,3,3
if not rs.eof then


%>

ma non funge

[Shagrat]

<% 

oggi = date() 
sql_onomastico = "SELECT nome FROM onomastici WHERE onomastico=#" & oggi & "#" 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("../db/database.mdb") 
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.Open sql,Conn,3,3 
if not rs.eof then 


%>