Expected ')'

22 svar · 400 visningar · startad av Rodan 3 aug. 2002

RodanMedlem sedan juli 20021 523 inlägg

Frågan3 aug. 2002 10:57#1

här är koden

<%

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">

</head>

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

mozillaMedlem sedan juli 20011 084 inlägg

3 aug. 2002 11:02#2

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?

mozillaMedlem sedan juli 20011 084 inlägg

3 aug. 2002 11:03#3

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

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

TobbsterMedlem sedan mars 2001309 inlägg

3 aug. 2002 11:05#4

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>

mozillaMedlem sedan juli 20011 084 inlägg

3 aug. 2002 11:07#5

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

RodanMedlem sedan juli 20021 523 inlägg

3 aug. 2002 11:10#6

nope ...

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

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

voigtann1Medlem sedan juni 20019 519 inlägg

3 aug. 2002 11:10#7

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..

RodanMedlem sedan juli 20021 523 inlägg

3 aug. 2002 11:14#8

jag har ändrat .....

RodanMedlem sedan juli 20021 523 inlägg

4 aug. 2002 16:32#9

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

EkströmMedlem sedan feb. 20022 594 inlägg

4 aug. 2002 16:44#10

Hur ser encode.asp ut?

Använd inte fältnamn som text.

OveRRidEMedlem sedan feb. 200112 078 inlägg

4 aug. 2002 16:45#11

Och felet är?

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

RodanMedlem sedan juli 20021 523 inlägg

4 aug. 2002 17:01#12

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,"")

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,"")

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

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

encode = mess

End Function
Function av(mess)
%>

solbulleMedlem sedan mars 20015 287 inlägg

4 aug. 2002 17:08#13

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

Function av(mess)

Fimpa den!

EkströmMedlem sedan feb. 20022 594 inlägg

4 aug. 2002 17:11#14

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

RodanMedlem sedan juli 20021 523 inlägg

5 aug. 2002 07:55#15

nu får jag detta felmedellandet :-(

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

voigtann1Medlem sedan juni 20019 519 inlägg

5 aug. 2002 08:57#16

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..

PeeerMedlem sedan mars 20025 907 inlägg

5 aug. 2002 09:11#17

Prova!

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

RodanMedlem sedan juli 20021 523 inlägg

6 aug. 2002 14:31#18

funkar :.... Tack :-)

RodanMedlem sedan juli 20021 523 inlägg

8 aug. 2002 09:55#19

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,"")

voigtann1Medlem sedan juni 20019 519 inlägg

8 aug. 2002 10:09#20

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,"")