Allix
Bonjour à tous bonne année et bonne santé.
Je voudrais savoir comment faire une function qui dis si l'id_cast existe tu enregistre pas et s'il existe pas tu l'enregistre, la recherche du recordset fonctionne bien, et l'enregistrement aussi me manque la Function. merci d'avance :
<%
Dim Recordset1
Dim vids
vids=""
if(Request.QueryString("id_cast") <> "") then vids = Request.QueryString("id_cast")
'recuperation
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id_cast") <> "") Then
Recordset1__MMColParam = Request.QueryString("id_cast")
End If
%>
<%
'-------Recherche---------------------------------------------
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_formation_STRING
Recordset1.Source = "SELECT * FROM etat_formation WHERE id_cast = " + vids + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Do While Not Recordset1.EOF
Response.Write(Recordset1("id_cast"))
compteur=compteur+1
Recordset1.MoveNext
Loop
Recordset1.Close()
Set Recordset1 = Nothing
'-----------------------------------------------
'-------------enregistrement----------------------
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_formation_STRING
Command1.CommandText = "INSERT INTO etat_formation (id_cast) VALUES ('" + vids + "') "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
' --------------------------------------
Amitiés. :-)