webForumDet fria alternativet

Om fält x = y skriv då ...

ASP

10 svar · 426 visningar · startad av McD

Medlem sedan mars 20002 520 inlägg
Frågan#1

:D älskar min rubrik men det är precis det jag är ute efter...

Om fältet "forklaring" är = "n/a" (finns i databasen i fältet forklaring)

Skriv då till ...

"Anledningen till att det inte finns någon förklaring till detta bla bla bla"

Dvs

=============================================
Förklaring: n/a

Anledningen till att det inte finns någon förklaring till detta bla bla bla
=============================================

Medlem sedan juli 20011 084 inlägg
#2
if(rs("forklaring") = "n/a") Then
  Response.Write "Anledningen till att det inte finns någon förklaring till detta bla bla bla"
end if

Borde väl fungera? :q :OO

(du skriver ju i princip det själv, fast på svenska)

Om = if
fältet "forklaring" = rs("forklaring")
är = "n/a" (finns i databasen i fältet forklaring) = "n/a"

Skriv då till .. = Then Response.Write...

Medlem sedan mars 20002 520 inlägg
#3

förlåt men glömde skriva det ser ut så här idag...

<%=Free(FixLink(rs("forklaring")))%>
<%if Free(FixLink(rs("forklaring"))) = 'n/a') Then
  Response.Write "Anledningen till att det inte finns någon förklaring till detta bla bla bla"
end if%>

Syntax error
/paike/paikebans/default.asp, line 231, column 37
if Free(FixLink(rs("forklaring"))) = 'n/a') Then

Nä har även testat med...

                  <%If Rs("forklaring") = "n/a" then %>
                  <i>Om det inte finns n&aring;gon f&ouml;rklaring till din ban 
                  beror detta p&aring; att du &auml;r bannad av HLGuard / Scirpt 
                  p&aring; servern eller att du bannades innan detta system inf&ouml;rdes.</i> 
                  <%Else%>
                  <%=Free(FixLink(rs("forklaring")))%>
                  <%End if%>

Funkar inte heller :(

Microsoft VBScript runtime (0x800A005E)
Invalid use of Null: 'Replace'
/paike/default/functions.inc, line 206

Medlem sedan juni 200032 967 inlägg
#4

Och vilken är rad 206? Du kan inte använda replace på null, så det måste du hantera.

Medlem sedan mars 20002 520 inlägg
#5

jag vill inte använda replace...

jag har skrivit in i databasen på hur många ställen som helst "n/a"

och när det står "n/a" vill jag det ska komma fram mer text...

  <i>Om det inte finns någon förklaring till din ban 
                  beror detta på att du är bannad av HLGuard / Scirpt 
                  på servern eller att du bannades innan detta system infördes.</i>

fattar mig inte på detta kör jag med <%=Free(FixLink(rs("forklaring")))%>

så får jag ut från databasen "n/a" genom att det är inskriviet i fältet forklaring alltså helt rätt...

är forklaring i databasen "Du är bannad för att du inte kan betedig!" så kommer det fram...

Function FixLink(strText)
		 'strText = Server.HTMLEncode(strText)
		 strText = Replace(strText,VbCrLf,VbCrLf&" <br> ") 
		 HyperArray = Split(strText)
		 For Each ord in HyperArray
		 if Len(ord) > 7 then
		 ord2 = ord
		 if Lcase(left(ord,7)) = "http://" then
		 strText2=strText2 & "<a href='"&ord&"' target=""_blank"">"&FixLen2(ord2,70)&"</a> "
		 elseif InStr(ord,"@")>1 then
		 strText2=strText2 & "<a href='mailto:"&ord&"'>"&FixLen2(ord2,70)&"</a> "
		 elseif Lcase(left(ord,4)) = "www." then
		 strText2=strText2 & "<a href='http://"&ord&"' target=""_blank"">"&FixLen2(ord2,70)&"</a> "
		 else
		 strText2=strText2&ord&" "
		 end if
		 else
		 strText2=strText2&ord&" "
		 end if
		 next
		 FixLink = strText2
End Function

men den funktionen fungerar som sagt var...

Medlem sedan juni 200032 967 inlägg
#6

jag vill inte använda replace...

Det är ju det du gör i funktionen, och det är därför du får ett felmeddelande. Lägg denna rad överst i funktionen så slipper du felmeddelandet i alla fall:

strText = "" & strText
Medlem sedan mars 20002 520 inlägg
#7

Jo sant då funka det ... MEN då skriver det inte ut förklaringen om det finns någon... :(

Detta funkar men förklaringen skrivs aldrig ut efter att jag laggt in din strText i min funktion..

                  <%If Rs("forklaring") = "n/a" then %>
                  <i>Om det inte finns n&aring;gon f&ouml;rklaring till din ban 
                  beror detta p&aring; att du &auml;r bannad av HLGuard / Scirpt 
                  p&aring; servern eller att du bannades innan detta system inf&ouml;rdes.</i> 
                  <%Else%>
                  <%=Free(FixLink(rs("forklaring")))%>
                  <%End if%>

Här är hela coden till mitt stycke.. Den funka klockrent...
men inte när jag försöker med det översta...

      <table width="96%" border="1" cellspacing="0" cellpadding="4" bordercolor="#FF0000">
        <tr> 
          <td> 
            <table width="99%" border="0" cellspacing="0" cellpadding="0" bordercolor="#FF0000" align="center">
              <tr> 
                <td><b>Datum: </b><%=Left(rs("adat"),10)%>&nbsp;&nbsp;&nbsp;&nbsp;<b>SteamID</b>:&nbsp;<%=rs("steamid")%>&nbsp;&nbsp;&nbsp;&nbsp;<b>Nick: 
                  </b><%=rs("nick")%>&nbsp;&nbsp;&nbsp;&nbsp;<b>Admin:</b> <%=rs("Admin")%><br>
                  <hr>
                  <br>
                  <b>F&ouml;rklaring: </b> <%=Free(FixLink(rs("forklaring")))%> 
                  <br>
                  <br>
                  <b>Ban Tid</b>:&nbsp; 
                  <%If Rs("tid") = 0 then %>
                  <font color="#FF0000"><b>Permanent Ban</b></font> 
                  <%Else%>
                  <font color="#FFFF00"><%=rs("tid")%> Min</font> 
                  <%End if%>
                 <br>
                  <br>
                  &raquo; <a href="default.asp?sida=forum&fID=4&visa=las&id=3808">Har 
                  du synpunkter g&auml;llande detta l&auml;s denna forumtr&aring;d</a><br>
                  <br>
                  &raquo; <a href="default.asp?sida=paikebans">Tillbaka</a> <br>
                  <br>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
Medlem sedan juni 200032 967 inlägg
#8

Prova:

                  <% sForklaring = "" & Rs("forklaring")
                  If sForklaring = "n/a" then %>
                  <i>Om det inte finns någon förklaring till din ban 
                  beror detta på att du är bannad av HLGuard / Scirpt 
                  på servern eller att du bannades innan detta system infördes.</i> 
                  <% 
                  Else
                           Response.write Free(FixLink(sForklaring))
                  End if
                  %>
Medlem sedan mars 20002 520 inlägg
#9

Det funkade tack @nders...

Var det mitt "n/a" (typ reserverat ord) som togs som nått annat... då det gick o göra så längre ner på tiden?

Medlem sedan juni 200032 967 inlägg
#10

Nej, det beror antagligen på att fältet forklaring är av typen PM / Memo. Under vissa förutsättningar blir det knas då.

Medlem sedan mars 20002 520 inlägg
#11

aa stämmer bra det är PM :)

Fältet tid var vanlig text

Tack...

261 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
135 ms — hämta tråd, inlägg och bilagor (db)
118 ms — ändringar (db)