Zalenverhuur

Er zijn bij Studio Korte Leidse zalen te huur, alsmede kantoorruimtes.
Hieronder vindt U informatie over de zalen. Als U meer informatie wilt
over het huren van een kantoorruimte, kunt U Studio Korte Leidse mailen.

<% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsOpenings_tijden = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT extra_inhoud FROM extra WHERE extra='openings_tijden'" rsOpenings_tijden.Open strSQL, cn %> <% Set objOpenings_tijden = rsOpenings_tijden("extra_inhoud") Do Until rsOpenings_tijden.EOF Response.Write "" rsOpenings_tijden.MoveNext Loop cn.Close %>

Openingstijden
" & objOpenings_tijden & "

<%'Pilarenzaal%> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, afm_le, afm_br, afm_ho FROM zalen WHERE zaal='Pilarenzaal'" rsZaalinformatie.Open strSQL, cn %> <% Set objZaalnaam = rsZaalinformatie("zaal") Set objAfm_le = rsZaalinformatie("afm_le") Set objAfm_br = rsZaalinformatie("afm_br") Set objAfm_ho = rsZaalinformatie("afm_ho") Do Until rsZaalinformatie.EOF Response.Write "" rsZaalinformatie.MoveNext Loop cn.Close %> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, prijs_dagdeel_excl, prijs_dagdeel_incl FROM zalen WHERE zaal = 'Pilarenzaal'" rsZaalinformatie2.Open strSQL, cn %> <% Set objPrijs_dagdeel_excl = rsZaalinformatie2("prijs_dagdeel_excl") Do Until rsZaalinformatie2.EOF Response.Write "" rsZaalinformatie2.MoveNext Loop cn.Close %> <%'Vergaderzaal%> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, afm_le, afm_br, afm_ho FROM zalen WHERE zaal='Vergaderzaal'" rsZaalinformatie.Open strSQL, cn %> <% Set objZaalnaam = rsZaalinformatie("zaal") Set objAfm_le = rsZaalinformatie("afm_le") Set objAfm_br = rsZaalinformatie("afm_br") Set objAfm_ho = rsZaalinformatie("afm_ho") Do Until rsZaalinformatie.EOF Response.Write "" rsZaalinformatie.MoveNext Loop cn.Close %> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, prijs_dagdeel_excl, prijs_dagdeel_incl FROM zalen WHERE zaal = 'Vergaderzaal'" rsZaalinformatie2.Open strSQL, cn %> <% Set objPrijs_dagdeel_excl = rsZaalinformatie2("prijs_dagdeel_excl") Do Until rsZaalinformatie2.EOF Response.Write "" rsZaalinformatie2.MoveNext Loop cn.Close %> <%'Tangostudio%> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, afm_le, afm_br, afm_ho FROM zalen WHERE zaal='Tangostudio'" rsZaalinformatie.Open strSQL, cn %> <% Set objZaalnaam = rsZaalinformatie("zaal") Set objAfm_le = rsZaalinformatie("afm_le") Set objAfm_br = rsZaalinformatie("afm_br") Set objAfm_ho = rsZaalinformatie("afm_ho") Do Until rsZaalinformatie.EOF Response.Write "" rsZaalinformatie.MoveNext Loop cn.Close %> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, prijs_dagdeel_excl, prijs_dagdeel_incl FROM zalen WHERE zaal = 'Tangostudio'" rsZaalinformatie2.Open strSQL, cn %> <% Set objPrijs_dagdeel_excl = rsZaalinformatie2("prijs_dagdeel_excl") Do Until rsZaalinformatie2.EOF Response.Write "" rsZaalinformatie2.MoveNext Loop cn.Close %> <%'Koorstudio%> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, afm_le, afm_br, afm_ho FROM zalen WHERE zaal='Koorstudio'" rsZaalinformatie.Open strSQL, cn %> <% Set objZaalnaam = rsZaalinformatie("zaal") Set objAfm_le = rsZaalinformatie("afm_le") Set objAfm_br = rsZaalinformatie("afm_br") Set objAfm_ho = rsZaalinformatie("afm_ho") Do Until rsZaalinformatie.EOF Response.Write "" rsZaalinformatie.MoveNext Loop cn.Close %> <% strDSN = "FILEDSN=skl.dsn" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN Set rsZaalinformatie2 = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT zaal, prijs_dagdeel_excl, prijs_dagdeel_incl FROM zalen WHERE zaal = 'Koorstudio'" rsZaalinformatie2.Open strSQL, cn %> <% Set objPrijs_dagdeel_excl = rsZaalinformatie2("prijs_dagdeel_excl") Do Until rsZaalinformatie2.EOF Response.Write "" rsZaalinformatie2.MoveNext Loop cn.Close %>

Afmetingen en prijs
Naam zaal:	Lengte:	Breedte:	Hoogte:	Prijs dagdeel (excl):
" & objZaalnaam & "	" & objAfm_le & " m.	" & objAfm_br & " m.	" & objAfm_ho & " m.	ƒ" & objPrijs_dagdeel_excl & "
" & objZaalnaam & "	" & objAfm_le & " m.	" & objAfm_br & " m.	" & objAfm_ho & " m.	ƒ" & objPrijs_dagdeel_excl & "
" & objZaalnaam & "	" & objAfm_le & " m.	" & objAfm_br & " m.	" & objAfm_ho & " m.	ƒ" & objPrijs_dagdeel_excl & "
" & objZaalnaam & "	" & objAfm_le & " m.	" & objAfm_br & " m.	" & objAfm_ho & " m.	ƒ" & objPrijs_dagdeel_excl & "

Wilt U meer gedetailleerde informatie? U kunt dit formulier gebruiken om te kijken of de gewenste zaal op een bepaalde datum vrij is om te huren.