Max karakter ASP
Hejsa NG.Jeg bruger følgende kode for at trække nogle ting ud af databasen.
<%
Sub TopListe(intLen, intType) ' intType: 1 - Bruges til toplisten ved stemmer | 2 - Bruges til de seneste uden data | 3 - Bruges til de senste med data
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("Provider")
Select Case intType
Case 1 Sql = "SELECT Trailer.Titel, Karakter.id, Karakter.stemmer, Karakter.sum FROM Karakter INNER JOIN Trailer ON Karakter.Id = Trailer.Id WHERE Karakter.sum > 0 ORDER BY (Karakter.sum/Karakter.stemmer) DESC"
Case 2 Sql = "SELECT Titel, Ext_Link FROM Trailer WHERE (IsDate(dato) AND (Detalje = 0)) ORDER BY id DESC"
Case 3 Sql = "SELECT id, titel FROM Trailer WHERE Detalje = True ORDER BY id DESC"
Case 4 Sql = "SELECT titel, ext_link FROM Trailer WHERE Detalje = False ORDER BY dato DESC"
Case Else Response.write("Error: Contact - soes_dk@msn.com")
End Select
Set Rs = Conn.Execute(Sql)
If Rs.EOF THEN
Response.write("Lær at skrive noget ordentlig SQL")
ElseIf (intType = 1) OR (intType = 3) THEN
Do
i = i + 1
Response.write(i & ". <a href='trailer.asp?Id="& Rs("id") &"'>" & Rs("Titel") & "</a><br>" & Vbcrlf)
Rs.MoveNext
Loop Until i = intLen OR Rs.EOF
Elseif (intType = 2) OR (intType = 4) THEN
Do
i = i + 1
Response.write(i & ". <a href='"& Rs("ext_link") &"' target='_new'>" & Rs("Titel") & "</a><br>" & Vbcrlf)
Rs.MoveNext
Loop Until i = intLen OR Rs.EOF
End If
Conn.Close
Set Conn = Nothing
End Sub
%>
Der hvor jeg trækker dem ud, er højre side af siden:
http://www.trailersiden.dk
Men hvis ordet er langt bliver det delt, og DET synes jeg er træls, jeg ville gerne 1->10 var lige under hinanden. Er det muligt at korte karaktererne ned, så man f.eks bare viser ... efter det?
