<%
Dim conn
Dim rs
Dim sql
Dim connstring
Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/./admin/ems07.mdb"
conn.Open connstring
sql = "SELECT * from inscriptions "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if Request("formRempli") = 1 then
rs.addnew
rs.fields("societe")=trim(request.form("societe"))
rs.fields("nom")=trim(request.form("nom"))
rs.fields("prenom")=trim(request.form("prenom"))
rs.fields("service")=trim(request.form("service"))
rs.fields("adresse1")=trim(request.form("adresse1"))
rs.fields("adresse2")=trim(request.form("adresse2"))
rs.fields("cp")=trim(request.form("cp"))
rs.fields("ville")=trim(request.form("ville"))
rs.fields("pays")=trim(request.form("pays"))
rs.fields("tel")=trim(request.form("tel"))
rs.fields("fax")=trim(request.form("fax"))
rs.fields("email")=trim(request.form("email"))
rs.fields("genre")=trim(request.form("genre"))
rs.fields("commentaires")=trim(request.form("commentaires"))
rs.fields("societeFact")=trim(request.form("societeFact"))
rs.fields("nomFact")=trim(request.form("nomFact"))
rs.fields("prenomFact")=trim(request.form("prenomFact"))
rs.fields("serviceFact")=trim(request.form("serviceFact"))
rs.fields("adresse1Fact")=trim(request.form("adresse1Fact"))
rs.fields("adresse2Fact")=trim(request.form("adresse2Fact"))
rs.fields("cpFact")=trim(request.form("cpFact"))
rs.fields("villeFact")=trim(request.form("villeFact"))
rs.fields("paysFact")=trim(request.form("paysFact"))
rs.fields("telFact")=trim(request.form("telFact"))
rs.fields("faxFact")=trim(request.form("faxFact"))
rs.fields("emailFact")=trim(request.form("emailFact"))
rs.fields("genreFact")=trim(request.form("genreFact"))
rs.fields("membre")=trim(request.form("membre"))
rs.fields("repasGala")=trim(request.form("repasGala"))
rs.update
rs.close
set rs=nothing
response.redirect ("inscriptionRecapems.asp")
end if
%>
EMSLIBS 2007 - Formulaire Inscription
Formulaire Inscription
Votre inscription sera définitive dès l'envoi
d'un bon de commande ou du règlement correspondant aux éléments renseignés dans
le formulaire.
Si vous le désirez vous pouvez
télécharger ce formulaire et nous le retourner rempli
par télécopie au +33 (0)4-76-52-24-50, ou par email à
contact@sep07.com, ou par courrier à :
EURADIF - 52 chemin des jacinthes - 38330 BIVIERS.