<% if Request.Form("txtSubmit") = 1 then dbAccess end if sub dbAccess() Dim objFSO, cnt, filename, filepath, filehold Set objFSO = Server.CreateObject("Scripting.FileSystemObject") filepath = Server.MapPath("\db") filename = "/Comments.cnt" filehold = filepath & filename 'Open the text file Dim objTextStream if objFSO.FileExists(filehold) then set objTextStream = objFSO.OpenTextFile(filehold, 1) cnt = int(rTrim(objTextStream.ReadLine)) cnt = cnt + 1 objTextStream.Close set objTextStream = objFSO.OpenTextFile(filehold, 2) objTextStream.Write cnt else set objTextStream = objFSO.OpenTextFile(filehold, 2, True) objTextStream.Write "1" cnt = 1 end if objTextStream.Close Set objTextStream = Nothing filename = filepath & "/Comments" & cnt & ".txt" set objTextStream = objFSO.CreateTextFile(filename, True) 'set objTextStream = objFSO.OpenTextFile(filename, 2, True) objTextStream.WriteLine "Name: " & Request.Form("txtName") objTextStream.WriteLine "Email: " & Request.Form("txtEmail") objTextStream.WriteLine "Comment: " & Request.Form("txtComments") objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing end sub %>

Have an offer for us? Comments about the site? The fastest way to reach us is to submit your comments through this form: Name: Email: Comments:   You can also reach us through e-mail: dougarmbrust@hotmail.com cardinalzin@excite.com We can also be contacted on AOL Instant Messenger -- username Pord Werfect <%if Request.Form("txtSubmit") = 1 then%> <%end if%>

armbrustconsulting.com