Poser une question

a marche pas

Mon code ne marche pas... pourquoi ?
"Fin d'instruction attendue"

<%
deb=Request.Form("date_debut")
client=Request.Form("Nom_Client")
heureD=Request.Form("Heure_debut")
minD=Request.Form("Minutes_debut")
fin=Request.Form("Date_fin_absence")
heureF=Request.Form("Heure_fin")
minF= Request.Form("Minutes_fin")
emp=Request.Querystring("emp")

heureD=Cint(heureD)
minD=Cint(minD)
heureF=Cint(heureF)
minF=Cint(minF)
deb=Cint(Date(deb))
fin=Cint(Date(fin))
heureDeb=(heureD&":"&minD)
heureFin=(heureF&":"&minF)
client=Replace(client,"'","''")%>

<%DSN_BASE = "DBQ=" & Server.Mappath("TW.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set Rs = Server.CreateObject("ADODB.Recordset")%>
<% RequeteSQL = "Insert Into Indisponibility (IndispoStartDate, IndispoStartHour, IndispoFinishDate, IndispoFinishHour, Indispo_EmployeesID) Values ('"&deb&"','"&heureDeb&"','"&fin&"','"&heureFin&"','"&emp&"')"
Rs.Open RequeteSQL , Conn%>
<%
Rs.CLose
Set Rs = Nothing
Conn.Close
Set Conn = Nothing%>

Réponses

Re: Insert Into qui ne marche pas  Oznog 22/10/2002