---
title: "Expected ')'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/49352-expected"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rodan"
published: "2002-08-03T10:57:52.000Z"
updated: "2002-08-08T10:25:40.000Z"
replies: 22
views: 448
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/49352-expected"
---

# Expected ')'

_Sida 1 av 2._

## #1 — Rodan, 2002-08-03T10:57Z

här är koden 

\<!-- #include file="adovbs.inc" --\>
\<!--#Include file="encode.asp"--\>
\<%

If Session("login") \<\> "ok" Then
	Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
	Response.Redirect "default.asp"
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From message Where ID = "&Request.QueryString("readid")

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

If RecSet("read") = 0 Then
RecSet("read") = 1
RecSet.Update
End If
%\>

\<html\>
\<head\>
\<title\>Untitled Document\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>

\<LINK REL=stylesheet HREF="style.css" TYPE="text/css"\>

\</head\>

\<body bgcolor="#ffd023" text="#000000"\>
\<table width="500" border="0" cellspacing="2" cellpadding="2"\>
  \<tr\>
    \<td bgcolor="#848B96"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>\<b\>Läser
      meddelandet från \<font color="#000000"\>\<%=RecSet("namn")%\>\</font\>\</b\>\</font\>\</td\>
  \</tr\>
  \<tr\>
    \<td bgcolor="White"\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"\>\<b\>\<%=RecSet("rubrik")%\>
      \- \<%=RecSet("datum")%\>\</b\>\<br\>
    \<%=encode(recset("text")%\>\</font\>\</td\>
\</font\>\</td\>
  \</tr\>
\</table\>
\<a href="do_delete.asp?delID=\<%=RecSet("id")%\>"\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<b\>TABORT\</b\>\</font\>\</a\>\<b\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>
\| \<a href="send_mess.asp?toID=\<%=RecSet("fromID")%\>&direct=yes&answerID=\<%=RecSet("ID")%\>"\>SVARA\</a\>
\| \<a href="send_mess.asp"\>TILLBAKA\</a\> \</font\>\</b\>
\</body\>
\</html\>

Permalänk: https://www.webforum.nu/p/49352

## #2 — mozilla, 2002-08-03T11:02Z

Det underlättar väldigt mycket om du skickar med ditt felmeddelande, inklusive vilken rad det är fel på. Och att sedan göra den raden **fet** skadar inte heller?

Permalänk: https://www.webforum.nu/p/739840

## #3 — mozilla, 2002-08-03T11:03Z

hittade de själv efter en stund! denna raden är fel

\<%=encode(recset("text")**)**%\>

Permalänk: https://www.webforum.nu/p/739842

## #4 — Tobbster, 2002-08-03T11:05Z

Nu skall det funka !

```
<!-- #include file="adovbs.inc" --> 
<!--#Include file="encode.asp"--> 
<% 

If Session("login") <> "ok" Then 
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!" 
Response.Redirect "default.asp" 
End If 

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";" 

Set RecSet = Server.CreateObject("ADODB.Recordset") 

Addera = "Select * From message Where ID = "&Request.QueryString("readid") 

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic 

If RecSet("read") = 0 Then 
RecSet("read") = 1 
RecSet.Update 
End If 
%> 

<html> 
<head> 
<title>Untitled Document</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 

<LINK REL=stylesheet HREF="style.css" TYPE="text/css"> 

</head> 

<body bgcolor="#ffd023" text="#000000"> 
<table width="500" border="0" cellspacing="2" cellpadding="2"> 
<tr> 
<td bgcolor="#848B96"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>Läser 
meddelandet från <font color="#000000"><%=RecSet("namn")%></font></b></font></td> 
</tr> 
<tr> 
<td bgcolor="White"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#000000"><b><%=RecSet("rubrik")%> 
- <%=RecSet("datum")%></b><br> 
[b]<%=encode(recset("text"))%>[/b]</font></td> 
</font></td> 
</tr> 
</table> 
<a href="do_delete.asp?delID=<%=RecSet("id")%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>TABORT</b></font></a><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
| <a href="send_mess.asp?toID=<%=RecSet("fromID")%>&direct=yes&answerID=<%=RecSet("ID")%>">SVARA</a> 
| <a href="send_mess.asp">TILLBAKA</a> </font></b> 
</body> 
</html>
```

Permalänk: https://www.webforum.nu/p/739847

## #5 — mozilla, 2002-08-03T11:07Z

aha, du ville visa vad som var fel, tappade mig tidigt ;)

Permalänk: https://www.webforum.nu/p/739848

## #6 — Rodan, 2002-08-03T11:10Z

nope ... 

oj... glömde felmeddelandet.. här är den nya

Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/SwedenWorld/do_read.asp, line 48

Permalänk: https://www.webforum.nu/p/739849

## #7 — voigtann1, 2002-08-03T11:10Z

igår så skickade jag EXAKT svar och du påstod att du fick error när du hade ändrat din kod.. men du ändrade ju aldrig... du borde läst mina PMs bättre..

Permalänk: https://www.webforum.nu/p/739851

## #8 — Rodan, 2002-08-03T11:14Z

jag har ändrat .....

Permalänk: https://www.webforum.nu/p/739855

## #9 — Rodan, 2002-08-04T16:32Z

så det är ingen som har lust att hjälpa mig... ? frågar väl på aspsidan.nu

Permalänk: https://www.webforum.nu/p/740635

## #10 — Ekström, 2002-08-04T16:44Z

Hur ser encode.asp ut?

Använd inte fältnamn som text.

Permalänk: https://www.webforum.nu/p/740644

## #11 — OveRRidE, 2002-08-04T16:45Z

Och felet är?

(För oss som inte är synska ;))

Permalänk: https://www.webforum.nu/p/740645

## #12 — Rodan, 2002-08-04T17:01Z

encode.asp.-.....

\<%
Function encode(mess)

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
mess = Server.HTMLEncode(mess)

objRegExp.Pattern = "\\\[(b\|/b\|i\|/i\|u\|/u\|br)\\\]"
mess = objRegExp.Replace(mess,"\<$1\>")

objRegExp.Pattern = "\\\[s\\\]"
mess = objRegExp.Replace(mess,"\<strike\>")

objRegExp.Pattern = "\\\[\\/s\\\]"
mess = objRegExp.Replace(mess,"\</strike\>")

objRegExp.Pattern = "\\\[\\/color\\\]"
mess = objRegExp.Replace(mess,"\</font\>")

mess	= CStr(Replace(mess, ":)", "\<img src='sm/smiley.gif'\>"))
mess    = CStr(Replace(mess, ":)","\<img src=""smil/smile.gif""\>"))
mess    = CStr(Replace(mess, ":D","\<img src=""smil/biggrin.gif""\>"))
mess    = CStr(Replace(mess, ";)","\<img src=""smil/wink.gif""\>"))
mess    = CStr(Replace(mess, ":P","\<img src=""smil/tongue.gif""\>"))
mess    = CStr(Replace(mess, ":o","\<img src=""smil/oh.gif""\>"))
mess    = CStr(Replace(mess, ":@","\<img src=""smil/angry.gif""\>"))
mess    = CStr(Replace(mess, ":x","\<img src=""smil/dead.gif""\>"))
mess    = CStr(Replace(mess, ":s","\<img src=""smil/devil.gif""\>"))
mess    = CStr(Replace(mess, ":(","\<img src=""smil/frown.gif""\>"))
mess    = CStr(Replace(mess, ":¤","\<img src=""smil/kiss.gif""\>"))
mess    = CStr(Replace(mess, ":?","\<img src=""smil/confused.gif""\>"))
mess    = CStr(Replace(mess, ":z","\<img src=""smil/orangesleep.gif""\>"))
mess    = CStr(Replace(mess, ";-(","\<img src=""smil/orangecry.gif""\>"))

objRegExp.Pattern = "\\\[(red\|green\|blue\\\]"
mess = objRegExp.Replace(mess,"\<font color=$1\>")

objRegExp.Pattern = vbcrlf
mess = objRegExp.Replace(mess,"\<br\>"& vbCrLf)

objRegExp.Pattern = " {1,}(fan\|helvete\|etc\|n00b\|idiot) {1,}"
mess = objRegExp.Replace(mess,"\<I\>\*censur\*\</i\>")

	encode = mess
End Function
Function av(mess)
%\>

Permalänk: https://www.webforum.nu/p/740661

## #13 — solbulle, 2002-08-04T17:08Z

Vad gör denna lilla bit längst ner?

Function av(mess) 

Fimpa den!

Permalänk: https://www.webforum.nu/p/740666

## #14 — Ekström, 2002-08-04T17:11Z

Som jag trodde :D Brukade glömma end:a funktioner själv förr. :D

Permalänk: https://www.webforum.nu/p/740671

## #15 — Rodan, 2002-08-05T07:55Z

nu får jag detta felmedellandet :-(

Error Type:
Microsoft VBScript runtime (0x800A139C)
Expected ')' in regular expression
/SwedenWorld/encode.asp, line 38

Permalänk: https://www.webforum.nu/p/740984

## #16 — voigtann1, 2002-08-05T08:57Z

och vilken kod rad är 38?

när du har hittat den prova sätt ett ')' där du TROR den kan behövas...

```
<% 
Function encode(mess) 

Set objRegExp = New regexp 
objRegExp.Global = true 
objRegExp.IgnoreCase = true 
mess = Server.HTMLEncode(mess) 

objRegExp.Pattern = "\[(b|/b|i|/i|u|/u|br)\]" 
mess = objRegExp.Replace(mess,"<$1>") 

objRegExp.Pattern = "\[s\]" 
mess = objRegExp.Replace(mess,"<strike>") 

objRegExp.Pattern = "\[\/s\]" 
mess = objRegExp.Replace(mess,"</strike>") 

objRegExp.Pattern = "\[\/color\]" 
mess = objRegExp.Replace(mess,"</font>") 

mess = CStr(Replace(mess, ":)", "<img src='sm/smiley.gif'>")) 
mess = CStr(Replace(mess, ":)","<img src=""smil/smile.gif"">")) 
mess = CStr(Replace(mess, ":D","<img src=""smil/biggrin.gif"">")) 
mess = CStr(Replace(mess, ";)","<img src=""smil/wink.gif"">")) 
mess = CStr(Replace(mess, ":P","<img src=""smil/tongue.gif"">")) 
mess = CStr(Replace(mess, ":o","<img src=""smil/oh.gif"">")) 
mess = CStr(Replace(mess, ":@","<img src=""smil/angry.gif"">")) 
mess = CStr(Replace(mess, ":x","<img src=""smil/dead.gif"">")) 
mess = CStr(Replace(mess, ":s","<img src=""smil/devil.gif"">")) 
mess = CStr(Replace(mess, ":(","<img src=""smil/frown.gif"">")) 
mess = CStr(Replace(mess, ":¤","<img src=""smil/kiss.gif"">")) 
mess = CStr(Replace(mess, ":?","<img src=""smil/confused.gif"">")) 
mess = CStr(Replace(mess, ":z","<img src=""smil/orangesleep.gif"">")) 
mess = CStr(Replace(mess, ";-(","<img src=""smil/orangecry.gif"">")) 

objRegExp.Pattern = "\[(red|green|blue)\]" 
mess = objRegExp.Replace(mess,"<font color=$1>") 

objRegExp.Pattern = vbcrlf 
mess = objRegExp.Replace(mess,"<br>"& vbCrLf) 

objRegExp.Pattern = " {1,}(fan|helvete|etc|n00b|idiot) {1,}" 
mess = objRegExp.Replace(mess,"<I>*censur*</i>") 

encode = mess 
End Function 
%>
```

så ska den se ut..

Permalänk: https://www.webforum.nu/p/741009

## #17 — Peeer, 2002-08-05T09:11Z

Prova!

```
objRegExp.Pattern = "\[(red|green|blue[b])[/b]\]"
```

Permalänk: https://www.webforum.nu/p/741018

## #18 — Rodan, 2002-08-06T14:31Z

funkar :.... Tack :-)

Permalänk: https://www.webforum.nu/p/744803

## #19 — Rodan, 2002-08-08T09:55Z

nej... nu har jag ett problem till 

när jag vill ha färg... så visas koden.... 

här är färgkoden

objRegExp.Pattern = "\\\[(red\|green\|blue)\\\]" 
mess = objRegExp.Replace(mess,"\<font color=$1\>")

Permalänk: https://www.webforum.nu/p/745938

## #20 — voigtann1, 2002-08-08T10:09Z

har du provat att skriva  och sånt? för det är inget fel på den koden....

prova kanske:
objRegExp.Pattern = "\\\[(red\|green\|blue)\\\]" 
mess = objRegExp.Replace(mess,"\<font color=**""**$1**""**\>")

Permalänk: https://www.webforum.nu/p/745956

---

Tråden på webben: https://www.webforum.nu/amne/asp/49352-expected  
Nästa sida: https://www.webforum.nu/amne/asp/49352-expected/page2.md