I want to save the input form in csv or xml format in local drive...How can i do that?
Code:
<html><head><script language="VBScript">count=2Sub doAddRow() Dim oTbl, oRow, oCell Set oTbl=document.getElementById("mytable") Set oRow = oTbl.insertRow Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Lot Number' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Location' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Total In' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='1 * Test' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='2 * Test' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='3 * Test' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Total Out' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Lot Status' type='text' id='Lot Number"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Remark' type='text' id='Lot Number"&count&"' value='' />"
count = count+1End Sub
Sub deleteRow()Dim oTbl, oRowSet oTbl=document.getElementById("mytable")
if count>2 thenoTbl.deleteRow(count-1)count = count -1end if
End sub
Sub doAddRow2() Dim oTbl, oRow, oCell Set oTbl=document.getElementById("mytable2") Set oRow = oTbl.insertRow Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Entry' type='text' id='Entry"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Down' type='text' id='Entry"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Up' type='text' id='Entry"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Failure Mode/Action/Remark' size=40 type='text' id='Entry"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='D/T' type='text' id='Entry"&count&"' value='' />" Set oCell = oRow.insertCell oCell.innerHTML= "<input name='Attended By' type='text' id='Entry"&count&"' value='' />" count = count+1End Sub
Sub deleteRow2()Dim oTbl, oRowSet oTbl=document.getElementById("mytable2")
if count>2 thenoTbl.deleteRow(count-1)count = count -1end if
End sub
Sub saveFile()Dim txtPathDim txtName
txtPath = "C:\Shared Folder\Emp InfoPath Forms"txtName = "form1.xml"
XDocument.SaveAS(txtPath & txtName)End sub
</script></head><body>
<form='form1' action="#" method="get"><div id ="myOutput" style="border:2px solid black">
TESTER <input type="text"/> DATE <input type="text" /> EMP NO <input type="text" /> 6S DONE <input type="text" />
<br /><br />
WW <input type="text" size="8"maxlength="8"/> NAME <input type="text" /> SHIFT <input type="text" />
<br /><br /><br />
PASSOVER (Please verify Summit Receipe & Storm before start shift)
<br /><br /><br />
Summit Receipe OK ? <select name=""> <option value="" style="display:none;"></option> <option value="Yes">Yes</option> <option value="No">No</option> </select>
<br /><br /> Motif/ Storm OK ? <select name=""> <option value="" style="display:none;"></option> <option value="Yes">Yes</option> <option value="No">No</option> </select> <br /><br /><br />
<p></p><p></p>
<table id="mytable" border='1'> <tr><td><center>Lot Number</center></td> <td><center>Location</center></td> <td><center>Total In</center></td> <td><center>1 * Test</center></td> <td><center>2 * Test</center></td> <td><center>3 * Test</center></td> <td><center>Total Out</center></td> <td><center>Lot Status</center></td> <td><center>Remark</center></td></tr> <TR> <TD> <input name="Lot Number" type="text" id="Lot Number" /></TD> <TD> <input name="Location" type="text" id="Location" /></TD> <TD> <input name="Total In" type="text" id="Total In" /></TD> <TD> <input name="1 * Test" type="text" id="1* Test" /></TD> <TD> <input name="2 * Test" type="text" id="2 * Test" /></TD> <TD> <input name="3 * Test" type="text" id="3 * Test" /></TD> <TD> <input name="Total Out" type="text" id="Total Out" /></TD> <TD> <input name="Lot Status" type="text" id="Lot Status" /></TD> <TD> <input name="Remark" type="text" id="Remark" /></TD> </TR> </table><br />
<INPUT TYPE="button" value="Add" onclick="doAddRow()"><INPUT TYPE="button" value="Delete" onclick="deleteRow()">
</p><p></p>
<table id="mytable2" border='1'> <tr><td><center>Entry</center></td> <td><center>Down</center></td> <td><center>Up</center></td> <td><center>Failure Mode/Action/Remark</center></td> <td><center>D/T</center></td> <td><center>Attended By</center></td></tr> <TR> <TD> <input name="Entry" type="text" id="Entry" /></TD> <TD> <input name="Down" type="text" id="Down" /></TD> <TD> <input name="Up" type="text" id="Up" /></TD> <TD> <input name="Failure Mode/Action/Remark" type="text" id="Failure Mode/Action/Remark" size="40" /></TD> <TD> <input name="D/T" type="text" id="D/T" /></TD> <TD> <input name="Attended By" type="text" id="Attended By" /></TD> </TR> </table><br />
<INPUT TYPE="button" value="Add" onclick="doAddRow2()"><INPUT TYPE="button" value="Delete" onclick="deleteRow2()">
</div>
<INPUT TYPE="button" value="Save" onclick="saveFile()">
</form>
</body></html>