Bonjour.
Je voudrais declencher un script serveur par le biais d une msgbox en VBscript qui permet la confirmation ou non de l effacement d´une table de ma base. Je sais qu a l´inverse il est possible de declencher du vbscript a l aide d un script serveur en l imbriquant dans le scipt serveur
J ai donc proceder de la meme maniere
< %if choix="suppadd" then%>
< SCRIPT LANGUAGE="VBScript">
dim conf
conf = MsgBox("Etes vous sur de vouloir supprimer toutes les adresses?" , + vbyesno, " Newsletter")
if conf=6 then
< %dim conn
Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver ( *.mdb)}; " & " DBQ=" & Server.MapPath(".") & " /newsletter.mdb"
conn.Open connstring
dim rs_1
Set rs_1 = Server.CreateObject( " ADODB.Recordset" )
rs_1.open"select * from newsletter", conn
if rs_1.eof = false then
sql="delete from newsletter"
conn.execute sql
end if%>
end if
< /SCRIPT>
< %end if%>
Le probleme c est que quelque soit le choix que je fais dans la fenetre ca lance le script serveur. quelqu un peut il m eclairer. J ai aussi essayé en bornant le script client mais ca ne marche pas. UIII je sais je suis nul