Salut à tous, j'ai un listbox créé dynamiquement:
Code :
if not rstTacheMain.eof or not rstTacheMain.bof then
response.Write("<td><select name='listPep' id='listPep' class='select-type1' size='20' multiple>")
rstTacheMain.movefirst
While not rstTacheMain.eof
response.Write("<option value='" & rstTacheMain.Fields.Item("Tache").Value & "'>" & rstTacheMain.Fields.Item("Tache").Value & "</option>" & vbcrlf)
rstTacheMain.movenext
Wend
end if
response.Write("</select></td>")
Ensuite j'ai un bouton qui appelle une fonction vb pour vérifier quels items on été sélectionnés dans le listbox:
Code :
<input type="submit" value="test" onClick="GetSelectedItems('listPep')">
Ensuite vient la fonction qui traite les éléments contenu dans listPep:
Code :
Sub test(objName)
For Each opt In document.all.item(objName)
If opt.selected Then strtemp=strtemp & opt.value
Next
call AddGame(NomJeu.value, txtMateriel.value, txtObjectifs.value, txtNotes.value, strTemp)
End Sub
Mon problème arrive dans ma fonction vbscript si un item de mon listbox contient une apostrophe. J'ai essayé avec la fonction replace(nomObjet, "'", "''"), mais peu importe où je la place, j'arrive toujours à un résultat où l'item est coupé à partir de la lettre où l'apostrophe se trouve....
Ce doit être une niaiserie, mais je ne vois plus clair et le trouve pas...
Quelqu'un a une idée??
Merci d'avance!
Connexion
Inscription
FAQ
Rechercher
