Søg
Avatar billede Meggel Novice
18. februar 2004 - 19:51 Der er 14 kommentarer og
2 løsninger

"fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>

if request.form("plusbog") <> "" then
        Function fncTextChange(strText)
            strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"""","''")
            fncTextChange = Replace(strTekst,"'","''")   
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,">","&gt;")
            fncTextChange = Replace(fncTextChange,"<","&lt;")
            fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
            fncTextChange = Replace(fncTextChange,"å","&aring;")
            fncTextChange = Replace(fncTextChange,"æ","&aelig;")
            fncTextChange = Replace(fncTextChange,"ø","&oslash;")
            fncTextChange = Replace(fncTextChange,"Å","&Aring;")
            fncTextChange = Replace(fncTextChange,"Æ","&AElig;")
            fncTextChange = Replace(fncTextChange,"Ø","&Oslash;")
        End Function

    indhold = fncTextChange(request.form("hmm"))
set MyConn = Server.CreateObject("ADODB.Connection")
conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
conn = conn & "DBQ=" & server.mappath("admin/louisedenmegasøde.mdb")
MyConn.open conn
sql = "Insert into bog(navn, hmm, mail, dato) VALUES('"&request.form("navn")&"','"&request.form("hmm")&"','"&request.form("mail")&"','"&now()&"')"
set rs = MyConn.execute(sql)
end if
set rs = nothing
%>




<form METHOD="post" ACTION="bog.asp">
Fra:<br>
<input type="text" name="navn"><br>
Din mail:<br>
<input type="text" name="mail"><br>
Din Gæstebogs indlæg her:<br>
<textarea name="hmm" cols="50" rows="10" ></textarea><br>

<input type="submit" name="plusbog" value="Skriv i gæstebog">
</form>

og min form... hva skal jeg gøre for at min skift linie vil virke..
Avatar billede steen Nybegynder
18. februar 2004 - 20:21 #1
Prøv den her i stedet:

<%

Function fncTextChange(strText)
    Dim strTemp
    strTemp = Trim(strText)
    strTemp = Replace(strTemp,"""","''")
    strTemp = Replace(strTemp,"'","''")
    strTemp = HTMLEncode(strTemp)
    fncTextChange = strTemp 
End Function

if request.form("plusbog") <> "" then
    indhold = fncTextChange(request.form("hmm"))
    set MyConn = Server.CreateObject("ADODB.Connection")
    conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    conn = conn & "DBQ=" & server.mappath("admin/louisedenmegasøde.mdb")
    MyConn.open conn
    sql = "Insert into bog(navn, hmm, mail, dato) VALUES('"&request.form("navn")&"','"&request.form("hmm")&"','"&request.form("mail")&"','"&now()&"')"
    set rs = MyConn.execute(sql)
    set rs = nothing
end if
%>




<form METHOD="post" ACTION="bog.asp">
Fra:<br>
<input type="text" name="navn"><br>
Din mail:<br>
<input type="text" name="mail"><br>
Din Gæstebogs indlæg her:<br>
<textarea name="hmm" cols="50" rows="10" ></textarea><br>

<input type="submit" name="plusbog" value="Skriv i gæstebog">
</form>


/Steen
Avatar billede Meggel Novice
18. februar 2004 - 21:03 #2
ja hva kan jeg sige.. der er en fejl.. den siger ikke hva fejlen er.
Avatar billede steen Nybegynder
18. februar 2004 - 21:06 #3
hmmm...  har du en url
Avatar billede Meggel Novice
18. februar 2004 - 21:21 #4
yeps..... www.louiise.tk under gæstebog..
Avatar billede steen Nybegynder
18. februar 2004 - 21:24 #5
Prøv at smide koden her fra bog.asp
Avatar billede Meggel Novice
18. februar 2004 - 21:29 #6
yes gør jeg.. her er de....


<%
<%
if request.form("plusbog") <> "" then
Function fncTextChange(strText)
    Dim strTemp
    strTemp = Trim(strText)
    strTemp = Replace(strTemp,"""","''")
    strTemp = Replace(strTemp,"'","''")
    strTemp = HTMLEncode(strTemp)
    fncTextChange = strTemp 
End Function

    indhold = fncTextChange(request.form("hmm"))
    set MyConn = Server.CreateObject("ADODB.Connection")
    conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    conn = conn & "DBQ=" & server.mappath("admin/louisedenmegasøde.mdb")
    MyConn.open conn
    sql = "Insert into bog(navn, hmm, mail, dato) VALUES('"&request.form("navn")&"','"&request.form("hmm")&"','"&request.form("mail")&"','"&now()&"')"
    set rs = MyConn.execute(sql)
    set rs = nothing
end if
%>
<html>
<head>
<style type="text/css">
a:link {
    color: black;
    text-decoration:none;
}
a:visited {
    color: Black;
    text-decoration:none;
}
a:active {
    text-decoration:none;
}
a:hover {
    color: black;
    text-decoration:none;
}
</style>
<title>Bog</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#C10409" text="#000000" link="#000000">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("admin/louisedenmegasøde.mdb")
Conn.Open DSN
sql = "select * from bog order by dato desc"
set rs = conn.execute(sql)
%>
<%
i = 0
do while not rs.EOF
%>
</p><table border="1" bordercolor="#C10409">
<tr bordercolor="#000000">
<td width="500" height="21">
<table border="1" bordercolor="#c10409">
<tr>
<td width="350" height="21">
<% response.write "Af: <a href='mailto:" & rs.fields("mail") & "'>" &rs.fields("navn") & "</a>" %>

</td>
<td align="left"><% response.Write "" & rs.fields("dato") & "" %></td>
</tr>
</table>
</td>
</tr>
<tr>

<td width="500" bordercolor="#000000" colspan="2"><% response.Write "" & rs.fields("hmm") & "" %></td></tr>
</table><br><br>
<%
rs.movenext
i = i + 1
loop
rs.close
set rs = nothing
%>
Der er ialt skrevet <%=i%> indlæg
<table width="100%" border="1" bordercolor="#000000">
  <tr bordercolor="C10409">
    <TD COLSPAN="2" HEIGHT="1" BGCOLOR="#C10409" width="100%"></TD>
  </tr>
</table>
<form METHOD="post" ACTION="bog.asp">
Fra:<br>
<input type="text" name="navn"><br>
Din mail:<br>
<input type="text" name="mail"><br>
Din Gæstebogs indlæg her:<br>
<textarea name="hmm" cols="50" rows="10" ></textarea><br>

<input type="submit" name="plusbog" value="Skriv i gæstebog">
</form>
</body>
</html>
Avatar billede steen Nybegynder
18. februar 2004 - 21:31 #7
Du havde sådan en her "<%" for meget i linie 1. Det skal se sådan her ud:


<%
if request.form("plusbog") <> "" then
Function fncTextChange(strText)
    Dim strTemp
    strTemp = Trim(strText)
    strTemp = Replace(strTemp,"""","''")
    strTemp = Replace(strTemp,"'","''")
    strTemp = HTMLEncode(strTemp)
    fncTextChange = strTemp 
End Function

    indhold = fncTextChange(request.form("hmm"))
    set MyConn = Server.CreateObject("ADODB.Connection")
    conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    conn = conn & "DBQ=" & server.mappath("admin/louisedenmegasøde.mdb")
    MyConn.open conn
    sql = "Insert into bog(navn, hmm, mail, dato) VALUES('"&request.form("navn")&"','"&request.form("hmm")&"','"&request.form("mail")&"','"&now()&"')"
    set rs = MyConn.execute(sql)
    set rs = nothing
end if
%>
<html>
<head>
<style type="text/css">
a:link {
    color: black;
    text-decoration:none;
}
a:visited {
    color: Black;
    text-decoration:none;
}
a:active {
    text-decoration:none;
}
a:hover {
    color: black;
    text-decoration:none;
}
</style>
<title>Bog</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#C10409" text="#000000" link="#000000">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("admin/louisedenmegasøde.mdb")
Conn.Open DSN
sql = "select * from bog order by dato desc"
set rs = conn.execute(sql)
%>
<%
i = 0
do while not rs.EOF
%>
</p><table border="1" bordercolor="#C10409">
<tr bordercolor="#000000">
<td width="500" height="21">
<table border="1" bordercolor="#c10409">
<tr>
<td width="350" height="21">
<% response.write "Af: <a href='mailto:" & rs.fields("mail") & "'>" &rs.fields("navn") & "</a>" %>

</td>
<td align="left"><% response.Write "" & rs.fields("dato") & "" %></td>
</tr>
</table>
</td>
</tr>
<tr>

<td width="500" bordercolor="#000000" colspan="2"><% response.Write "" & rs.fields("hmm") & "" %></td></tr>
</table><br><br>
<%
rs.movenext
i = i + 1
loop
rs.close
set rs = nothing
%>
Der er ialt skrevet <%=i%> indlæg
<table width="100%" border="1" bordercolor="#000000">
  <tr bordercolor="C10409">
    <TD COLSPAN="2" HEIGHT="1" BGCOLOR="#C10409" width="100%"></TD>
  </tr>
</table>
<form METHOD="post" ACTION="bog.asp">
Fra:<br>
<input type="text" name="navn"><br>
Din mail:<br>
<input type="text" name="mail"><br>
Din Gæstebogs indlæg her:<br>
<textarea name="hmm" cols="50" rows="10" ></textarea><br>

<input type="submit" name="plusbog" value="Skriv i gæstebog">
</form>
</body>
</html>
Avatar billede Meggel Novice
18. februar 2004 - 21:35 #8
hmm nu er der så fejl.. når man smider noget ind..
Avatar billede steen Nybegynder
18. februar 2004 - 21:36 #9
kigger på det
Avatar billede steen Nybegynder
18. februar 2004 - 21:39 #10
<%
if request.form("plusbog") <> "" then
Function fncTextChange(strText)
    Dim strTemp
    strTemp = Trim(strText)
    strTemp = Replace(strTemp,"""","''")
    strTemp = Replace(strTemp,"'","''")
    'strTemp = HTMLEncode(strTemp)
    fncTextChange = strTemp 
End Function

    indhold = fncTextChange(request.form("hmm"))
    set MyConn = Server.CreateObject("ADODB.Connection")
    conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    conn = conn & "DBQ=" & server.mappath("admin/louisedenmegasøde.mdb")
    MyConn.open conn
    sql = "Insert into bog(navn, hmm, mail, dato) VALUES('"&request.form("navn")&"','"&request.form("hmm")&"','"&request.form("mail")&"','"&now()&"')"
    set rs = MyConn.execute(sql)
    set rs = nothing
end if
%>
<html>
<head>
<style type="text/css">
a:link {
    color: black;
    text-decoration:none;
}
a:visited {
    color: Black;
    text-decoration:none;
}
a:active {
    text-decoration:none;
}
a:hover {
    color: black;
    text-decoration:none;
}
</style>
<title>Bog</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#C10409" text="#000000" link="#000000">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("admin/louisedenmegasøde.mdb")
Conn.Open DSN
sql = "select * from bog order by dato desc"
set rs = conn.execute(sql)
%>
<%
i = 0
do while not rs.EOF
%>
</p><table border="1" bordercolor="#C10409">
<tr bordercolor="#000000">
<td width="500" height="21">
<table border="1" bordercolor="#c10409">
<tr>
<td width="350" height="21">
<% response.write "Af: <a href='mailto:" & rs.fields("mail") & "'>" &rs.fields("navn") & "</a>" %>

</td>
<td align="left"><% response.Write "" & rs.fields("dato") & "" %></td>
</tr>
</table>
</td>
</tr>
<tr>

<td width="500" bordercolor="#000000" colspan="2"><% response.Write "" & rs.fields("hmm") & "" %></td></tr>
</table><br><br>
<%
rs.movenext
i = i + 1
loop
rs.close
set rs = nothing
%>
Der er ialt skrevet <%=i%> indlæg
<table width="100%" border="1" bordercolor="#000000">
  <tr bordercolor="C10409">
    <TD COLSPAN="2" HEIGHT="1" BGCOLOR="#C10409" width="100%"></TD>
  </tr>
</table>
<form METHOD="post" ACTION="bog.asp">
Fra:<br>
<input type="text" name="navn"><br>
Din mail:<br>
<input type="text" name="mail"><br>
Din Gæstebogs indlæg her:<br>
<textarea name="hmm" cols="50" rows="10" ></textarea><br>

<input type="submit" name="plusbog" value="Skriv i gæstebog">
</form>
</body>
</html>
Avatar billede Meggel Novice
18. februar 2004 - 21:45 #11
altså.. det virker ligesom før.. når jeg laver line skift bare med enter skal det jo også virker.. men nej.. det gør det ikke..
Avatar billede steen Nybegynder
18. februar 2004 - 21:50 #12
En gang mere:

<%
if request.form("plusbog") <> "" then
Function fncTextChange(strText)
    Dim strTemp
    strTemp = Trim(strText)
    strTemp = Replace(strTemp,"""","''")
    strTemp = Replace(strTemp,"'","''")
    'strTemp = HTMLEncode(strTemp)
    fncTextChange = strTemp 
End Function

    indhold = fncTextChange(request.form("hmm"))
    set MyConn = Server.CreateObject("ADODB.Connection")
    conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    conn = conn & "DBQ=" & server.mappath("admin/louisedenmegasøde.mdb")
    MyConn.open conn
    sql = "Insert into bog(navn, hmm, mail, dato) VALUES('"&request.form("navn")&"','"&request.form("hmm")&"','"&request.form("mail")&"','"&now()&"')"
    set rs = MyConn.execute(sql)
    set rs = nothing
end if
%>
<html>
<head>
<style type="text/css">
a:link {
    color: black;
    text-decoration:none;
}
a:visited {
    color: Black;
    text-decoration:none;
}
a:active {
    text-decoration:none;
}
a:hover {
    color: black;
    text-decoration:none;
}
</style>
<title>Bog</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#C10409" text="#000000" link="#000000">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("admin/louisedenmegasøde.mdb")
Conn.Open DSN
sql = "select * from bog order by dato desc"
set rs = conn.execute(sql)
%>
<%
i = 0
do while not rs.EOF
%>
</p><table border="1" bordercolor="#C10409">
<tr bordercolor="#000000">
<td width="500" height="21">
<table border="1" bordercolor="#c10409">
<tr>
<td width="350" height="21">
<% response.write "Af: <a href='mailto:" & rs.fields("mail") & "'>" & Replace(rs.fields("Navn"),VbCrlf,"<br>") & "</a>" %>

</td>
<td align="left"><% response.Write "" & rs.fields("dato") & "" %></td>
</tr>
</table>
</td>
</tr>
<tr>

<td width="500" bordercolor="#000000" colspan="2"><% response.Write "" & Replace(rs.fields("hmm"),VbCrlf,"<br>") & "" %></td></tr>
</table><br><br>
<%
rs.movenext
i = i + 1
loop
rs.close
set rs = nothing
%>
Der er ialt skrevet <%=i%> indlæg
<table width="100%" border="1" bordercolor="#000000">
  <tr bordercolor="C10409">
    <TD COLSPAN="2" HEIGHT="1" BGCOLOR="#C10409" width="100%"></TD>
  </tr>
</table>
<form METHOD="post" ACTION="bog.asp">
Fra:<br>
<input type="text" name="navn"><br>
Din mail:<br>
<input type="text" name="mail"><br>
Din Gæstebogs indlæg her:<br>
<textarea name="hmm" cols="50" rows="10" ></textarea><br>

<input type="submit" name="plusbog" value="Skriv i gæstebog">
</form>
</body>
</html>
Avatar billede Meggel Novice
18. februar 2004 - 21:58 #13
yir.. jeg takker mange gange..
Avatar billede Meggel Novice
18. februar 2004 - 22:04 #14
eller jeg var for hurtig... den virker altså ikke helt.. den skriver det ikke på siden.. den gemmer det fint i databasen.. men skriver det ikke på siden..
Avatar billede Meggel Novice
18. februar 2004 - 22:07 #15
har selv fixet den..
Avatar billede steen Nybegynder
18. februar 2004 - 22:08 #16
ok
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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 21:38 webui_forge_cu121_torch231 med AMD Grafikkort. Af jonpet i Andet software
I går 20:06 email adresse Af Malm i Forslag til ændringer
I går 19:54 problem med google crome Af Malm i Andet software
I går 09:36 Alternativ holder til to skærme... Af Don G i Skærme
20/0815:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
White papers
Flere white papers »