smilies, räkna kompisar, räkna meddelanden

din första fråga är inte så klurig egentligen:

response.write replace(rs("meddelande")," :) ", "<img src=""smiley.gif"">")

de andra två frågorna är nog ganska lätta också, det gäller bara att ställa rätt sql-frågor. hur ser dina tabeller ut?

mvh,

jag har ju en databas för kompisar som heter kompis.mdb med tabellen kompisar

fält:

ID | räknare
username | text
kompis | text

och meddelanden har jag mess.mdb och tabellen meddelande med fälten:

ID | räknare
fran | text
till | text
datum | datum/tid
meddelande | PM
status | text
rubrik | text

går det eller?

bara en fråga vart ska jag lägga den kodsnutten med smiliesarna?

joda, det är klart att det går.
men varför har du olika databaser? jag hade helt klart valt att lägga tabellerna i samma databas.

strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
set rs1=conn1.execute(strsql1)
response.write "antal polare: " & rs1("antalpolare")

strsql2 = "select count(*) as antalnya from meddelanden where till = '" & session("inloggad") & "' and status='nytt'"
set rs2=conn2.execute(strsql2)
response.write "antal nya meddelanden: " & rs2("antalnya")

nu gissar jag en aning, men du hajar väl?

när du ska skriva ut meddelandet. det är det response.write gör ju.

kan någon förklara hur jag ska lägga in först den koden som ersätter smilies med smiliebilder... jag ska lägga in det i denna kod:

<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
    <tr>
        <td width="382"><p><font face="Verdana" size="1" color="black"><%=rsMess("meddelande")%></font></td>
    </tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>

och fråga två, dom kodsnuttarna du gav mig @nders som räknar meddelande samt polare, hur ska jag lägga in dom i denna kod, jag fattar inte :

<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ""

%>

blir bara fel....

1: <%=rsMess("meddelande")%> använder du för att skriva ut meddelandet. ersätt det med <%=replace(rsMess("meddelande")," ", "<img src=""smiley.gif"">")%>, se till att ändra så teckenkombination till smileyn och sökväg till bilden lirar.

2:

<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
set rs1=Databas.execute(strsql1)
polare = & rs1("antalpolare")
rs1.close
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ", du har " & polare & "kompisar."
%>

funkar inte det

@nders, dina koder funkar, iaf på det med att räkna kompisar, men man kan säga att det med smilie grejen funkar (inget felmeddelande) men den ersätter inte "smilie koden" till en bild

sedan, om jag vill räkna antal nya meddelanden på samma sida som räknar kompisar, hur gör man då, det är ju två helt olika meddelanden...????

hur ser smileysarna ut i databasen då? har du skrivit rätt sökväg till bilden?

- - - -

man lägger då bara de två frågorna på samma sida...

<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
MdbFilePath2 = Server.MapPath("meddelanden.mdb")

Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
strsql2 = "select count(*) as antalnya from meddelanden where till = '" & session("inloggad") & "' and status='nytt'"

set rs1=Databas.execute(strsql1)
set rs2=Databas2.execute(strsql2)
polare = rs1("antalpolare")
nyameddelanden = rs2("antalnya")
rs1.close
rs2.close
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ", du har " & polare & "kompisar och " & rs2("antalnya") & " nya meddelanden."
%>

borde inte någonting sånt funka?

Så här ska smiley koden se ut:

response.write replace(rs("meddelande"),":)", "<img src='smiley.gif'>")

@nders hade 2 " istället för ' runt bildens url...

m@rtin:

response.write "<img src=""smiley.gif"">" resulterar i

<img src="smiley.gif">

i html-koden. var är felet?

Ursäkta en newbee, skall det inte vara response.write ("<img src=""smiley.gif"">")

jaktjanne: ja, eller nej, lite beroende på hur man ser det.

här har detta diskuterats: http://cgi.webforum.nu/wf/Forum11/HTML/003004.html

mvh,

kan någon förklara hur man gör för att få sitt skript att ersätta mer än bara en smilie, jag vill liksom ha typ glad, sur, cool osv... snälla hjälp mig, min fördelsedag å allt här är min kod jag vill ha in det på, ni ser nog var jag har koden för EN ersättning

<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"

SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
    <tr>
        <td width="382"><p><font face="Verdana" size="1" color="black"><%response.write replace(rsMess("meddelande"),":)", "<img src=""glad.gif"">")%> 
</font></td>
    </tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>

joda, eftersom jag inte fick någe mail av dig, så, here goes:

<%

function skapaSmileyGubbar (strMeddelande)
       tmp = replace (strMeddelande, " :) ", "<img src=""gladgubbe.gif"">")
       tmp = replace (tmp, " ;D ", "<img src=""supergladgubbe.gif"">")
       tmp = replace (tmp, " :e ", "<img src=""garvgubbe.gif"">")
       skapaSmileyGubbar = tmp
end function

Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2

If rsMess.EOF then
%>
Hittade inte meddelandet!
<%

%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><p><font face="Verdana" size="1" color="black"><% response.write [b]skapaSmileyGubbar(rsMess("meddelande"))[/b] %> 
</font></td>
</tr>
</table>

<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")

Databas.Execute(SQL)
%>

ändra i funktionen skapaSmileyGubbar så du får dit din teckenkombination och din bildsökvägar, så borde det fungera.

gött @nders, det funkar utmärkt!

en fråga, jag presenterar själva meddelandet i en tabellrad, men det blir inga radbrytningar om man gjorde det i formuläret, eftersom den gör ingen radbrytning för än den uppnått tabellens bredd.... någon?

ändra funktionen till så här:

function skapaSmileyGubbar (strMeddelande)
tmp = replace (strMeddelande, " :) ", "<img src=""gladgubbe.gif"">")
tmp = replace (tmp, " ;D ", "<img src=""supergladgubbe.gif"">")
tmp = replace (tmp, " :e ", "<img src=""garvgubbe.gif"">")
[b]tmp = replace(tmp, vbcrlf, "<br>")[/b]
skapaSmileyGubbar = tmp
end function

mvh,