Asp et Access 200
Dan
-
moéda -
moéda -
Salut!
Dans le cadre d'une gestione de cv en ligne j'essaye d'utiliser Asp
Pour ajouter des lignes à ma table Access via une page web sur Pws j'utilise un formulaire Html avec du code Asp
Lorsque je valide mon formulaire tout se passe bien aucun mess d'erreur mais, car il y en a un
aucune ligne n'est ajouté à la table
Vous avez une idée ???
Voilà le code Asp avant le Head de la page
Merci de votre aide
<%Ctrl = Left(UCase(Request("Valider")),5)
If Ctrl = "VALID" Then
fnom=Request.form("nom")
fprenom=Request.Form("prenom")
fnaiss=Request.Form("naissance")
frue1=Request.Form("rue1")
frue2=Request.Form("rue2")
fcp=Request.Form("cp")
fville=Request.Form("ville")
fexperience=Request.Form("experience")
fmail=Request.Form("mail")
fserveur=Request.Form("serveur")
fpage=Request.Form("page")
fcomment=Request.Form("comment")
fmaxime=Request.Form("maxime")
fclasse=Request.Form("classe")
fnumero=Cint(fnumero)
if fnumero <>0 then
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Data Source=C:\Inetpub\webpub\cv.mdb"
SQLQuery = "Insert Into Identite (ID_Nom, ID_Prenom, ID_Rue1, ID_Rue2, ID_Cp, ID_Ville, ID_Experience, ID_Mail, ID_ServeurPers, ID_WebPers, ID_Commentaire, ID_Maxime)"
SQLQuery = SQLQuery &"Values ('" &fnom& "','" &fprenom& "','" &frue1& "','" &frue2& "','" &fcp& "','" &fville& "','" &fexperience& "','" &fmail& "','" &fserveur& "','" &fpage& "','" &fcomment& "','" &fmaxime& "')"
OBJdbConnection.Execute SQLQuery
end if
end if
%>
Dans le cadre d'une gestione de cv en ligne j'essaye d'utiliser Asp
Pour ajouter des lignes à ma table Access via une page web sur Pws j'utilise un formulaire Html avec du code Asp
Lorsque je valide mon formulaire tout se passe bien aucun mess d'erreur mais, car il y en a un
aucune ligne n'est ajouté à la table
Vous avez une idée ???
Voilà le code Asp avant le Head de la page
Merci de votre aide
<%Ctrl = Left(UCase(Request("Valider")),5)
If Ctrl = "VALID" Then
fnom=Request.form("nom")
fprenom=Request.Form("prenom")
fnaiss=Request.Form("naissance")
frue1=Request.Form("rue1")
frue2=Request.Form("rue2")
fcp=Request.Form("cp")
fville=Request.Form("ville")
fexperience=Request.Form("experience")
fmail=Request.Form("mail")
fserveur=Request.Form("serveur")
fpage=Request.Form("page")
fcomment=Request.Form("comment")
fmaxime=Request.Form("maxime")
fclasse=Request.Form("classe")
fnumero=Cint(fnumero)
if fnumero <>0 then
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Data Source=C:\Inetpub\webpub\cv.mdb"
SQLQuery = "Insert Into Identite (ID_Nom, ID_Prenom, ID_Rue1, ID_Rue2, ID_Cp, ID_Ville, ID_Experience, ID_Mail, ID_ServeurPers, ID_WebPers, ID_Commentaire, ID_Maxime)"
SQLQuery = SQLQuery &"Values ('" &fnom& "','" &fprenom& "','" &frue1& "','" &frue2& "','" &fcp& "','" &fville& "','" &fexperience& "','" &fmail& "','" &fserveur& "','" &fpage& "','" &fcomment& "','" &fmaxime& "')"
OBJdbConnection.Execute SQLQuery
end if
end if
%>