J'essaie de réaliser un projet en ASP et j'ai repris le code des cours PHP pour faire celui des news en ASP.
Voila, on me dis que j'ai une erreur à la ligne 56 :
<couleur nom="rouge">ADODB.Field error '800a0bcd'
BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.
/intranet/Form_admin/actu.asp, line 56 </couleur>
et cette ligne est celle ci : titreActu = RsRecupMess("titreActu")
Je ne comprend pas ce qu'il me demande, ça me met en rage, ça fé 1 journée complète que je suis dessus ! Aidez moi svp
Voici une grosse partie du code qui devrait aider. merci
<%
Dim strSQL Dim DSN_BASE Dim database Dim dateActu Dim titreActu Dim nomDoc Dim imageActu Dim articleOk Dim modifierActu
'On crée une fonction qui mets des slashs devant les cotes
function slash_cotes(SQL)
SQL_bis = replace(SQL,"'","\'")
slash_cotes = SQL_bis
end function
'On crée une variable pour éviter de remettre Request.Form("var")
dateActu = date()
titreActu = slash_cotes(Request.Form("titreActu"))
nomDoc = slash_cotes(Request.Form("nomDoc"))
imageActu = slash_cotes(Request.Form("imageActu"))
articleOk = 1
modifierActu = Request.QueryString("modifierActu")
'On crée la variable de la requête SQL
strSQL = "SELECT * FROM actub WHERE numActu='"&modifierActu&"'"
database = "intranet"
DSN_BASE = "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=" & database & ";Uid=root;Pwd=;" & _
"OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Set ConnActu = Server.CreateObject("ADODB.Connection")
ConnActu.Open DSN_BASE
Set RsRecupMess = Server.CreateObject("ADODB.Recordset")
RsRecupMess.Open strSQL, ConnActu
'si on demande de modifier l'actu
if not isnull(modifierActu) then
'On récupère les informations dans des variables simples
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.