Notifikationer

Markér alle som læst Log ud

forcedesigner Nybegynder

03. juli 2002 - 23:12 Der er 24 kommentarer og
1 løsning

Smiley problem....

Jeg har lavet en nyhedssytem men mangler en smiley funktion.

Jeg vil have at efter man skriver :-) i min form.asp som tilføjer nyheden i databasen, skal laves om til smile.gif.

1. Hvor skal jeg sætte den kode der laver :-) om til smile.gif?? Skal den i form.asp eller vis_nyhed.asp??? og hvor i koden skal den sidde??.

hjælp mig venner.

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:17 #1

Gør det i vis_nyhed.asp
Ca kode.
Replace(Nyheden,":-)","<img src='smile.gif' border='0' alt=''>")

Synes godt om

Slettet bruger

03. juli 2002 - 23:18 #2

der hvor du udskriver din nyhed gør du dette:

dim besked
besked = Replace(besked,":-)","<img height='12px' width='12px' src='smile.gif'>")

mv.
Questis.dk

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:19 #3

Replace(Nyheden,":-)","<img src='smile.gif' border='0' alt='Smil'>")

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:20 #4

Den viser fejl.

Hvor i koden skal den sidde?

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:20 #5

Smid lidt kode ud

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:22 #6

Du har noget med Response.Write (nyhed) ændre det til
Response.Write Replace(nyhed,":-)","<img src='smile.gif' border='0' alt=''>")

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:22 #7

Stadig fejl.

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0414)
Der kan ikke bruges parenteser ved kald af en Sub
/overnyhed.asp, line 13, column 64
Replace(Nyheden,":-)","<img src='smile.gif' border='0' alt=''>")
---------------------------------------------------------------^

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:25 #8

det er nok noget med ' "

Smid afsnitet ca linje 10 til 20 her ud

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:26 #9

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)
%>

<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>

</head>

<body>

<table border="0" cellspacing="0" width="550">
<tr><td><font size="1" face="Verdana"> </font></td></tr>



<% Do While Not Record.EOF %>
<td><font size="1" face="Verdana"><b><a href="vis_nyhed.asp?id=<%= Record("ID")%>"><%= Record("Overskrift")%></a></b></font></td>
<td align="right"><font size="1" face="Verdana">Fra <i><% Response.Write Record("Forfatter")%></i></font></td>
<tr>
<td colspan="2"><font size="1" face="Verdana"><% Response.Write left(Record("nyhed"),250) & "..."%></font></td>
</tr>
<tr><td><font size="1" face="Verdana"> </font></td></tr>
<%
Record.MoveNext
Loop
%>


</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:28 #10

De er en forkært fil. Vis mig det fra vis_nyhed.asp

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:29 #11

Det må være den der viser oversigten over de nyheder der findes

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:31 #12

Ja det er den.

Men er der vis_nyhed.asp:

<%
'Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
Sql = "SELECT * FROM nyheder Where ID=" & id
Set Record = Con.Execute(Sql)
%>
<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>
<title>Ny side 1</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><font face="Verdana" size="1"><% Response.Write Record("nyhed") %></font></td>
</tr>
</table>

</body>

</html>

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:33 #13

<%
'Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
Sql = "SELECT * FROM nyheder Where ID=" & id
Set Record = Con.Execute(Sql)
%>
<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>
<title>Ny side 1</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><font face="Verdana" size="1"><% Response.Write Replace(Record("nyhed"),":-)","<img src='smile.gif' border='0' alt='Smil'>") %></font></td>
</tr>
</table>

</body>

</html>

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:36 #14

Tak, isdan, nu virker det, men kan du også hjælpe med overnyhed.asp (viser oversigt)??

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:37 #15

Hvad mangler der?

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:38 #16

Hvordan kan man lave en liste af masser smileys i min vis_nyhed.asp??

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:40 #17

Kom med lidt mere Spc. Hvonår skal det ske og hvor i listen

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:45 #18

NU har vi lavet :-) til smile.gif

Jeg også have :-( til sur.gif hvordan gøre jeg det?

Ja i selve nyheden.

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:46 #19

<%
'Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
Sql = "SELECT * FROM nyheder Where ID=" & id
Set Record = Con.Execute(Sql)
%>
<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>
<title>Ny side 1</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><font face="Verdana" size="1"><% Response.Write Replace(Record("nyhed"),":-(","<img src='sur.gif' border='0' alt='Smil'>") %></font></td>
</tr>
</table>

</body>

</html>

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:48 #20

Det drejer sig om dette afsnit her som du kan lege med..

<% Response.Write Replace(Record("nyhed"),":-(","<img src='sur.gif' border='0' alt='Smil'>")%>

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:49 #21

Nej, nej, nej..

I samme tilspunkt skal den kunne vise :-) og :-(

Så dum er heler ik'

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:54 #22

<%
'Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
Sql = "SELECT * FROM nyheder Where ID=" & id
Set Record = Con.Execute(Sql)
%>
<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>
<title>Ny side 1</title>
</head>
<%
Dim strNyhed
strNyhed = Replace(Record("nyhed"),":-)","<img src='smile.gif' border='0' alt='Smil'>")
strNyhed = Replace(strNyhed,":-(","<img src='sur.gif' border='0' alt='suk'>")
%>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><font face="Verdana" size="1"><% Response.Write strNyhed%></font></td>
</tr>
</table>

</body>

</html>

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:54 #23

:-) = <% Response.Write Replace(Record("nyhed"),":-(","<img src='sur.gif' border='0' alt='Smil'>")%>

:-) + :-( = ???

Synes godt om

forcedesigner Nybegynder

03. juli 2002 - 23:56 #24

Tak nu virker det.

Synes godt om

isdan Nybegynder

03. juli 2002 - 23:57 #25

Selv tak

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS