Central Station Parties | Planning Your Event

<%@ LANGUAGE="VBSCRIPT"%> <% Option Explicit Response.expires = -1 Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-store" Response.buffer = True dim loginDSN, loginConn, recset, sql dim sHeadFont, sEndHead, sOneTime, sTextFont, sEndText, sCateg, sMatched, sTempString, sTemp, x, sOldCateg if Request.Form("submitted") = "true" then ' process request... end if %> Central Station Parties | Planning Your Event

Details, details! That's what planning an event is all about. Use this handy budget planner and checklist to anticipate all of your expenses and minimize surprises to your wallet.

You can save this information and come back as needed to update!

Please note that all price ranges are simply guidelines for calculating your budget. Contact your supplier to get a firm estimate based on your specific needs.

Enter your desired price and quantity into the blanks, along with your designated due and completion dates. Press "Enter" to calculate.

Quick tip: Before planning any event, make sure you have contacted the proper authorities for information regarding permits.

<% sHeadFont = "" sEndHead = "" sOneTime = "" sTextFont = "" sEndText = "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.Write "
" & sOneTime Response.write "Party Name/Theme: " & sEndHead Response.write " " Response.Write "" Response.Write "
" & sOneTime Response.write "Date of Party: " & sEndHead Response.write " " Response.Write "" Response.Write "

" loginDSN = "DSN=centralstation" set loginConn = Server.CreateObject("ADODB.Connection") loginConn.Open loginDSN set recset = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM checklist" recset.Open sql, loginDSN,3,3 Response.Write "" & vbCrLf sOldCateg = "" do while not recset.eof sCateg = trim(recset("category")) if sCateg <> sOldCateg then sOldCateg = sCateg Response.Write "
" if sCateg <> "Header" then Response.Write sHeadFont & sCateg & sEndHead & "
" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf end if end if if sCateg <> "Header" then Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf end if recset.MoveNext loop Response.Write "
" & sTextFont & "Item Description" & sEndText & " " & sTextFont & "Hints and Notes" & sEndText & " " & sTextFont & "Est. Unit Cost" & sEndText & " " & sTextFont & "Actual Unit Cost" & sEndText & " " & sTextFont & "Quantity" & sEndText & " " & sTextFont & "Total Cost" & sEndText & " " & sTextFont & "Responsible" & sEndText & " " & sTextFont & "Date Due" & sEndText & " " & sTextFont & "Done" & sEndText & "
" & sTextFont & recset("item") & sEndText & " " & sTextFont & recset("hintnotes") & sEndText & " " & sTextFont & recset("estunitcost") & sEndText & "
" Response.Write sHeadFont & "Your Grand Total: " Response.Write "
" %>