Tja...
Listar upp ett antal uteställen i en databas. Några av dessa uteställen är medlemar hos oss. Dessa uppgifter ligger i en annan databas.
Jag vill att när utestället är medlem ska det stå "Avsluta medlemskapet", är de medlemmar ska det stå "Påbörja medlemskapet" och när det är endast tio dagar eller mindre kvar på medlemskapet ska det stå "antal dagar kvar".
Skickar med koden så kanske ni kan lösa detta åt mig?!
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<%
Set AOJ = Server.CreateObject("ADODB.Connection")
OpenDatabaseAOJ
Set RecSet = Server.CreateObject("ADODB.Recordset")
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
With RecSet
.CursorLocation = 3
.CacheSize = 50
End With
SQL = "Select * From clubs Order by Name"
RecSet.Open SQL, AOJ
If RecSet.EOF Then%>
<tr>
<td height="21" colspan="3" class="normal">Inga uteställen</td>
</tr>
<%Else
With RecSet
.MoveFirst
.PageSize = 50
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount
Y = 0
Do While Not RecSet.EOF And Y < RecSet.PageSize%>
<tr>
<td width="80%" height="22" align="left" valign="top"><b><%=RecSet("Name")%></b></td>
<td width="20%" height="22" align="left" valign="top"><%=RecSet("Phone")%></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="1" colspan="2"> </td>
</tr>
<tr>
<td align="left" valign="top"><%=RecSet("clubDesc")%><br> <br>
<a href="utestallen.asp?do=andra&id=<%=RecSet("ClubID")%>"><font color="#FF0000">Ändra
eller ta bort</font></a>
<a href="utestallen.asp?do=endmedlem&id=<%=RecSet("ClubID")%>"><%If DateDiff("d", Date, enddat) < 10 Then%><%=DateDiff("d", Date, enddat)%> dagar kvar<%Else%><font color="#ff0000" size="3"><b>Avsluta medlemsskap</b></font><%End If%></a>
<a href="utestallen.asp?do=blimedlem&id=<%=RecSet("ClubID")%>"><font color="#FF0000"><b>Påbörja medlemsskap</b></font></a>
<br>
<br></td>
<td><img src="../../images/clubs/<%=RecSet("ClubId")%>/1.jpg" width="75" height="56"><br> <br></td>
</tr>
<%Y = Y + 1
RecSet.MoveNext
Loop
End If
%>
</table>
<%If Sidor > 1 Then%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td style="border-top: 1px solid #000000">
<%If (Int(sida)) <> 1 Then%>
<a href="utestallen.asp?sida=<%=(Int(sida)-1)%>"><b>Bakåt</b></a> |
<%Else
Response.Write ""
End If%>
<%For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><b><%=Sid%></b><%Else%>
<a href="utestallen.asp?sida=<%=Sid%>"><%=Sid%></a>
<%
End If
Next%>
<%If (Int(sida)) <> (Int(Sidor)) Then%>
| <a href="utestallen.asp?sida=<%=(Int(sida)+1)%>"><b>Framåt</b></a>
<%Else
Response.Write ""
End If%>
</td>
</tr>
</table>
<%End If%>