Inscription
<% NomLecteur = Request.Form("Nom")
strCnn = "driver={SQL Server};server=tpweb.info.prive;uid=etd;pwd=etd;database=BibliSQL"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strCnn
ReqC = "select * from lecteur where nom = '"&NomLecteur&"'"
Set RC = Conn.Execute(ReqC)
if RC.eof then
Req = "Insert into Lecteur (nom) values ('"&NomLecteur&"')"
Conn.Execute(Req)
Conn.close%>
Le lecteur de nom <%=NomLecteur%> a bien été enregistré dans la base grâce à la
requête
a<%=Req%>b
<%else%>
Inscription impossible : un lecteur ayant mêmes nom et prénom est déjà enregistré dans la base
<%end if%>