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
%>
A voir également:
- Asp et Access 200
- Acer quick access ✓ - Forum PC portable
- Acer quick access - Forum Logiciels
- Objectif 55 200 quelle utilisation - Forum Photo numérique
- Access runtime ✓ - Forum Access
- 200 mo ✓ - Forum Mobile