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

 

 Mostrar 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.NumSoci 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, 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%>