codice:
If Session("status") <> "login" Then
response.redirect "software.asp"
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
End If
%>
<%
' stringa di conn
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(""& session("MM_Percorso") &"")
sqlSocieta = "SELECT Denominazione FROM T_Societa"
Set RSSocieta=Server.CreateObject("ADODB.Recordset")
RSSocieta.Open sqlSocieta,strConn,1,3
'CASO DI INSERT LA PRIMA VOLTA
if request.Form("Insert") = "CARICA" then
Check = request.Form("First") ' VERIFICO CHE SIA NELLA FASE DOPO IL PRIMO INSERT
Set cn1 = Server.CreateObject("ADODB.Connection")
cn1.Open strConn
Dat = request.Form("DataItalia")
Giorno = Mid(Dat, 1, 2)
Mese = Mid(Dat, 4, 2)
Anno = Mid(Dat, 7, 4)
DataAmerica = Mese&"/"&Giorno&"/"&Anno
no = replace(request.form("Nome"), "'", "''")
co = Replace(Request.Form("Cognome"), "'", "''")
Session("categoria")
Session("dove1") = replace(Session("dove"),"'","''")
Session("quando")
Session("Casa")
Session("dovepartita1") = replace(Session("dovepartita"),"'","''")
Session("quandopartita")
Session("chi1") = Replace(Session("chi"), "'", "''")
Session("Acco1") = Replace(Session("Acco"), "'", "''")
Session("Uff1") = Replace(Session("Uff"), "'", "''")
'Session("Med1") = Replace(Session("Med"), "'", "''")
Session("Mas1") = Replace(Session("Mas"), "'", "''")
Session("All1") = Replace(Session("All"), "'", "''")
Session("Sezione")
if request.Form("Motivo") <> "" then
motivo = request.Form("Motivo")
else
motivo = " "
end if
if TRIM(request.Form("Maglia")) <> "" OR isnull(TRIM(request.Form("Maglia")))=false OR TRIM(request.Form("Maglia")) <> " " then
maglia = request.Form("Maglia")
else
maglia = 0
end if
NostroTeam = RSSocieta("Denominazione")
'CERCO SE LA PARTITA E' GIA' STATA CARICATE DAL MENU' PARTITE
sqlPartite = "SELECT * FROM [T_Campionato"&session("StagioneAttuale")&"] WHERE Categoria ='" & Session("categoria") & "' and Data_Partita = #" & DataAmerica & "#"
Set RSPartite=Server.CreateObject("ADODB.Recordset")
RSPartite.Open sqlPartite,strConn,1,3
if RSPartite.eof then
' INIZIO INSERT IN TABELLA CAMPIONATO
if Session("Casa") = "1" then
Incontro = NostroTeam &" - "& Session("chi1")
sqlCampionato = "INSERT INTO T_Campionato"&session("StagioneAttuale")&" ( Categoria, Partita, Data_Partita, Luogo, Sezione) " &_
"VALUES ( '" & Session("categoria") & "','" & Incontro & "',#" & DataAmerica & "#,' CASA ','" & Session("Sezione") & "')"
cn1.Execute sqlCampionato
else
Incontro = Session("chi1") &" - "& NostroTeam
sqlCampionato = "INSERT INTO T_Campionato"&session("StagioneAttuale")&" ( Categoria, Partita, Data_Partita, Luogo, Sezione) " &_
"VALUES ( '" & Session("categoria") & "','" & Incontro & "',#" & DataAmerica & "#,' TRASFERTA ','" & Session("Sezione") & "')"
cn1.Execute sqlCampionato
end if
' FINE INSERT IN TABELLA CAMPIONATO
end if
DivisioneNome = split(no,",")
DivisioneCognome = split(co,",")
DivisioneMotivo = split(motivo,",")
DivisioneMaglia = split(maglia,",")
Ident = replace(request.Form("Id")," ","")
Iden = split(Ident,",")
Numero = left(request.Form("serie"),instr(request.Form("serie"),",")-1)
sql = "SELECT * FROM [T_Convocazioni"&session("StagioneAttuale")&"]"
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open sql,strConn,1,3
for i = 0 to Numero - 1
if request.Form("RadioGroup" & Numero) = "0" then
Convocato = "0"
Cap = "0"
Vcap = "0"
sql0 = "INSERT INTO T_Convocazioni"&session("StagioneAttuale")&" ( Convocato, Identificatore, Nome, Cognome, Categoria, Maglia, Avversario, LuogoRitrovo, DataConvocazione, LuogoPartita, OraRitrovo, OraPartita, Accompagnatore, Ufficiale, Massaggiatore, Allenatore, Motivo, Sezione, Casa, Capitan, VCap ) " &_
"VALUES ( '" & trim(Convocato) & "','" & Iden(i) & "','" & trim(DivisioneNome(i)) & "','" & trim(DivisioneCognome(i)) & "','" & Session("categoria") & "',0,'" & Session("chi1") & "','" & Session("dove1") & "',#" & DataAmerica & "#,'" & Session("dovepartita1") & "','" & Session("quando") & "','" & Session("quandopartita") & "','" & Session("Acco1") & "','" & Session("Uff1") & "','" & Session("Mas1") & "','" & Session("All1") & "','" & trim(DivisioneMotivo(i)) & "','" & Session("Sezione") & "','" & Session("Casa") & "','" & Cap & "','" & VCap & "')"
cn1.Execute sql0
elseif request.Form("RadioGroup" & Numero) = "1" then
Convocato = "1"
if request.Form("Cap" & Numero) = "1" then
Cap = "1"
else
Cap = "0"
end if
if request.Form("VCap" & Numero) = "1" then
VCap = "1"
else
VCap = "0"
end if
sql1 = "INSERT INTO T_Convocazioni"&session("StagioneAttuale")&" ( Convocato, Identificatore, Nome, Cognome, Categoria, Maglia, Avversario, LuogoRitrovo, DataConvocazione, LuogoPartita, OraRitrovo, OraPartita, Accompagnatore, Ufficiale, Massaggiatore, Allenatore, Motivo, Sezione, Casa, Capitan, VCap ) " &_
"VALUES ( '" & trim(Convocato) & "','" & Iden(i) & "','" & trim(DivisioneNome(i)) & "','" & trim(DivisioneCognome(i)) & "','" & Session("categoria") & "'," & trim(DivisioneMaglia(i)) & ",'" & Session("chi1") & "','" & Session("dove1") & "',#" & DataAmerica & "#,'" & Session("dovepartita1") & "','" & Session("quando") & "','" & Session("quandopartita") & "','" & Session("Acco1") & "','" & Session("Uff1") & "','" & Session("Mas1") & "','" & Session("All1") & "','" & trim(DivisioneMotivo(i)) & "','" & Session("Sezione") & "','" & Session("Casa") & "','" & Cap & "','" & VCap & "')"
cn1.Execute sql1
end if
Numero = Numero - 1
next
RS.Close
Set RS=Nothing
Response.Redirect("convocazioni2.asp?Ca=" & Session("categoria") & "&Ch=" & Session("chi") & "&D=" & Session("dove") & "&DP=" & Session("dovepartita") & "&Q=" & Session("quando") & "&QP=" & Session("quandopartita") & "&Da=" & Dat & "&Ac=" & Session("Acco") & "&Uf=" & Session("Uff") & "&Ma=" & Session("Mas") & "&Al=" & Session("All") & "&Se=" & Session("Sezione") & "&Cas=" & Session("Casa"))
end if
%>
Permessi di invio
Rispondi quotando