asp

streng = \"vasdasdsaasddsasd\"
nystreng = left(streng, 5)

et eksempel;

if len(rs(\"feltnavn\")) > 10 then
    response.write left(rs(\"feltnavn\"),10) & \"...\"
else
    response.write rs(\"feltnavn\")
end if

streng = \"Information\"
nystreng = left(streng, 5)

dette eksempel er ved udtræl fra en database... og måske skulle de \"10\" nok byttes ud med 5 ;o)

jeg indsætter lige min script her, så jeg kan vide hvor jeg skal indsætte dette i har skrevet :)

<%
\' --------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"nyheder/news.mdb\") & \";UID=admin;PWD=;\"
If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strKommentar = Trim(Request.Form(\"Kommentar\"))
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT  * FROM news WHERE (ID = 0)\"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs(\"Overskrift\") = strNavn
        rs(\"Kommentar\") = strKommentar
        rs(\"Dato\") =Date()
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
End If
%>
                      <div align=\"left\"></div>
                      <div align=\"left\"><b>
                        <%Select Case strMode
Case \"add\"
%>
                        <%
Case Else
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT top 3 * FROM news ORDER BY Dato DESC;\"
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<table border=0 cellpadding=3 cellspacing=0>\"
        Do While Not rs.EOF
Select Case weekday(rs(\"Dato\"))
case 1 dag = \"Søndag\"
case 2 dag = \"Mandag\"
case 3 dag = \"Tirsdag\"
case 4 dag = \"Onsdag\"
case 5 dag = \"Torsdag\"
case 6 dag = \"Fredag\"
case 7 dag = \"Lørdag\"
End Select

Select Case month(rs(\"Dato\"))
case 1 maaned = \" januar \"
case 2 maaned = \" februar \"
case 3 maaned = \" marts \"
case 4 maaned = \" april \"
case 5 maaned = \" maj \"
case 6 maaned = \" juni \"
case 7 maaned = \" juli \"
case 8 maaned = \" august \"
case 9 maaned = \" september \"
case 10 maaned = \" oktober \"
case 11 maaned = \" november \"
case 12 maaned = \" december \"
End Select

Response.Write \"<font face=arial size=2><b>\" & rs(\"Overskrift\") & \"</br>\"
            rs.MoveNext
        Loop
        Response.Write \"</table>\"
    Else
        Response.Write \"<p><font face=arial size=2>Der er endnu ikke nogle nyheder i databasen endnu</font></p>\"
    End If
    myConn.Close
    Set myConn = Nothing
End Select
%>

ja... hvis det er overskriften der skal fixes;

Response.Write \"<font face=arial size=2><b>\" & rs(\"Overskrift\") & \"</br>\"

=

Response.Write \"<font face=arial size=2><b>\"
if len(rs(\"feltnavn\")) > 10 then
    response.write \"\" & left(rs(\"Overskrift\"),5)& \"...\"\"
else
    response.write \"\" & rs(\"Overskrift\") & \"\"
end if
  response.write \"</br>

hov...

Response.Write \"<font face=arial size=2><b>\"
if len(rs(\"feltnavn\")) > 5 then
    response.write \"\" & left(rs(\"Overskrift\"),5)& \"...\"\"
else
    response.write \"\" & rs(\"Overskrift\") & \"\"
end if
  response.write \"</br>\"

fejl !!!:

Microsoft VBScript compilation error \'800a0409\'

Unterminated string constant

/falastin/pal.asp, line 352

response.write \"\" & left(rs(\"Overskrift\"),5)& \"...\"\"
----------------------------------------------------^


scripten:
<%
\' --------------------------------------------------------------------------------
\' Dette eksempel er skrevet af Dennis Knappe
\' Og omskrevet af Lars Hansen/Ole H. hansen  - logiweb.dk
\' Eksemplet kan downloades fra http://www.activeserverpages.dk, og er freeware
\' --------------------------------------------------------------------------------
strMode = Request.QueryString(\"mode\")
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"nyheder/news.mdb\") & \";UID=admin;PWD=;\"
If Request.Form(\"Gem\") <> \"\" Then
    strNavn = Trim(Request.Form(\"Overskrift\"))
    strKommentar = Trim(Request.Form(\"Kommentar\"))
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT  * FROM news WHERE (ID = 0)\"
    rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
    If (rs.BOF Or rs.EOF) Then
        rs.AddNew
        rs(\"Overskrift\") = strNavn
        rs(\"Kommentar\") = strKommentar
        rs(\"Dato\") =Date()
        rs.Update
    End If
    rs.Close
    Set rs = Nothing
End If
%>
                      <div align=\"left\"></div>
                      <%Select Case strMode
Case \"add\"
%>
                      <%
Case Else
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT top 3 * FROM news ORDER BY Dato DESC;\"
    myConn.Open tempConn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<table border=0 cellpadding=3 cellspacing=0>\"
        Do While Not rs.EOF
Select Case weekday(rs(\"Dato\"))
case 1 dag = \"Søndag\"
case 2 dag = \"Mandag\"
case 3 dag = \"Tirsdag\"
case 4 dag = \"Onsdag\"
case 5 dag = \"Torsdag\"
case 6 dag = \"Fredag\"
case 7 dag = \"Lørdag\"
End Select

Select Case month(rs(\"Dato\"))
case 1 maaned = \" januar \"
case 2 maaned = \" februar \"
case 3 maaned = \" marts \"
case 4 maaned = \" april \"
case 5 maaned = \" maj \"
case 6 maaned = \" juni \"
case 7 maaned = \" juli \"
case 8 maaned = \" august \"
case 9 maaned = \" september \"
case 10 maaned = \" oktober \"
case 11 maaned = \" november \"
case 12 maaned = \" december \"
End Select

Response.Write \"<font face=arial size=2><b>\"
if len(rs(\"feltnavn\")) > 5 then
    response.write \"\" & left(rs(\"Overskrift\"),5)& \"...\"\"
else
    response.write \"\" & rs(\"Overskrift\") & \"\"
end if
  response.write \"</br>\"   
            rs.MoveNext
        Loop
        Response.Write \"</table>\"
    Else
        Response.Write \"<p><font face=arial size=2>Der er endnu ikke nogle nyheder i databasen endnu</font></p>\"
    End If
    myConn.Close
    Set myConn = Nothing
End Select
%>

i linje 352 skal det stå:

response.write \"\" & left(rs(\"Overskrift\"),5)& \"...\"

/nute

tak for hjælpen keysersoze...og tak for den lille fejl nute :)

keysersoze og nute >> Hvorfor var i der ikke idag da jeg havde brug for hjælp ? :-)

http://www.eksperten.dk/spm/61559

var opptatt med andre ting :-|

var optaget med andre ting :-|

;o)