<%
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
%>
<%=rs2.Fields("NumSoci")%> |
|
|
<%=rs2.Fields("Carrec")%> |
<%=rs2.Fields("1erCognom") & " " & rs2.Fields("2onCognom") & ", " & rs2.Fields("Nom")%> |
<%=rs2.Fields("Poblacio")%> |
<%
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 = ""
End If
%>
',180,280)">
<%=String_1%> |
<%
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 = ""
End If
%>
',600,440)">
<%=String_2%> |
<%
rs2.movenext
loop
%>
Total socis: <%Response.Write (total)%>
<%
rs2.Close
set rs2=nothing
oConn2.Close
set oConn2=nothing
'End Sub
%>