Salve a tutti, per le necessità della vaccinazione nel mio comune mi sto impegnando nel realizzare un piccolo sistema di prenotazioni. Attualmente ho realizzato, un pò modificando mie cose un pò modificando script scaricabili, un sistema che in quattro passaggi parte da un form in cui inserire dati anagrafici (alcuni obbligatori e non ripetibili se già registrati), un pagina in cui prendere appuntamento per giorno fascia oraria e ora, una pagina di riepilogo e una di elaborazione dati e scrittura nel database.<br>Il sistema funziona però vorrei che, in fase di prenotazione appuntamento, l'utente possa scegliere fra, ad esempio, 100 posti per ogni ora e che questi vadano via via diminuendo ad ogni prenotazione, fino ad arrivare fino a 0 e che quindi per quell'ora non ci sia più disponibilità (credo qualcosa del genere di un articolo da magazzino che quando termina come scorta non è più ordinabile). Attualmente la scelta dell'appuntamento avviene tramite un script tipo regione-provincia-comune che preleva dati da un apposito database. Un sistema di invio email personalizzato rilascerà ricevuta dell'avvenuta prenotazione con successo (ma ancora non sono riuscito in ciò).<br>Qualcuno sa dirmi se è possibile realizzare la mia idea e soprattutto, in tal caso, darmi utili consigli o link a qualcosa del genere da modificare ?
Questo è il mio sito: http://prenotazionevaccinocovidmonre....com/index.asp
Questa è la pagina "rec_dati.asp" che elabora i dati del form e invia al dabatase:
codice:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("../database/pren_vacc.mdb")
DIM ncf
DIM cf
cognome=request.form("cognome")
nome=request.form("nome")
data_nascita=request.form("data_nascita")
indirizzo_residenza=request.form("indirizzo_residenza")
citta=request.form("citta")
recapito_telefonico=request.form("recapito_telefonico")
email=request.form("email")
data_primo_vacc=request.form("data_primo_vacc")
luogo_primo_vacc=request.form("luogo_primo_vacc")
tipo_vacc=request.form("tipo_vacc")
nuovo_vacc=request.form("nuovo_vacc")
patologia=request.form("patologia")
fondo=request.form("fondo")
sezione=request.form("sezione")
serie=request.form("serie")
ncf = request.form("cf")
Dim objRec
Set objRec = Server.CreateObject("ADODB.Recordset")
sql="select * from pren_vacc where cf = '"&ncf&"'"
objRec.Open sql, objConn, 3, 3
if not objRec.eof then
response.write("<div align='center'> Questo codice fiscale è già registrato. Registrazione fallita. <a href='http://prenotazionevaccinocovidmonreale.somee.com/index.asp'> <br>Clicca qui per effettuare una nuova registrazione</a></div><br>")
objRec.Close
Set objRec = Nothing
objConn.Close
Set objConn = Nothing
else
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "pren_vacc", objConn, 3,3
RS.AddNew
rs("cognome")=cognome
rs("nome")= nome
rs("data_nascita")=data_nascita
rs("indirizzo_residenza")=indirizzo_residenza
rs("citta")=citta
rs("recapito_telefonico")=recapito_telefonico
rs("email")=email
rs("data_primo_vacc")=data_primo_vacc
rs("luogo_primo_vacc")=luogo_primo_vacc
rs("tipo_vacc")=tipo_vacc
rs("nuovo_vacc")=nuovo_vacc
rs("patologia")=patologia
rs("cf")=ncf
rs("fondo")=fondo
rs("sezione")=sezione
rs("serie")=serie
response.write("Registrazione avvenuta con successo. <a href='http://prenotazionevaccinocovidmonreale.somee.com/index.asp'> <br>Clicca qui per effettuare una nuova registrazione</a></div><br>")
rs.update
rs.Close
objConn.Close
end if
%>