Hej
Skulle behöva hjälp med ett asp script.
Scriptet ser ut så här och är från joakimwebs länkarkiv4:
<%
Response.Write "<font face='Verdana' size='1'>"
Response.Write "<a href='klick.asp?id=" & RecSet("id") & "' target='_blank' title='" & RecSet("text") & "' OnClick='javascript:location.reload()'>"
namn = RecSet("namn")
namn = Replace(namn,":","")
namn = Replace(namn,"[","")
namn = Replace(namn,"]","")
namn = Replace(namn,"#","")
namn = Replace(namn,"!","")
namn = Replace(namn,"<","")
namn = Replace(namn,">","")
IF Left(namn,1) = "." then
namn = Replace(namn,".","",1,1)
END IF
IF Left(namn,1) = "." then
namn = Replace(namn,".","",1,1)
END IF
IF Left(namn,1) = "." then
namn = Replace(namn,".","",1,1)
END IF
IF Right(namn,1) = "." then
start = Len(namn) + (-2)
namn = Replace(namn,".","",1,start)
END IF
IF Right(namn,1) = "." then
start = Len(namn) + (-2)
namn = Replace(namn,".","",1,start)
END IF
IF Right(namn,1) = "." then
start = Len(namn) + (-2)
namn = Replace(namn,".","",1,start)
END IF
namn2 = Ucase(Left(namn,1))
namn2 = namn2 & Lcase(mid(namn,2,cint(len(namn)-1)))
IF Len(namn2) > 25 then
namn3 = Rtrim(Left(namn2,22))
blanksteg = InStrRev(namn3," ")
IF len(namn3) - blanksteg > 0 then
namnet = namn3 & "..."
ELSE
namnet = Rtrim(Left(namn3,Len(namn3))) & "..."
END IF
ELSE
namnet = namn2
END IF
Response.Write namnet & "</a>"
Response.Write " [" & RecSet("klick") & "]" %>
Det jag vill är att beskrivningen som visas när man för musen över länken title='" & RecSet("text") ska istället visas i en tabellruta under länken.
Kan någon hjälpa mig med det?
