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

 

 Mostrar miniatures

<% Dim oConn2, rs2, SQL2, total 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.OrdreCarrec, Socis.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 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("Nom") & " " & rs2.Fields("1erCognom") & " " & rs2.Fields("2onCognom")%>  <%=rs2.Fields("Poblacio")%> ',180,280)"> <%=String_1%> ',600,440)"> <%=String_2%>