Fejl i forum!

ja tak...

Du skal nok lige oprette en bruger, og se problemet, inden du helt præcist kan afgøre hvad problemet er, men her er kilden:


<script type="text/javascript">

function validering()
  {
  error = 0;

  if((document.forms[0].navn.value=='') && (error==0)) 
  {       
    alert('Du har glemt at skrive dit navn');
    document.forms[0].navn.focus();
    error = 1;       
  }

  if((document.forms[0].besked.value=='') && (error==0)) 
  {       
    alert('Du har glemt at udfylde din kommentar');
    document.forms[0].besked.focus();
    error = 1;       
  }   

  if(error == 0)
  document.forms[0].submit();   
  }

</script>
</head>

<%
id = Request.Querystring("id") 
%>
<%If Request.QueryString("mode") = "kommentar" Then %>
<%

' Sender resultaterne fra tilføj links til databasen
' Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("forum.mdb")
' Opbygger SQL streng
SQLstmt = "INSERT INTO forum (navn,besked,dato,svar_id)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("navn") & "','" & replace(request.form("besked"),"'","''") & "','" & request.form("dato") & "','" & request.form("svar_id") & "')"
response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

' Sender brugeren tilbage til links når databasen er opdateret
response.redirect (request.servervariables("SCRIPT_NAME") & "?id=" & request.form("svar_id"))


%>





<% else %>
<%
Function LinkString(strInput)
        arrPattern = Array("([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)", _
        "(http|https|ftp)(:\/\/[\w\._-]+\.[\w\._-]+\S*)", _
        "(^|[^\/])(www[^\.\s]?\.[\w\._-]+\.[A-Za-z]{2,4}\S*)")

        arrReplaceString = Array(" <a href='mailto:$1'>$1</a> ", _
        " <a href='$1$2' target='_blank'>$1$2</a> ", _
        " <a href='http://$2' target='_blank'>$2</a> ")

        Set Rx = New RegExp
        Rx.Global = True
        Rx.IgnoreCase = True

        For intIndex = 0 To UBound(arrPattern)
            Rx.Pattern = arrPattern(intIndex)
            strInput = Rx.Replace(strInput, arrReplaceString(intIndex))
        Next
       
        Set Rx = Nothing

        LinkString = strInput
    End Function

'[ClearHTMLTags]
   
'Coded by Jóhann Haukur Gunnarsson
'joi@innn.is
   
'  Purpose: This function clears all HTML tags from a
'          string using Regular Expressions.
'  Inputs: strHTML;
'            A string to be cleared of HTML TAGS
'    intWorkFlow;
'            An integer that if equals to 0 runs only the RegExp filter
'              .. 1 runs only the HTML source render filter
'              .. 2 runs both the RegExp and the HTML source render
'              .. >2 defaults to 0
'  Returns: A string that has been filtered by the function
   
function ClearHTMLTags(strHTML, intWorkFlow)
  'Variables used in the function
       
  dim regEx, strTagLess
       
  '---------------------------------------
  strTagless = strHTML
  'Move the string into a private variable
  'within the function
  '---------------------------------------

  'regEx initialization
  '---------------------------------------
  set regEx = New RegExp
  'Creates a regexp object       
  regEx.IgnoreCase = True
  'Don't give frat about case sensitivity
  regEx.Global = True
  'Global applicability
  '---------------------------------------

  'Phase I
  '    "bye bye html tags"
  if intWorkFlow <> 1 then
    '---------------------------------------
    regEx.Pattern = "<[^>]*>"
    'this pattern mathces any html tag
    strTagLess = regEx.Replace(strTagLess, "")
    'all html tags are stripped
    '---------------------------------------
  end if
       
  'Phase II
  '    "bye bye rouge leftovers"
  '    "or, I want to render the source"
  '    "as html."

  '---------------------------------------
  'We *might* still have rouge < and >
  'let's be positive that those that remain
  'are changed into html characters
  '---------------------------------------   

  if intWorkFlow > 0 and intWorkFlow < 3 then
    regEx.Pattern = "[<]"
    'matches a single <
    strTagLess = regEx.Replace(strTagLess, "<")

    regEx.Pattern = "[>]"
    'matches a single >
    strTagLess = regEx.Replace(strTagLess, ">")
    '---------------------------------------
  end if
       
  'Clean up
  '---------------------------------------
  set regEx = nothing
  'Destroys the regExp object
  '---------------------------------------   
       
  '---------------------------------------
  ClearHTMLTags = strTagLess
  'The results are passed back
  '---------------------------------------
end function



Session.LCID = 1030

dim farve1
farve1 = "#3399FF"
dim farve2
farve2 = "#99CCFF"

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("forum.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From tråd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

do
response.write "<center><table cellpadding='2' cellspacing='0' border='0' width='481'><tr><td height='18' width='486'><font face=verdana size=2>Kategori: " & rs("kategori") & "</td></tr></table>"
response.write "<center><table bgcolor='#FFFFFF' cellpadding='0' cellspacing='0' width='481px' style='border-top: 1 solid #000000' style='border-left: 1 solid #000000; border-right: 1 solid #000000'>"
response.write "<tr><td colspan='2'><table cellpadding='0' cellspacing='0' width='100%' style='border-bottom: 1 solid #000000'><tr><td bgcolor='"&farve2&"' width='481px'><font face=verdana size=2>"


dim over
over = rs("overskrift")

'fjern html
besked = ClearHTMLTags(over,2)

'Udskriver beskeden uden HTML tags
Response.Write(over)

response.write "</h3></td><td width='100px' bgcolor='"&farve2&"' align='right'><font face=verdana size=2>" & rs("dato") & "</td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td valign='top' width='25%' style='border-bottom: 1 solid #000000;'><font face=verdana size=2><b>"

dim sporger
sporger = rs("navn")

'fjern html
besked = ClearHTMLTags(sporger,2)

'Udskriver beskeden uden HTML tags
Response.Write(sporger)

response.write "</h2></td><td style='border-bottom: 1 solid #000000;' width='75%'><font face=verdana size=2>"

dim besk
besk = rs ("besked")

'fjern html
besk = Server.HTMLEncode(besk)

'www funktion
besk = LinkString(besk)

'Linieskift
besk = Replace(besk,chr(13),"<br>")

response.write(besk)
response.write "</h2></td></tr></table></td></tr>"




  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing



' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("forum.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From forum Where [svar_id] = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

    if not rs.eof then
        do while not rs.eof

response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td valign='top' width='25%' style='border-bottom: 1 solid #000000;'><font face=verdana size=2><b>"

dim svar
svar = rs("navn")

'fjern html
svar = ClearHTMLTags(svar,2)

'Udskriver beskeden uden HTML tags
Response.Write(svar)

response.write "</h2></td><td style='border-bottom: 1 solid #000000;' width='75%'><font face=verdana size=2>"
dim besked
besked = rs ("besked")

'fjern html
besked = Server.HTMLEncode(besked)

'Linieskift
besked = Replace(besked,chr(13),"<br>")

'www funktion
besked = LinkString(besked)

response.write(besked)
response.write "</h2></td></tr></table></td></tr>"

  rs.MoveNext
Loop

    end if
Conn.Close
Set Conn = Nothing

' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("forum.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From tråd Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

response.write "<tr><td colspan='2'><table cellpadding='0' cellspacing='0' width='100%'><tr><td width='25%' valign='top'></td><td width='75%'><h2><form method='post' action='spm.asp?mode=kommentar' onsubmit='validering();return false;'><input type='hidden' size='35' name='navn' value='"
response.write session("brugernavn")
response.write "'><input type='hidden' name='dato' value='"&Date()&"'><input type='hidden' name='svar_id' value='" & rs("id") & "'></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td width='25%' valign='top'><font face=verdana size=2><b>Kommentar:</td><td width='75%'><h2><textarea cols='43' rows='5' name='besked'></textarea></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td width='25%' valign='top'><h2></h2></td><td width='75%'><h2><input type='submit' value='Send'></form></h2></td></tr></table></td></tr>"
response.write "<tr><td colspan='2'><table cellpadding='2' cellspacing='0' width='100%'><tr><td bgcolor='"&farve1&"' colspan='2' align='right' style='border-bottom: 1 solid #000000;' style='border-top: 1 solid #000000;'><a href='oversigt.asp' target='_self'><font face=verdana size=2>» Oversigt</a>&nbsp;&nbsp;<a href='opret.asp' target='_self'><font face=verdana size=2>» Opret ny tråd</a>&nbsp;&nbsp;</td></tr></table></td></tr></table>"


Conn.Close
Set Conn = Nothing


%>


<% End If %>

hvad er feljeln??

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Id ='.

/forum/spm.asp, line 184

Får du ikke denne fejl?

Lukker igen!

/Lukket