%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Volley-Ball Club Tihange - Huy
 |
 |
|
<%
IdMatch = Request.QueryString("idM")
idCat = Request.QueryString("idCat")
Set rsdelJMatch = Server.CreateObject("ADODB.Recordset")
sqldelJMatch = "DELETE FROM relmatchjoueur_club WHERE IdM=" & IdMatch
response.Write(sqldelJMatch)
openrs rsdelJMatch, sqldelJMatch
Set rsDelMatch = Server.CreateObject("ADODB.Recordset")
sqlDelMatch = "DELETE FROM matchs WHERE id=" & IdMatch
response.Write(sqlDelMatch)
openrs rsDelMatch, sqlDelMatch
If Request.QueryString("location") = "allteam" then
Response.Redirect("matchsclub.asp")
else
Response.Redirect("agendaclub.asp?idCat=" & idCat)
end if
%>
|