<% '***************************PRIMER PAS**************************************************************** ' cALCULEM LES HABITACIONS LLIURES DE TOTS ELS HOTELS if Request.Form("Enviar")="" or left(Request.Form("Enviar"),1)="P" then rs.Open "SELECT count(*) as totalreg FROM JAC_ALLOTJAMENT WHERE Hotel_div>''", oConn HOTEL_DIV=cint(rs("totalreg")) rs.close rs.Open "SELECT count(*) as totalreg FROM JAC_ALLOTJAMENT WHERE Hotel_dis>''", oConn HOTEL_DIS=cint(rs("totalreg")) rs.close HOTEL_DIV=aHotel(0,1)-Hotel_div if Hotel_div<0 then Hotel_div=0 HOTEL_DIS=aHotel(0,1)-Hotel_dis if Hotel_dis<0 then Hotel_dis=0 %>

Allotjament

" method="post" name="primerpas" id="primerpas" onSubmit = "return validar(this)">

DADES PERSONALS
Cognoms *	" size="55" maxlength="100" />
Nom *	" size="55" maxlength="50" />
Centre *	" size="55" maxlength="100" />
Telefon contacte	" size="20" maxlength="20" />
email *	" size="55" maxlength="50" />
DADES DE FACTURACIÓ
Persona de Contacte*	" size="55" maxlength="50" />
Empresa facturació*	" size="55" maxlength="50" />
NIF	" size="10" maxlength="10" />
Adreça	" size="55" maxlength="100" />
Població	" size="55" maxlength="50" />
CP	" size="5" maxlength="5" />
Provincia	" size="20" maxlength="20" />
Telefon	" size="20" maxlength="20" />
Mobil	" size="20" maxlength="20" />
email	" size="55" maxlength="50" />
ALLOTJAMENT
Divendres Dissabte   Hotel El Montanyà "" then response.Write "checked='checked'"%> /> "" then response.Write "checked='checked'"%> /> <%=aHotel(0,2)%> € nit Habitacions lliures <%=Hotel_div%> <%=Hotel_dis%>   Els preus inclouen l'esmorzar i l'IVA Si el numero d'habitacios és 0, pot comprar igualment, però quedarà en llista d'espera. Observacions <%=Request.Form("X_OBSERVACIONS")%>

<%if request.Form("X_NUM_PETICIO")="" then%> <%end if%>

<%end if%> <%if left(Request.Form("Enviar"),1)="S" then '****************************************SEGON PAS************************************************** 'Calcul de costs TOTAL=0 %>

<%=fmenu(a_menu_dreta,6)%> - Segon pas

<%if Request.Form("X_Hotel_div")>"" then%> <%end if%> <%if Request.Form("X_Hotel_dis")>"" then%> <%end if%>

DADES PERSONALS
Cognoms *	<%=Request.form("X_COGNOMS")%>
Nom *	<%=Request.form("X_NOM")%>
Centre *	<%=Request.form("X_CENTRE")%>
Telèfon Contacte	<%=Request.form("X_TELEFON_CONTACTE")%>
email *	<%=lcase(Request.form("X_EMAIL1_PRIVAT"))%>
DADES DE FACTURACIÓ
Persona de Contacte	<%=Request.form("X_fact_contacte")%>
Empresa de facturació	<%=Request.form("X_fact_empresa")%>
NIF	<%=Request.form("X_fact_NIF")%>
Adreça	<%=Request.form("X_fact_direccio")%>
Població	<%=Request.form("X_fact_poblacio")%>
CP	<%=Request.form("X_fact_cp")%>
Provincia	<%=Request.form("X_fact_provincia")%>
Telefon	<%=Request.form("X_fact_telefon")%>
Mobil	<%=Request.form("X_fact_mobil")%>
email	<%=lcase(Request.form("X_fact_email"))%>
Observacions: <%=webtexte(Request.form("X_observacions"))%>
IMPORT A PAGAR
Allotjament
Hotel Divendres		<%=aHotel(0,2)%> € <%total=total+cdbl(aHotel(0,2))%>
Hotel Dissabte		<%=aHotel(0,2)%> € <%total=total+cdbl(aHotel(0,2))%>
------------
TOTAL A PAGAR		<%=TOTAL%> €
FORMA DE PAGAMENT
Transferència bancària:
2013 0017 01 0200940459
Targeta de crèdit (Pagament amb servidor segur TPV Virtual)
';submit()" value="Pas anterior" />

<%for each key in request.form if ucase(left(key,2))="X_" then nombre = key valor = Request.Form(key) if instr(lcase(nombre),"mail")>0 then valor=lcase(valor) %> <% end if next%>

<%end if%>