<% 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("\proposals") filename = "/Proposals.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 & "/Proposals" & cnt & ".txt" set objTextStream = objFSO.CreateTextFile(filename, True) 'set objTextStream = objFSO.OpenTextFile(filename, 2, True) objTextStream.WriteLine "Company: " & Request.Form("txtCompany") objTextStream.WriteLine "Contact: " & Request.Form("txtContact") objTextStream.WriteLine "Email: " & Request.Form("txtEmail") objTextStream.WriteLine "Phone: " & Request.Form("txtPhone") objTextStream.WriteLine "JavaScript: " & Request.Form("chkJavascript") objTextStream.WriteLine "COM: " & Request.Form("chkCom") objTextStream.WriteLine "ASP: " & Request.Form("chkAsp") objTextStream.WriteLine "Logo: " & Request.Form("chkLogo") objTextStream.WriteLine "Database: " & Request.Form("chkDatabase") objTextStream.WriteLine "Database: " & Request.Form("selDatabase") objTextStream.WriteLine "Layout: " & Request.Form("selLayout") objTextStream.WriteLine "No. Pages: " & Request.Form("selPages") objTextStream.WriteLine "Updates: " & Request.Form("selUpdate") objTextStream.WriteLine "Comments: " & Request.Form("txtComments") objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing end sub %>
Do you need someone to design and develop your website?

Select the options that you would like to have incorporated into your site, fill in the contact information and click the submit button. If you're not sure which technologies you need for your site, that's ok! Just give a brief description of what your expectations would be for your site in the "Other Comments" section.

After we receive your request, we will promptly send you an estimate.

Select Options:
 

JavaScript
COM Components (Visual Basic)
ASP
Logo Design
Database   

Page Layout:  

View Layout 1    View Layout 2    View Layout 3

Number of Pages:  

How often will the content need to be updated:  

Other Comments:
Company Name:
Contact Name: *
E-mail: *
Phone:
Fields marked with * are required




<%if Request.Form("txtSubmit") = 1 then%> <%end if%>
armbrustconsulting.com