ASP .!.!.

kan gøre sådanne:

dim besk
besk = rs ("besked")

'fjern html
besk = Server.HTMLEncode(besk)

'www funktion
besk = LinkString(besk)

response.write(besk)

mvh.
www.questis.dk

vis:

<%
' --------------------------------------------------------------------------------
' web: http://www.kasp.dk
' mail: kasp@kasp.dk
' icq: 113813398
' msn: admin@kasp.dk
' --------------------------------------------------------------------------------
Const adOpenKeyset = 1
Const adLockOptimistic = 3

strMode = Request.QueryString("mode")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("guestbook.mdb") & ";UID=admin;PWD=;"

If Request.Form("Gem") <> "" Then
    strError = ""
    strNavn = Trim(Request.Form("Navn"))
    strEmail = Trim(Request.Form("Email"))
    strKommentar = Trim(Request.Form("Kommentar"))
    If Len(strNavn) = 0 Then
        strError = "<li>Navn, tak !!</li>"
    ElseIf validateEmail(strEmail) = False Then
        strError = "<li>Din rigtige mail !!</li>"
    ElseIf Len(strKommentar) = 0 Then
        strError = "<li>skriv dit tag !!!</li>"
    End If
    If Len(strError) = 0 Then
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM Guestbook WHERE (ID = 0)"
        rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
        If (rs.BOF Or rs.EOF) Then
            rs.AddNew
            rs("Navn") = Server.HTMLEncode(strNavn)
            rs("Email") = Server.HTMLEncode(strEmail)
            rs("Kommentar") = Server.HTMLEncode(strKommentar)
            rs("Dato") = Now()
            rs.Update
        End If
        rs.Close
        Set rs = Nothing
    Else
        strError = "<p><ul><font color=#990000>" & strError & "</font></ul></p>"
        strMode = "add"
    End If
End If
%>

der hvor du vil have den udskrevet, gør du sådanne ( bruger kommentar som eksempel:

dim kom
besk = rs ("kommentar")

'fjern html
kom = Server.HTMLEncode(kom)

response.write(kom)

kan du ikke flytte mit asp script ind i: dim kom
besk = rs ("kommentar")

'fjern html
kom = Server.HTMLEncode(kom)

response.write(kom) så jeg lige kan se..

ved jo ikke hvad du vil have lavet det på... er lidt svært for mig at se hvad du vil med den &:-D

du udskriver jo ligsom ikke noget på den side du viser mig der &:-D

på nogen sidder har de lavet sådan er der står ASP i nogle tables.."som text"
jeg bruger dreamweaver og når jeg sætter et asp, script ind i et table kommer der en gul boks hvor der står asp...jeg vil gerne havde det til at blive vist som text.

ok... på den side hvor du henter din data ind i tabellen, skal du gøre følgende i tabellen hvor det skal skrives, hvis du henter det fra database:

Dim kode
kode = rs("den kolonne du henter i db")

'fjern html
kode = server.HTMLEncode(kode)

response.write(kode)

du forstår ikke

så prøv at forandre din forklaring så kunne jeg måske finde ud af hvad du vil, det er sku ikke nemt når man bare for slynget en sådanne kommentar i hovedet "du forstår ikke" efter at have siddet et kvarter og prøvet at hjælpe dig.....

Du vil se koden i dreamweaver ikk? Så du kan redigere i den? Eller vil du vise et kode eksempel på din side... og dreamweaver laver det om til et "rigtigt" script?

Rock on,
rxFTP

rxFTP, jeg vil vise et kode eksempel af asp på min side

Så skal du bare kopiere din source ud på siden...
Altså du vælge den kode du gerne vil vise på din side, kopiere den.
Så vælger du design view og paster din kode der hvor du vil have den... så lave dw koden om til normal HTML og du vil kunne se den...
Det er kun hvis du sætter koden ind i code view at du får det omtalte problem...

design view ? dreamwaver hvor ligger det ?

Det ligger her..
Code view:
View -> Code
Design view:
View -> Design

Rock on,
rxFTP

IKKE I DREAMWEAVER 3.0

hmm ok så er det nok derfor ;)
du må da kunne se kildekoden? prøv at trykke F10 mener jeg så kommer der en code inspector frem... eller kik i window menuen...

lukketid ?