<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>AGGIUNGI IL TUO COMPLENANNO</title>
<style type="text/css">
body {
background-color: green;
background-image: url("bg.png");
background-position: 0 0;
background-size: 100% auto;
color: yellow;
font-family: sans-serif;
font-size: 20px;
text-shadow: 2px 2px 4px black;
}
.form {
background-color: green;
border-radius: 10px 10px 10px 10px;
-webkit-border-radius:10px 10px 10px 10px;
-moz-border-radius:10px 10px 10px 10px;
height: 460px;
left: 50%;
margin-left: -325px;
margin-top: -230px;
padding: 10px;
position: absolute;
top: 50%;
width: 650px;
}
input {
background-image: url("bginput.png");
background-size: 6% auto;
border: 2px solid black;
height: 25px;
margin-bottom: 4px;
margin-top: 4px;
border-radius: 20px 20px 20px 20px;
-webkit-border-radius:20px 2px 20px 20px;
-moz-border-radius:10px 20px 20px 20px;
}
a:link { color: yellow;}
a:hover { color: yellow;}
a:visited { color: yellow;}
</style>
</head>
<body topmargin="0" leftmargin="0">
<%
' espressione regolare per controllo data
' pattern nel formato gg/mm/aaaa
Function RegExpTest(strng)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "^[0-9]{2}[\/][0-9]{2}[\/][0-9]{4}$"
RegExpTest = regEx.Test(strng)
End Function
dim strnome
strnome = request.form("nome")
dim strcognome
strcognome = request.form("cognome")
dim strdata
strdata = request.form("data")
' replace apice per nome e cognome
' replace caratteri < e >
strnome=replace(strnome,"'","''")
strnome=replace(strnome,"<","<")
strnome=replace(strnome,">",">")
strcognome=replace(strcognome,"'","''")
strcognome=replace(strcognome,"<","<")
strcognome=replace(strcognome,">",">")
' controllo sul campo nome se vuoto
' o primo carattere uno spazio vuoto
if request("nome") = "" or MID(request("nome"),1,1) = " " then
response.write"<div class=""form""><div align=""center"" style=""margin-top: 10px""><font face=""Verdana"" size=""5""><b>Inserire il Nome!<b/></font><br><br><br>"
response.write"<a href=""javascript:;"" onclick=""javascript:history.back(0)"">Torna indietro e correggi</a><br><br><br><br>"
response.write"<img src=""logo.png"" width=""639"" height=""229"" border=""0""><br></div></div>"& vbCRLF &" "& vbCRLF &""
response.write"</body>"& vbCRLF &"</html>"
response.end
end if
' controllo sul campo nome
' minimo tre caratteri
if Len(request("nome")) < 3 then
response.write"<div class=""form""><div align=""center"" style=""margin-top: 10px""><font face=""Verdana"" size=""5""><b>Minimo 3 caratteri per il Nome!<b/></font><br><br><br>"
response.write"<a href=""javascript:;"" onclick=""javascript:history.back(0)"">Torna indietro e correggi</a><br><br><br><br>"
response.write"<img src=""logo.png"" width=""639"" height=""229"" border=""0""><br></div></div>"& vbCRLF &" "& vbCRLF &""
response.write"</body>"& vbCRLF &"</html>"
response.end
end if
' inserimento nome con la prima lettera
' inserita automaticamente in maiuscolo nel db
' tutti gli altri caratteri rimangono minuscoli
strnome = UCase(Left(strnome,1)) & LCase(Right(strnome, Len(strnome) - 1))
' controllo sul campo cognome se vuoto
' o primo carattere uno spazio vuoto
if request("cognome") = "" or MID(request("cognome"),1,1) = " " then
response.write"<div class=""form""><div align=""center"" style=""margin-top: 10px""><font face=""Verdana"" size=""5""><b>Inserire il Cognome!<b/></font><br><br><br>"
response.write"<a href=""javascript:;"" onclick=""javascript:history.back(0)"">Torna indietro e correggi</a><br><br><br><br>"
response.write"<img src=""logo.png"" width=""639"" height=""229"" border=""0""><br></div></div>"& vbCRLF &" "& vbCRLF &""
response.write"</body>"& vbCRLF &"</html>"
response.end
end if
' controllo sul campo cognome
' minimo tre caratteri
if Len(request("cognome")) < 3 then
response.write"<div class=""form""><div align=""center"" style=""margin-top: 10px""><font face=""Verdana"" size=""5""><b>Minimo 3 caratteri per il Cognome!<b/></font><br><br><br>"
response.write"<a href=""javascript:;"" onclick=""javascript:history.back(0)"">Torna indietro e correggi</a><br><br><br><br>"
response.write"<img src=""logo.png"" width=""639"" height=""229"" border=""0""><br></div></div>"& vbCRLF &" "& vbCRLF &""
response.write"</body>"& vbCRLF &"</html>"
response.end
end if
' inserimento cognome con la prima lettera
' inserita automaticamente in maiuscolo nel db
' tutti gli altri caratteri rimangono minuscoli
strcognome = UCase(Left(strcognome,1)) & LCase(Right(strcognome, Len(strcognome) - 1))
' controllo sul campo data se vuoto
if request("data") = "" then
response.write"<div class=""form""><div align=""center"" style=""margin-top: 10px""><font face=""Verdana"" size=""5""><b>Inserire la data nel formato gg/mm/aaaa!<b/></font><br><br><br>"
response.write"<a href=""javascript:;"" onclick=""javascript:history.back(0)"">Torna indietro e correggi</a><br><br><br><br>"
response.write"<img src=""logo.png"" width=""639"" height=""229"" border=""0""><br></div></div>"& vbCRLF &" "& vbCRLF &""
response.write"</body>"& vbCRLF &"</html>"
response.end
end if
' controllo i che i valori inseriti
' siano conformi con la regexp
' formato gg/mm/aaaa
data = request.form("data")
if not(RegExpTest(data)) then
response.write"<div class=""form""><div align=""center"" style=""margin-top: 10px""><font face=""Verdana"" size=""5""><b>Formato Data Errato!<b/></font><br><br><br>"
response.write"<a href=""javascript:;"" onclick=""javascript:history.back(0)"">Torna indietro e correggi</a><br><br><br><br>"
response.write"<img src=""logo.png"" width=""639"" height=""229"" border=""0""><br></div></div>"& vbCRLF &" "& vbCRLF &""
response.write"</body>"& vbCRLF &"</html>"
response.end
end if
Set conn=Server.CreateObject("ADODB.Connection")
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fondazione.mdb")
sql = "SELECT * FROM compleanno"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.addnew
rs(1) = strnome
rs(2) = strcognome
rs(3) = strdata
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
<div class="form">
<img src="logo.png">
<div align="center" style="margin-top: 41px;">
<span style="font-size: 30px;">Modulo compilato correttamente.</span><br><br>
<a style="font-size: 20px;" href="http://www.oratoriopandino.it">Vai all'Home</a><br>
<a style="font-size:20px;" href="addcompl.asp"> Aggiungi un altro compleanno</a>
</div></div>
</body>
</html>