<HTML>
<HEAD>
<SCRIPT type="text/vbscript" >
Sub NewDoc_onclick
dim oform
dim oelem,onode,otext,s 'those are workhorse
set oform=window.event.srcElement.form
set oelem=document.createelement("div")
set otext=document.createtextnode("title = ")
oelem.appendChild otext
set onode=document.createElement("input")
with onode
.type="text"
.value="title"
.name="title"
end with
oelem.appendChild onode
set onode=document.createelement("br")
oelem.appendChild onode
set otext=document.createtextnode("foldername = ")
oelem.appendChild otext
set onode=document.createElement("input")
with onode
.type="text"
.value="foldername"
.name="foldername"
end with
oelem.appendChild onode
set onode=document.createelement("br")
oelem.appendChild onode
oform.appendChild oelem
call Addrow2
set oelem=document.createElement("div")
set onode=document.createElement("input")
with onode
.type="button"
.value="Save And Update"
.name="Save"
.id="Save"
end with
onode.attachEvent "onclick",getref("Save")
oelem.appendChild onode
oform.appendChild oelem
set otext=nothing
set onode=nothing
set oelem=nothing
set oform=nothing
End Sub
Sub Save
dim ColAArray(10), ColBArray(10), ColCArray(10), ColDArray(10), ColEArray(10), ColFArray(10)
dim OriginalFile, TempFile
OriginalFile = Replace(location.href, "%20", " ")
OriginalFile = Replace (OriginalFile, "file:///", "")
TempFile = Replace (OriginalFile, ".html", "2.html")
for j=0 to 9
ColAArray(j) = document.getelementbyid("input_" & j & "_0").value
ColBArray(j) = document.getelementbyid("input_" & j & "_1").value
ColCArray(j) = document.getelementbyid("input_" & j & "_2").value
ColDArray(j) = document.getelementbyid("input_" & j & "_3").value
ColEArray(j) = document.getelementbyid("input_" & j & "_4").value
ColFArray(j) = document.getelementbyid("input_" & j & "_5").value
next
Set objFSO = CreateObject("Scripting.FileSystemObject")
dim strCurrentLine
objFSO.CopyFile OriginalFile, TempFile
set objDocBackup = objFSO.OpenTextFile(TempFile, ForReading) 'Problem on this line
set objDocFile = objFSO.OpenTextFile(OriginalFile, ForWriting) "same problem would be on this line
Do Until objDocBackup.AtEndOfStream
strCurrentLine = objDocBackup.ReadLine
if InStr(strCurrentLine, "NewDocSpan") <> 0 then
'Will Add my new entries in here, havent gotten to this part yet
else
objDocFile.WriteLine strCurrentLine
end if
Loop
objDocFile.close
objDocBackup.close
objFSO.DeleteFile(strBootBackup)
'MsgBox TempFile
'location.href = location.href
end Sub
function AddRow2
dim oform
dim oelem,onode,otext,obold,ocenter
dim rowsize, colsize, i, j
rowsize=10
colsize=6
dim otbl,otbody
set oform=window.event.srcElement.form
set otbl=document.createElement("table")
otbl.setAttribute "border","2"
set otbody=document.createElement("tbody")
set orow=document.createElement("tr")
set ocell=document.createElement("td")
set obold=document.createElement("b")
set ocenter=document.createElement("center")
set otext=document.createtextnode("ColA")
ocenter.appendChild otext
obold.appendChild ocenter
ocell.appendChild obold
orow.appendChild ocell
set ocell=document.createElement("td")
set obold=document.createElement("b")
set ocenter=document.createElement("center")
set otext=document.createtextnode("ColB")
ocenter.appendChild otext
obold.appendChild ocenter
ocell.appendChild obold
orow.appendChild ocell
set ocell=document.createElement("td")
set obold=document.createElement("b")
set ocenter=document.createElement("center")
set otext=document.createtextnode("ColC")
ocenter.appendChild otext
obold.appendChild ocenter
ocell.appendChild obold
orow.appendChild ocell
set ocell=document.createElement("td")
set obold=document.createElement("b")
set ocenter=document.createElement("center")
set otext=document.createtextnode("ColD")
ocenter.appendChild otext
obold.appendChild ocenter
ocell.appendChild obold
orow.appendChild ocell
set ocell=document.createElement("td")
set obold=document.createElement("b")
set ocenter=document.createElement("center")
set otext=document.createtextnode("ColE")
ocenter.appendChild otext
obold.appendChild ocenter
ocell.appendChild obold
orow.appendChild ocell
set ocell=document.createElement("td")
set obold=document.createElement("b")
set ocenter=document.createElement("center")
set otext=document.createtextnode("ColF")
ocenter.appendChild otext
obold.appendChild ocenter
ocell.appendChild obold
orow.appendChild ocell
otbody.appendChild orow
for i=0 to rowsize-1
set orow=document.createElement("tr")
for j=0 to colsize-1
set ocell=document.createElement("td")
set oelem=document.createelement("input")
with oelem
.type="text"
.id="input_" & i & "_" & j
.name=.id
.value=""
end with
ocell.appendChild oelem
orow.appendChild ocell
set oelem=nothing
set otext=nothing
set ocell=nothing
next
otbody.appendChild orow
set ocell=nothing
set orow=nothing
next
otbl.appendChild otbody
oform.appendChild otbl
set otbody=nothing
set otbl=nothing
set oform=nothing
end function
</SCRIPT>
</HEAD>
<BODY>
<form id="NewDocSpan">
<INPUT TYPE="BUTTON" NAME="NewDoc" VALUE="Add New Documentation">
</form>
</center>
</BODY>
</HTML>
