Bonjour !

Voila, je viens de créer un script de news assez simple (enfin, ça devrait l'etre ) mais un problème survient

Voici mes 2 pages de code :

<%

' ----------------------------------------------------------
' --------------------- VARIABLES --------------------------
' ----------------------------------------------------------

Dim strSQL
Dim strSQL1
Dim strSQL2
Dim strSQL3
Dim DSN_BASE
Dim database
Dim dateActu
Dim titreActu
Dim nomDoc
Dim imageActu
Dim articleOk
Dim supprimerActu


'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

function ajout(SQL)
SQL_bis = replace(SQL,"0","zero")
ajout = SQL_bis
end function

function dateToSQL(strDate)
if isDate(strDate) then
dateToSQL = Year(strDate) & "-" & Right("0"& Month(strDate),2) & "-" & Day(strDate)
else
dateToSQL = "0000-00-00"
end if
end function

'On crée une variable pour éviter de remettre Request.Form("var")
dateActu = dateToSQL(date())
titreActu = slash_cotes(Request.Form("titreActu"))
nomDoc = slash_cotes(Request.Form("nomDoc"))
imageActu = slash_cotes(Request.Form("imageActu"))
articleOk = 1
supprimerActu = Request.QueryString("supprimerActu")
numActu = ajout(Request.Form("numActu"))


'On crée les variables des requêtes SQL
strSQL = "INSERT INTO actub VALUES ('""', '"&dateActu&"','"&titreActu&"','"&nomDoc&"','"&imageActu&"','"&articleOk&"')"
strSQL1 = "UPDATE actub SET dateActu='"&dateActu&"',titreActu='"&titreActu&"',nomDoc='"&nomDoc&"',imageActu='"&imageActu&"' WHERE numActu='"&Request.Form("numActu")&"'"
strSQL2 = "DELETE FROM actub WHERE numActu='"&Request.QueryString("supprimerActu")&"'"
strSQL3 = "SELECT * FROM actub ORDER BY numActu DESC LIMIT 0, 10"

'variables de connexion
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

' ---------------------------------------------------------------
' ---------------------- FIN VARIABLES --------------------------
' ---------------------------------------------------------------
%>

<h2> <a href="actu.asp" title="Créer une actu"> Ajouter une actu </a> </h2>

<%
'On se connecte à la base
Set ConnActu = Server.CreateObject("ADODB.Connection")
ConnActu.Open DSN_BASE


'--------------------------------------------------------------------------
'------VERIF 2 : EST-CE QU ON VEUT POSTER OU MODIFIER UNE ACTU ???---------
'--------------------------------------------------------------------------

'Création des recordSet
Set RsInsertActu = Server.CreateObject("ADODB.Recordset")
Set RsChangeActu = Server.CreateObject("ADODB.Recordset")

'On se connecte à la base
Set ConnActu = Server.CreateObject("ADODB.Connection")
ConnActu.Open DSN_BASE

if not isnull(Request.Form("dateActu")) AND not isnull (Request.Form("titreActu")) AND not isnull (Request.Form("nomDoc"))AND not isnull(Request.Form("imageActu")) then
'On vérifie si c'est une modification de news ou non
if Request.Form("numActu") = 0 then
'Ce n'est pas une modification de l'Actu
RsInsertActu.Open strSQL, ConnActu

else'C'est une modification de l'Actu

'On execute la requete placée dans la variable strSQL1
RsChangeActu.Open strSQL1, ConnActu
end if
end if

%>

<table border="1px">
<tr>
<th> Modifier </th>
<th> Num Actu </th>
<th> Date Actu </th>
<th> Titre Actu </th>
<th> Nom Doc </th>
<th> Image Actu </th>
</tr>

<%
'Création du Recordset
Set RsRecupBase = Server.CreateObject("ADODB.Recordset")

'Ouverture Recordset
RsRecupBase.Open strSQL3, ConnActu

'On vérifie si RsRecupBase est vide ou non
if RsRecupBase.EOF = False then

'On va au premier enregistrement
RsRecupBase.MoveFirst

'Boucle
Do while not RsRecupBase.EOF

%>

<tr>
<td> <a href="Actu.asp?modifierActu=<%=RsRecupBase("numActu")%>"> Modifier </a> </td>
<td> <%=RsRecupBase("numActu")%> </td>
<td> <%=RsRecupBase("dateActu")%> </td>
<td> <%=RsRecupBase("titreActu")%> </td>
<td> <%=RsRecupBase("nomDoc")%> </td>
<td> <%=RsRecupBase("imageActu")%> </td>
</tr>

<%
'Aller sur l'enregistrement suivant
RsRecupBase.MoveNext

'Fin de la boucle
loop
%>

</table>

<%
'Fin du if
End if

Response.Write(numactu)

'On ferme la connexion et le recordset et on efface leur contenu


ConnActu.Close
Set ConnActu = Nothing

%>

<p>
<a href="../index.asp" title="Retour à l'index"> Retour à l'index </a>
</p>

<%

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='"&Request.QueryString("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")




'si on demande de modifier l'actu
if not isnull(modifierActu) then

RsRecupMess.Open strSQL, ConnActu

if not RsRecupMess.eof then
'On récupère les informations dans des variables simples

titreActu = RsRecupMess("titreActu")
nomDoc = RsRecupMess("nomDoc")
imageActu = RsRecupMess("imageActu")
numActu =RsRecupMess("numActu")

end if

else 'On rédige une nouvelle news

titreActu = ""
nomDoc = ""
imageActu = ""
numActu = 0
end if

%>

<form action="Actu_liste.asp" method="post">
<p>Titre Actu : <input type="text" name="titreActu" value="<%=titreActu%>" /></p>
<p>Nom Doc : <input type="text" name="nomDoc" value="<%=nomDoc%>" /></p>
<p>Image Actu : <input type="text" name="imageActu" value="<%=imageActu%>" /></p>
<input type="hidden" name="numActu" value="<%=numActu%>" />
<p> <input type="submit" name="Envoyer" value="Envoyer" />
</form>

<%

ConnActu.Close
Set ConnActu = Nothing

%>
Mais voila, si je fais ajouter une actu, lorsque je clique sur envoyer, j'ai cette erreur là :

Erreur d'exécution Microsoft VBScript error '800a000d'

Type incompatible: '[string: ""]'

/intranet/Form_admin/Actu_liste.asp, line 99


la ligne 99 est celle ci : if Request.Form("numActu") = 0 then

celle ci se trouve dans la premiere parti que j'ai mise. La variable a laquelle elle fait référence est a la fin de la seconde page, juste avant le formulaire.

Voila, si quelqu'un peut m'aider ce serait sympa.

Merci d'avance