Objednajte si zadarmo.
Ukážka
Script <SCRIPT LANGUAGE=vbscript><!--
Sub Tlac_onclick
Set objWMP = CreateObject("WMPlayer.OCX.7")
Set pocetCDRom = objWMP.cdromCollection
If pocetCDRom.Count >= 1 Then
For i = 0 To pocetCDRom.Count - 1
pocetCDRom.Item(i).eject
Next
End If
end sub
--></SCRIPT>
Objekt <INPUT name="button" type=button id=Tlac value="Chcem zadarmo držiak na nápoje k môjmu PC">