<%
databaseName="guestbook"
fuseAction=request("fuseAction")
Select Case fuseAction
'=========================================== fuseAction = "" ===============================================
'---------------------------- Retrieving record information from xml file ----------------------------------
Case ""
databaseDirectory = server.mappath("/tlBase/") &"\"& databaseName & "_table\"
Set propertyXML = Server.CreateObject( "Microsoft.XMLDOM" )
propertyXML.Load(databaseDirectory & databaseName & "_property.xml")
autoNumber=propertyXML.selectSingleNode("property/autoNumber").text
Set structureXML=nothing
Set propertyXML=nothing
%>
To sign my guestbook, just fill in the form and hit "SUBMIT".
<%
'===================================== fuseAction = "addRecordAct" =========================================
'------------------------------------------ Creating the record file ---------------------------------------
Case "addRecordAct"
'creating the new record by copying structure.xml
Set fso = server.CreateObject("Scripting.FileSystemObject")
databaseDirectory = server.mappath("/tlBase/") &"\"& databaseName & "_table\"
structureXMLPath = databaseDirectory & databaseName & "_structure.xml"
newXMLPath = databaseDirectory & databaseName & "_record" & request("ID") & ".xml"
fso.CopyFile structureXMLPath, newXMLPath, true
Set newXML = Server.CreateObject("Microsoft.XMLDOM")
newXML.Load(newXMLPath)
set currRecord = newXML.selectNodes("record/*")
nodeIndex=0
For Each tempNode In currRecord
tempNode.text = request("field"&nodeIndex)
nodeIndex=nodeIndex+1
next
newXML.save(newXMLPath)
Set fso = nothing
set currRecord = nothing
'----------------------------------- Updating the autoNumber in property.xml -------------------------------
propertyXMLPath = databaseDirectory & databaseName & "_property.xml"
Set propertyXML = Server.CreateObject("Microsoft.XMLDOM")
propertyXML.Load(propertyXMLPath)
propertyXML.selectSingleNode("property/autoNumber").text = request("ID") + 1
propertyXML.save(propertyXMLPath)
Set propertyXML = nothing
redirectPath = "sortScript.asp?databaseName=guestbook&columnToSort=0&dataType=number&redirectURL=guestbookPage.asp"
response.redirect(redirectPath)
%>
<%
End Select
%>