nya funktionsproblem

3 svar · 144 visningar · startad av timedia 22 nov. 2001

timediaMedlem sedan maj 2001420 inlägg

Frågan22 nov. 2001 17:03#1

Jag har följande funktion som med webforums hjälp fungerar över all förväntan :)

function memberrec()

SQLlist = "SELECT * FROM MemberRec WHERE MrFilmID = " & request("Id")

Set RS = Connect.Execute(SQLlist)
RS.Cachesize = 1

if not (RS.eof and RS.bof) then
DO UNTIL RS.EOF

  response.write RS("MrMemberBetyg") & "<br>"
  response.write RS("MrMemberRec")  & "<br>"
  response.write "<b>" & RS("MrMemberSignatur") & "</b><br><br>"
  RS.MoveNext
Loop
  
else
  response.write "Inga recensioner skrivna av våra medlemmar"
end if

RS.Close

End Function

Problemet nu består i att jag har en annan funktion också, och jag får inte dom två "att jobba ihop". Hur ska jag få ovanstående funktion att visa tärningen i stället för värdet?

function memberbetyg()

SQLlist = "SELECT * FROM MemberRec WHERE MrFilmID = " & request("Id")

Set RS = Connect.Execute(SQLlist)
RS.Cachesize = 4

if RS("MrMemberBetyg") = 7 THEN
  response.write "<img src='images/tern7.gif'" 
  response.write "'>"
  
  RS.MoveNext
else
if RS("MrMemberBetyg") = 6 THEN
  response.write "<img src='images/tern6.gif'" 
  response.write "'>"
  
  RS.MoveNext
else
if RS("MrMemberBetyg") = 5 THEN
  response.write "<img src='images/tern5.gif'" 
  response.write "'>"
  
  RS.MoveNext
else
if RS("MrMemberBetyg") = 4 THEN
  response.write "<img src='images/tern4.gif'" 
  response.write "'>"
  
  RS.MoveNext
else  
if RS("MrMemberBetyg") = 3 THEN
  response.write "<img src='images/tern3.gif'" 
  response.write "'>"
  
  RS.MoveNext
else  
if RS("MrMemberBetyg") = 2 THEN
  response.write "<img src='images/tern2.gif'" 
  response.write "'>"
  
  RS.MoveNext  
else  
if RS("MrMemberBetyg") = 1 THEN
  response.write "<img src='images/tern1.gif'" 
  response.write "'>"
  
  RS.MoveNext  
else
  response.write "<br><b>Ingen Bild??</b><br>"
end if
end if
end if
end if
end if
end if
end if
RS.Close

End Function
%>

------------------
www.moviemix.nu

[Redigerat av timedia den 22 nov 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

22 nov. 2001 17:15#2

Gör om funktionen lite

function memberbetyg(betyg)

if betyg >= 1 and betyg <= 7 then
   bild = "<IMG src='images/tern" & betyg & ".gif'>" 
else
bild =  "<b>Ingen Bild??</b>"
end if
memberbetyg = bild
End Function

och sedan i din utskrift kan du göra så här

DO UNTIL RS.EOF

response.write memberbetyg(RS("MrMemberBetyg")) & "<br>"
response.write RS("MrMemberRec") & "<br>"
response.write "<b>" & RS("MrMemberSignatur") & "</b><br><br>"
RS.MoveNext
Loop

En funktion skall inte innehålla response.write

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 22 nov 2001]

timediaMedlem sedan maj 2001420 inlägg

22 nov. 2001 17:24#3

Tack. Funkar som en dröm :)

En funktion bör inte inte innehålla response.write

Är det dumt att fråga varför? Jag har isåfall en hel del att rätta till :)

------------------
www.moviemix.nu

LarsGMedlem sedan dec. 200012 464 inlägg

22 nov. 2001 17:29#4

Om du vill lägga in utskrifter så kan du använda en sub.

En funktion används för att returnera ett värde som man sedan använder i andra uttryck. Det ger mycket smidigare kod och större möjlighet till återanvändning.

------------------
essentitia preter non sans multiplicandum