Søg
Avatar billede jesper2003 Nybegynder
25. februar 2005 - 21:42 Der er 9 kommentarer og
1 løsning

Hmm hvor dan??

Når man eks klikker på enter i denne kode så går den automatisk en linje ned i teksten når man klikker opdater

<%
        ' åbner databasen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=wui;USER=wjk;PASSWORD=kk;OPTION=3;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From ja_velkommen"
rs.open strSQL , conn, 1, 3

' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
    rs.update
    rs("velkommen") = Request.form("velkommen")

    rs.update
    Response.Write("<br><center>Forsiden er nu blevet opdateret</FONT></center>")
    end if
%>
      </font>
                                      <p align="center" style="margin-top: 0; margin-bottom: 0">
                                    <b><a target="_blank" href="tags.asp">Tags</a></b><form method=POST action=edit_index.asp>
        <table width="99%" border="0" cellspacing="0" cellpadding="3">
          <tr>
            <td class="skrift" width="140">
            <p style="margin-top: 0; margin-bottom: 0">
            <font face="Verdana" size="1">Rediger Forsiden</font></td>
            <td width="259">
            <p style="margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1">
            <textarea rows="10" name="velkommen" cols="43"><%=RS("velkommen")%></textarea>
            </font>
            </td>
          </tr>
          <tr>
            <td colspan="2">
            <p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1">
                <input type=submit value=opdater name="Submit" class="bottom">&nbsp;&nbsp;&nbsp; </font>
            <a href="edit_index.asp">Opdater listen</a></td>
Avatar billede steen_hansen Forsker
25. februar 2005 - 21:46 #1
Jeg er ikke helt med på hvad du mener. Når du trykker på submit, så rykkes et eller andet en linie ned?

Du bør benytte styles til dine fonte - ville jeg da gøre :)
Avatar billede jesper2003 Nybegynder
25. februar 2005 - 21:48 #2
Jeg mener lave et linje skifte sådan her



Det virker ikke med den kode jeg har lavet
Avatar billede steen_hansen Forsker
25. februar 2005 - 21:55 #3
Jeg er stadig ikke med, Jesper. Du vil have lavet et linieskift, eller laver koden et linieskift, som den ikke skal?

Du har afsluttet dine tags, ikke?

<font ....>

<%
' åbner databasen
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=db.guf4you.dk;DATABASE=wui;USER=wjk;PASSWORD=kk;OPTION=3;"

        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "Select * From ja_velkommen"
        rs.open strSQL , conn, 1, 3

' udskifter felternes oplysninger
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
        rs.update
        rs("velkommen") = Request.form("velkommen")
        rs.update
        Response.Write("<br><center>Forsiden er nu blevet opdateret</FONT></center>")
    end if
%>

</font>
<p align="center" style="margin-top: 0; margin-bottom: 0"><b><a target="_blank" href="tags.asp">Tags</a></b>
<form method=POST action=edit_index.asp>
    <table width="99%" border="0" cellspacing="0" cellpadding="3">
        <tr>
            <td class="skrift" width="140"><p style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1">Rediger Forsiden</font></td>
            <td width="259"><p style="margin-top: 0; margin-bottom: 0"> <font face="Verdana" size="1"><textarea rows="10" name="velkommen" cols="43"><%=RS("velkommen")%></textarea></font></td>
        </tr>
        <tr>
            <td colspan="2"><p align="center" style="margin-top: 0; margin-bottom: 0"><font face="Verdana" size="1"><input type=submit value=opdater name="Submit" class="bottom">&nbsp;&nbsp;&nbsp;</font><a href="edit_index.asp">Opdater listen</a></td>
        </tr>
    </table>
</form>
Avatar billede eagleeye Praktikant
25. februar 2005 - 22:03 #4
I HTML er linje skift <br> i et form textarea er linjeskift enter knappen eller konstanten vbCrLf så du skal replace vbCrLf med "<br>" for at få vist linje sift på siden:

tekst = Request.Form("form_felt")
tekst = replace(tekst,vbCrLf,"<br>")
response.write tekst
Avatar billede jesper2003 Nybegynder
25. februar 2005 - 22:06 #5
Alser når man laver et linje skift i boxen så laver den en linje skift i teksten også det gør min kode ikke
Avatar billede eagleeye Praktikant
25. februar 2005 - 22:11 #6
Hvis du ændre enter tasten til <br> inden du gemmer teksten i databasen så skal du på samme måde replace <br> med vbCrLf for at få vist linje skift i textarea'et når du vil rette i teksten:

<%=replace(RS("velkommen"),"<br>",vbCrLf)%>
Avatar billede jesper2003 Nybegynder
25. februar 2005 - 22:24 #7
Kan du ikke lige lave koden jeg har mega travlt lige nu
Avatar billede jesper2003 Nybegynder
25. februar 2005 - 22:27 #8
Har prøvet at sætte <%=replace(RS("velkommen"),"<br>",vbCrLf)%> ind men det virkede ikke
Avatar billede eagleeye Praktikant
25. februar 2005 - 22:29 #9
Så vidt jeg kan se så skal du faktsik rette to linjer. Der hvor du gemmer teksten i databasen skal du rette vbCrLf til <br> og hvor du henter ind i textareaet er det modsta.

Den føste linje:
    rs("velkommen") = Request.form("velkommen")

Skal være sådan her:
    rs("velkommen") = Replace(Request.form("velkommen"),vbCrLf,"<br>")


Den anden linje:
<textarea rows="10" name="velkommen" cols="43"><%=RS("velkommen")%></textarea>

Skal være sådan her:
<textarea rows="10" name="velkommen" cols="43"><%=replace(RS("velkommen"),"<br>",vbCrLF)%></textarea>
Avatar billede jesper2003 Nybegynder
25. februar 2005 - 23:05 #10
Takker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 16:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
I går 16:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
I går 13:20 Lotus Approach Af Carsten i Andet software
15/1015:34 Epson scanner forbinder ikke til computer Af bbkdk i Printere
11/1013:35 Bruger på Win11 Af lurup i Browsere
White papers
Flere white papers »