Lid |
|
Plaatscode: 141498
De vbscript code genereert alle bestanden in een map als afbeelding, als er op geklikt wordt, moet de src van de afbeelding in het tekstvak geplaatst worden. Echter als ik op een afbeelding klik, gebeurt er niets. Het vbscript wordt echter wel goed gegenereerd want de paginacode lijkt te kloppen.
Iemand een idee wat ik fout doe?
<script language="javascript" type="text/javascript">
function addtext(id)
{
var imageLink = "{" + document.getElementById(id).src + "}" ;
document.getElementById("textfield").value += imageLink ;
}
</script>
<div>
<textarea id="textfield"></textarea>
<div>
<%
Dim myFSO, myFolderO
Set myFSO = Server.CreateObject("Scripting.FileSystemObject")
Set myFolderO = myFSO.GetFolder(Server.MapPath("Code\_Images\creditcards"))
For Each fileItem In myFolderO.Files
Response.Write("<input type=""image"" id=""" & fileItem.Name & """ value=""add a text"" src=""Code/_Images/creditcards/" & fileItem.Name & """ onClick=""addtext(" & fileItem.Name & ");"">")
Next
Set myFolderO = nothing
Set myFSO = nothing
%>
</div>
</div>
<script language="javascript" type="text/javascript"> function addtext(id) { var imageLink = "{" + document.getElementById(id).src + "}" ; document.getElementById("textfield").value += imageLink ; } </script> <div> <textarea id="textfield"></textarea> <div> <% Dim myFSO, myFolderO Set myFSO = Server.CreateObject("Scripting.FileSystemObject") Set myFolderO = myFSO.GetFolder(Server.MapPath("Code\_Images\creditcards")) For Each fileItem In myFolderO.Files Response.Write("<input type=""image"" id=""" & fileItem.Name & """ value=""add a text"" src=""Code/_Images/creditcards/" & fileItem.Name & """ onClick=""addtext(" & fileItem.Name & ");"">") Next Set myFolderO = nothing Set myFSO = nothing %> </div> </div>
|