creare agenda

**power83** · 29-09-2006, 12:38

Salve a tutti...vorrei chiedere dei consigli su come realizzare una piccola agende...
in pratica l'utente seleziona una determinata settimana, ogni giorno della settimana è diviso in 5 fasce dentro le quali l'utente inserisce l'appuntamneto!

Come posso realizzare queto sito????

Grazie!!

per intenderci una cosa del genere

**santino83_11_04** · 29-09-2006, 12:43

ci sarà una tabella degli "appuntamenti" collegata ad una tabella "fascia oraria" collegata a sua volta ad una tabella "giorni del mese" (parlo del database ovviamente)

**power83** · 29-09-2006, 13:01

Io pensavo a due tabelle una con i giorni e le fasce una con le settimane...

una cosa del genere

Solo che mi sembra troppo "legato" al db!

**power83** · 29-09-2006, 13:30

Ciao!
Ho fatto in questo modo:

codice:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title> Appuntamenti. </title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta name="generator" content="HAPedit 3.1">
<meta http-equiv="refresh" content="20" /> 

<style type="text/css"> 
@import url("stile.css"); 
</style> 

</head>
<body>

 <form name="sett" method="post" action="settimana.asp">

<% 
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
	"DBQ="& Server.MapPath("dati.mdb")
	sql = "select * from settimana"
	set rs = conn.execute(sql)
%>

 SELEZIONA LA SETTIMANA: 
  

(Settimana  selezionata: 

	<%
	response.write (session("set"))
	%>

	) 
 


		
<select name="settimana">
<% do until rs.eof%>
<option <%if (FormatDateTime(rs("inizio"),2) = session("set")) then%> selected<%end if%> value="<%=FormatDateTime(rs("inizio"),2)%>"> Lunedì <%=rs("inizio")%> </option><% 
		rs.movenext
   	loop%>
</select>

	<%
		Rs.Close
  		Set Rs = Nothing
		Conn.Close
  		Set Conn = nothing
	%>
	<input type="submit" name="invia" value="Conferma" title="Invia i dati." /> </form> </div>
	
	<% 
inizio = session("set")

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
"DBQ="& Server.MapPath("dati.mdb") 

inizio = Month(inizio)&"/"&Day(inizio)&"/"&Year(inizio)

sql = "select TOP 25 * from consulente WHERE [data] >= #" & inizio &"#  ORDER BY DATA" 
  set rs = conn.execute(sql)
%>


</body>
</html>

Ora dovrei tabellare i risultati...

**santino83_11_04** · 29-09-2006, 14:13

bravo tabella tabella...

**power83** · 29-09-2006, 14:21

per ora tutto bene!!
Ho solo un piccolo problemino..

dalla pagina con la tabella (ancora da sistemare!) cliccando su una cella si può inserire un appuntamento per poi fare l'update che però mi restituisce errore...

pag

codice:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title> Appuntamenti. </title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta name="generator" content="HAPedit 3.1">
<meta http-equiv="refresh" content="20" /> 

<style type="text/css"> 
@import url("stile.css"); 
</style> 

</head>
<body>

 <form name="sett" method="post" action="settimana.asp">

<% 
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
	"DBQ="& Server.MapPath("dati.mdb")
	sql = "select * from settimana"
	set rs = conn.execute(sql)
%>

 SELEZIONA LA SETTIMANA: 
  

(Settimana  selezionata: 

	<%
	response.write (session("set"))
	%>

	) 
 


		
<select name="settimana">
<% do until rs.eof%>
<option <%if (FormatDateTime(rs("inizio"),2) = session("set")) then%> selected<%end if%> value="<%=FormatDateTime(rs("inizio"),2)%>"> Lunedì <%=rs("inizio")%> </option><% 
		rs.movenext
   	loop%>
</select>

	<%
		Rs.Close
  		Set Rs = Nothing
		Conn.Close
  		Set Conn = nothing
	%>
	<input type="submit" name="invia" value="Conferma" title="Invia i dati." /> </form> </div>
	
	<% 
inizio = session("set")

Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
"DBQ="& Server.MapPath("dati.mdb") 

inizio = Month(inizio)&"/"&Day(inizio)&"/"&Year(inizio)

sql = "select TOP 25 * from consulente WHERE [data] >= #" & inizio &"#  ORDER BY DATA" 
  set rs = conn.execute(sql)


do until rs.eof 
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<%
if (rs("Testo") = "") then
%>

<td bgcolor = "green"> 
&idG=<%=rs("data")%>">  00.00 - 00.00   


</td>
<% Else %> 
	<td bgcolor = "reed"> 
   		&idG=<%=rs("data")%>">  00.00 - 00.00   
	</td>
	<%
end if

rs.movenext 

loop 

Rs.Close 
Set Rs = Nothing 
Conn.Close 
Set Conn = nothing 

%>
</table>

</body>
</html>

poi cliccando sulla cella
pagina prenota

codice:

<%
	session("fas") = request("idf") 
	session("gg") = request("idg") 
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<HTML lang="it"> 
<head>

	<form name="prenota" method="post" action="prenotafine.asp">
	
	 Cliente:  

	<input type="text" name="cliente" size="20" title="Inserire NOMECLIENTE" tabindex="1" /> 

    
    <input type="submit" name="invia" value="Inserisci" title="Invia i dati per l'autenticazione" tabindex="3"/>
        
	</form>

</body>
</html>

e quindi la pagina finale che inserisce e ritorna alla pagina principale

codice:

<%
    fas = session("fas")
	gg = session("gg")
	cliente = Trim(Request.Form("cliente"))
	gg_p = Month(gg)&"/"&Day(gg)&"/"&Year(gg)

	Set Conn = Server.CreateObject("ADODB.Connection") 
	Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ 
	"DBQ="& Server.MapPath("dati.mdb") 

	conn.execute ( "UPDATE consulente set testo = '" & cliente & "'  WHERE data = # " & gg_p &" #  and fascia = '" & fas & "' ")	

	conn.close
	set conn = nothing
	Response.Redirect "pag.asp"
%>

Dove sbaglio???
Grazie

**Roby_72** · 29-09-2006, 14:26

Quale errore?

Roby

**power83** · 29-09-2006, 15:27

Giusto!

Impossibile visualizzare la pagina
Impossibile visualizzare la pagina desiderata. Si è verificato un problema.

--------------------------------------------------------------------------------

HTTP 500 - Errore interno del server
Internet Explorer

**Roby_72** · 29-09-2006, 15:33

Menu strumenti --> Opzioni Internet --> Avanzate e togli la spunta alla voce "Mostra messaggi di errore HTTP brevi".
Fai ripartire la pagina e guarda l'errore.

Roby

**power83** · 29-09-2006, 15:35

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC Microsoft Access] Per l'operazione è necessaria una query aggiornabile.

/commerciali/Commericiali01/prenotafine.asp, line 11

Discussione: creare agenda

Strumenti discussione

Ricerca discussione

Visualizza

creare agenda

Re: creare agenda

Permessi di invio