4 svar · 147 visningar · startad av anhel96
Jag har ett litet medlemsregister. Ett av fälten som användarna kan fylla i vad gäller sina personuppgifter gäller ICQ-nr. Från ICQ's hemsida plockade jag nedanstående kod som skapar en liten indikator om en person är online eller offline. Nu är det bara så att vissa inte använder ICQ och därför inte fyllt i nåt nummer där. Det som händer då om jag gör en listning av alla medlemmar och lägger in denna kod också är att det endast hamnar en ful bild-platshållare hos de personer som inte har ICQnr. Hur kan jag styra detta när jag hämtar datan från databasen, eller när jag gör listningen?
Här är en förkortad variant av min kod: (innan har jag givetvis öppnat databasen och skapat en connection.)
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="98">
<%
Set RS = Connection.Execute(SQLStmt)
Do Until RS.EOF
%>
<tr bgcolor="#FFFFDC">
<td height="15">
<p style="border-top-style: outset"><span class="newstopic"><font face="Verdana" size="1"><b>Namn:</b> </span><span class="text"><%=RS("ForNamn") & " "%><%=RS("EfterNamn")%></span></p></font></td>
</tr>
<tr bgcolor="#FFFFDC">
<td height="15"><span class="newstopic"><font face="Verdana" size="1"><b>ICQ-nr:</b></span><span class="text"><%=RS("ICQ")%></span></font>
<img src="http://wwp.icq.com/scripts/online.dll?icq=\<%=RS("ICQ")%>&img=1">
</td>
</tr>
<%
RS.MoveNext
Loop
RS.Close
Connection.Close
%>
</table>
om listan endast skall innehålla de personer som har icq, så får du ju ha med ett litet where i sql-satsen.
annars: lägg till en liten if-sats runt den tabellraden som skriver ut icq-informationen.
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
let's look for treasure!</A>
Gjorde enlogt nedan, för att även pseroner utan ICQ ska listas.
MEN, det fungerar inte. Första personen i listan listas perfekt med ICQ, den andra personen har inte ICQ och listas också perfekt, men på den tredje personen ballar det ur. Denna person har ICQ men det stoppar på raden E-post och följande personer efter denna kommer inte alls med. Får följande felmeddelande:
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: '[string: ""]'
/login/member.asp, rad 168
Min kod:
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="98">
<%
Set RS = Connection.Execute(SQLStmt)
Do Until RS.EOF
%>
<tr bgcolor="#FFFFDC">
<td height="15">
<p style="border-top-style: outset"><span class="newstopic"><font face="Verdana" size="1"><b>Namn:</b> </span><span class="text"><%=RS("ForNamn") & " "%><%=RS("EfterNamn")%></span></p></font></td>
</tr>
<%
If RS("ICQ") Then
%>
<tr bgcolor="#FFFFDC">
<td height="15"><span class="newstopic"><font face="Verdana" size="1"><b>ICQ-nr:</b></span><span class="text"><%=RS("ICQ")%></span></font>
<img src="http://wwp.icq.com/scripts/online.dll?icq=\<%=RS("ICQ")%>&img=1">
</td>
</tr>
<%
End If
%>
<%
RS.MoveNext
Loop
RS.Close
Connection.Close
%>
</table>
Ojdå, gick för snabbt där, en massa stavfel. :-)
If RS("ICQ") <> "" then
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
let's look for treasure!</A>
