Tja! Jag har en kod som rätar till URLer! Men jag vill också han en som skriver ut smilies! Hur skriver man då, eller om det går överhuvudtaget! Så här ser båda koderna ut!
<%=Smiley(RecSet("meddelande"))%>
och
<%=fixaLankar(RecSet("meddelande"))%>
Undrar om det går att sätta ihop! Vill inte ladda upp om det inte går! Många som använder den plattsen!
Och på en annan sida får jag detta fel:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '2'
/profil.asp, line 279
Men det kommer bara om man är den FÖRSTA som besöker sidan....
if rsv("visits")<>"blah" Then
'splitta!
visitors=rsv("visits")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista,
lay=2
for p=0 to lay
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>")
next
else
response.write("Ingen har varit här=(<br>")
end if
hehehe!!! Tack! Men jag tar om min andra fråga!
Så här blir det på en profil som om man är den första besökaren så kommer detta upp:
Microsoft VBScript runtime error '800a0009'
Subscript out of range: '2'
/profil.asp, line 279
så här e koderna runt!:
if rsv("visits")<>"blah" Then
'splitta!
visitors=rsv("visits")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista,
lay=2
for p=0 to lay
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>")
next
else
response.write("Ingen har varit här=(<br>")
end if
if rsv("visits")<>"blah" Then
'splitta!
visitors=rsv("visits")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista,
lay=2
[b]for p=0 to ubound(visit_array) [/b]
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>")
next
else
response.write("Ingen har varit här=(<br>")
end if
Funktionen ubound() hämtar automatiskt den post som är högst i array:en. Eftersom 2 inte finns, så hamnar slingan 'out of range', precis som felmeddelandet säger. :)
if rsv("visits")<>"blah" Then
'splitta!
visitors=rsv("visits")
visit_array=Split(visitors,"*", -1, 1)
'ta bort sista,
If ubound(visit_array) < 2 then
lay = ubound(visit_array)
else
lay=2
end if
for p=0 to lay
response.write("<a href=""profil.asp?se=" & visit_array(p) & _
""">" & visit_array(p) & "</a><br>")
next
else
response.write("Ingen har varit här=(<br>")
end if
