Listare settimane da sabato a sabato

[klinik]

Salve, vorrei provare a fare un piccolo booking per affitto appartamento, con la lista delle settimane e relativo prezzo

es:
settimana dal 15/8 al 22/8 euro
settimana dal 22/8 al 29/8 euro
settimana dal 29/8 al 05/9 euro ecc

come posso fare a far listare in automatico le settimane di un paio di mesi almeno?

Gab ;-)

[cavicchiandrea]

Intendi una cosa del genere http://webprogetti.it/minicalendarioprezzi.asp

[klinik]

Esatto!! Ti ringrazio ;-)

Con quello script adesso ho impaginato le settimane (6)
15/08/2015 22/08/2015 € con il form per l'inserimento del prezzo
22/08/2015 29/08/2015 €
29/08/2015 05/09/2015 € ecc

<form action="scrivi_db.asp" method="post"><%
Sabato = (7-Weekday(date)) 'Sabato prossimo
dataInizio = DateSerial(year(date),month(date),day(date)+Sabato )'Imposto il primo sabato
'prezzi = Array(100,120,130,140,150,120,110,90,80,70)'Listin o prezzi primo prezzo prima settimana
mesi = DateAdd("m",1,dataInizio)'aggiungo due mesi
UltimoSabato = (7-Weekday(mesi))'ultimo sabato
dataFine = DateSerial(year(mesi),month(mesi),day(mesi)+Ultimo Sabato)'Sabato finale
'mostro la tabella
response.write "<table width=""350"" border=""1"" cellspacing=""1"" align=""center"" cellpadding=""0""><tr><th scope=""col"">Dal</th><th scope=""col"">Al</th><th scope=""col"">Prezzo</th</tr>"
righe = -1
Do While dataInizio <= dataFine
righe = righe + 1
'Response.Write("<tr><td>"&dataInizio &"</td><td>" & DateAdd("D", 7, dataInizio) &"</td><td>"&prezzi(righe)&" €</td></tr>")
Response.Write("<tr><td><input type='text' name='dal' size='8' value='"& dataInizio &"'></td><td><input type='text' name='al' size='8' value='"& DateAdd("D", 7, dataInizio) &"'> </td><td>€ <input type='text' name='prezzo' size='8' value='"& prezzo &"'></td></tr>")
dataInizio = DateAdd("D", 7, dataInizio)
Loop
Response.Write "</table>"
%>
<center>
<input type="submit" value="Modifica Listini">
</form>


adesso il problema è questo: i campi hanno lo stesso nome in tutte le righe generate,
dal / al / prezzo

per cui mi da errore nell' inserimento nel database dei dati,
se listo una sola riga funziona, con 2 o più no.

dovrei fare in modo che faccia tipo un loop nell' inserimento dati?

<%' Recuperiamo i dati dal form
dim strDal
strDal = request.form("dal")
dim strAl
strAl = request.form("al")
dim strPrezzo
strPrezzo = request.form("prezzo")
' Verifichiamo che i campi non siano vuoti...
If strDal <> "" and strAl <> "" and strPrezzo <> "" Then
' Se i campi NON sono vuoti procediamo...
myDB = "database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)

' Lavoriamo sul Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "settimane", conn, 3, 3
rs.addnew
rs("dal") = strDal
rs("al") = strAl
rs("prezzo") = strPrezzo
rs.update

' Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

' Risposta a video di conferma
response.write "<center>Scrittura avvenuta correttamente!</center>"
' Se i campi SONO vuoti...
Else
response.write "<center><b>Errore!</b> Nessun campo può essere vuoto!</center>"
' Chiudiamo la condizione IF
End If
%>

Gabriele.... ;-)