<%@ Language="VBScript"%> Motor Club Sabadell - Consulta de dades dels socis

 Mostrar miniatures

Llista de socis de temporada  

<% Dim oConn2, rs2, SQL2 set oConn2=Server.CreateObject("ADODB.Connection") set rs2=Server.CreateObject("ADODB.Recordset") oConn2.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("MCS_Web.mdb")&";" SQL2 = "SELECT Socis_temporada.Carrec, Socis_temporada.NumSoci, Socis_temporada.Nom, Socis_temporada.[1erCognom], Socis_temporada.[2onCognom], Socis_temporada.Poblacio, Socis_temporada.TipusSoci, Socis_temporada.[E-mail], Socis_temporada.Foto, Socis_temporada.FotoCotxe FROM Socis_temporada ORDER BY Socis_temporada.OrdreCarrec, Socis_temporada.NumSoci" rs2.Open SQL2, oConn2, 1, 2 if rs2.EOF then Response.Write("No hi socis") End If do while not rs2.EOF total=rs2.RecordCount %>
<% Dim Foto, String_1 Foto = rs2.Fields("Foto") If Foto = 0 Then String_1 = "" Else String_1 = "Ampliar" End If %> <% Dim FotoCotxe, String_2 FotoCotxe = rs2.Fields("FotoCotxe") If FotoCotxe = 0 Then String_2 = "" Else String_2 = "Ampliar" End If %> <% rs2.movenext loop %>  Total socis: <%Response.Write (total)%>
   <% rs2.Close set rs2=nothing oConn2.Close set oConn2=nothing 'End Sub %>
Soci

 Nom

 Població

 Foto

Cotxe

<%=rs2.Fields("NumSoci")%> 

 <%=rs2.Fields("Nom") & " " & rs2.Fields("1erCognom") & " " & rs2.Fields("2onCognom")%>  <%=rs2.Fields("Poblacio")%> ',180,280)"> <%=String_1%> ',600,440)"> <%=String_2%>