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

 

 Ocultar miniatures

<% 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 * FROM Socis" SQL2 = "SELECT Socis.Carrec, Socis.NumSoci, Socis.Nom, Socis.[1erCognom], Socis.[2onCognom], Socis.Poblacio, Socis.TipusSoci, Socis.[E-mail], Socis.Foto, Socis.FotoCotxe FROM Socis WHERE (((Socis.DataBaixa) Is Null)) ORDER BY Socis.[1erCognom] DESC, Socis.[2onCognom] DESC, Socis.[Nom] DESC" 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, Nom, String_1, Espai Foto = rs2.Fields("Foto") If Foto = 0 Then String_1 = "" Else Nom = rs2("Nom") & rs2("1erCognom") & ".jpg" Nom = (Replace(Nom, " ", "%20")) String_1 = "Ampliar" End If %> <% Dim FotoCotxe, cotxe, String_2 FotoCotxe = rs2.Fields("FotoCotxe") If FotoCotxe = 0 Then String_2 = "" Else Cotxe = rs2("Nom") & rs2("1erCognom") & "_c.jpg" 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 Ordenar per soci (1 ... 999) Ordenar per soci (999 ... 1)

 Càrrec

 Nom

Ordenar alfabèticament (A ... Z) Ordenar alfabèticament (Z ... A)

 Població

Ordenar alfabèticament (A ... Z) Ordenar alfabèticament (Z ... A)

 Foto

Cotxe

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

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