<%@language=VBscript%> <%Response.buffer=true%> <% 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".

> >
Your Name:
Your Homepage URL:
Your E-mail:
Comments:

<% '===================================== 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 %>