Below is the VBScript used to package your content.
[START...]
The Button:
<button onclick="transform()">Package It</button>
The Textarea:
<textarea id="txt" rows="10" cols="45"></textarea>
The VBScript:
<SCRIPT Language="VBScript">
Sub transform()
Dim s,t
s = "//<!--" + vbcrlf
t=txt.value
t = split(t,vbcrlf)
For i=0 To UBound(t)
t(i)=Replace(t(i),"'","\'")
s = s & "document.writeln('" + t(i) + "');" + vbcrlf
Next
s = s & "//-->" + vbcrlf
txt.value=s
End Sub
</SCRIPT>
[...END]
- Copyright 2003 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder. Privacy Statement Feedback
