ma certo, eccolo(è un gran macello)
codice:
<%
if request("logout")="yes" then
session("user")=""
response.redirect("default.asp")
Dim userid
end if
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.MapPath("databeis/provaci.mdb")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Tracciabilitá</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<link href="css/style.css" type="text/css" rel="stylesheet" media="screen" />
</head>
<body>
<div style="text-align:center">
<div id="main">
<%if session("user")="" then
if request("accedi")<>"" then
user=request("user")
pwd=request("pwd")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT COUNT(*) FROM login WHERE user='"&user&"' AND pwd='"&pwd&"'"
rs.Open SQL , StrConnect, 3, 3
if rs.Fields(0)=0 then
msgerror="Username o passoword errati"
else
Set rs = Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM login WHERE user='"&user&"' AND pwd='"&pwd&"'"
rs.Open SQL , StrConnect, 3, 3
session("user")=rs("iduser")
response.Redirect("default.asp?menu=1")
rs.Close
end if
end if%>
<div id="login">
<form action="default.asp" name="login" method="post">
<div id="riga">Inserire username e password esercente:</div>
username: <input type="text" name="user" value="" class="allinea"/>
password: <input type="password" name="pwd" class="allinea"/>
<div align="center"><input type="submit" value="accedi" name="accedi" style="border: 1px solid #000; background: #6600FF; color:#FFFFFF; font-size:10px; font-weight:bold"/></div>
<%if msgerror<>"" then%>
<span style="color:#FF5555"><%=msgerror%></span><%end if%>
</form>
</div>
</p>
<%else%>
<div id="container">
<div id="banner"><%= Date() %>
<% Dim ora
ora = Hour (Now)
If ora < 12 Then
%>Buongiorno!<%
ElseIf 12 < ora < 17.30 Then
%>Buon Pomeriggio!<%
ElseIf 17.30 < ora < 21 Then
%>Buona Sera!<%
Else
%>Buona Notte!<%
End If
%>
<%
Dim SQLCiao
SQLCiao= "SELECT * FROM login WHERE user='" & session("user") & "'"
Set rsCiao = Server.CreateObject("ADODB.Recordset")
rsCiao.Open SQLCiao, StrConnect, 3, 3
response.write SQL: response.end
%>
Benvenuto <% =rsCiao("cognome") %> nel sistema di controllo assistenze.
</div>
<div id="wrapper">
<div id="menu">Ufficio
<ul>
<li class="riga">HOME
<li class="primo">Operazioni sugli utenti
<li class="riga">Crea Nuova scheda
<li class="riga">Ricerca Cognome Utente
<li class="riga">Ricerca Codice Utente
<li class="riga">Elenco schede Utenti
[/list]
<ul>
<li class="primo">Operazioni sui contatti
<% Set rsCountAp = Server.CreateObject("ADODB.Recordset")
SQLCountAp = "SELECT a.idassistito,(SELECT COUNT(idintervento) FROM interventi WHERE chiuso = 'Aperto') AS NumInterventiAp FROM interventi i, anagrafica a "
rsCountAp.Open SQLCountAp, StrConnect, 3,3 %>
<li class="riga">)">Contatti da monitorare(<%=rsCountAp("NumInterventiAp")%>)
<% Set rsCountChi = Server.CreateObject("ADODB.Recordset")
SQLCountChi = "SELECT a.idassistito,(SELECT COUNT(idintervento) FROM interventi WHERE chiuso = 'Chiuso') AS NumInterventiChi FROM interventi i, anagrafica a "
rsCountChi.Open SQLCountChi, StrConnect, 3,3 %>
<li class="riga">)">Contatti conclusi(<%=rsCountChi("NumInterventiChi")%>)
[/list]
<ul>
<li class="primo">Utilità di sistema
<li class="riga"><%if session("user")<>"" then%>Esci<%end if%>
[/list]
</div>
<%
Select Case Request.Querystring("menu")
Case "1" %>
<% End Select %>
</div>
<div id="footer">
Copyright 2005 - Comune di Forlì <%if session("user")<>"" then%>- Disconnetti utente<%end if%>
</div>
</div>
<%end if%>
</div>
</div>
</body>
</html>
Rispondi quotando
